Erreur d'execution 9, l'indice n'appartient pas à la sélection

Résolu
isidoh Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   -  
isidoh Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   - 18 oct. 2012 à 15:05
Bonjour,

j'ai un petit problème de code,
Bon en gros je voudrais coller les valeurs de certaines cellules de tous les onglets (89) du classeur "Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls" vers un autre classeur que j'ai nommé "BDD" sur l'onglet nommé BDD également.

voila le code que j ai écrit:

Sub Macro()

Dim i As Integer
Dim k As Integer
Dim ws As Worksheet

For i = 2 To 90
For j = 3 To 91
'
Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C12")

Workbooks("BDD").Sheets("BDD").Range("C" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C61")

Workbooks("BDD").Sheets("BDD").Range("F" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("V43")

Workbooks("BDD").Sheets("BDD").Range("G" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F43")

Workbooks("BDD").Sheets("BDD").Range("H" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("B27")

Workbooks("BDD").Sheets("BDD").Range("I" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C27")

Workbooks("BDD").Sheets("BDD").Range("J" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E48")

Workbooks("BDD").Sheets("BDD").Range("K" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("C55")

Workbooks("BDD").Sheets("BDD").Range("M" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F54")

Workbooks("BDD").Sheets("BDD").Range("N" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F86")

Workbooks("BDD").Sheets("BDD").Range("O" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E89")

Workbooks("BDD").Sheets("BDD").Range("P" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("F93")

Workbooks("BDD").Sheets("BDD").Range("Q" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil").Range("E90")

Next j
Next

End Sub

et lorsque je le lance le message: erreur d'execution 9, l'indice n'appartient pas à la sélection s'affiche
je n'ai malheureusement pas trouvé de solution c'est pourquoi votre aide me serait très précieuse.

Merci d'avance



A voir également:

7 réponses

Réponse 1 / 7
Yoda
 
Bonjour,

Si tu veux que la boucle j balaye les onglets de "copie de masterfile", il faut que cette variable entre dans le réferencement des onglets de ce classeur.

Workbooks("BDD").Sheets("BDD").Range("A" & i).Value = Workbooks("Copie de MASTERFILE BASF Serie_Sept to Dec 2012_V2.xls").Sheets("Feuil" & j).Range("C12")

A+.
3
isidoh Messages postés 11 Date d'inscription   Statut Membre Dernière intervention   2
 
Bonjour,
j'ai déjà procédé à ce changement, cependant, l'erreur ne vient pas de là
merci
0

Discussions similaires

"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses
Erreur d'exécution "9" :L'indice n'appartient pas à la séléction
sousou22927 -
Utilisateur anonyme -

1 réponse
"L'indice n'appartient à la sélection" + VBA
TraderAS -
TraderAS -

7 réponses
Problème Excel VBA: "l'indice n'appartient pas à la sélection"
bichon1998 -
pijaku -

7 réponses
Erreur '9' l'indice n'appartient pas à la sélection
Ela_1005 -
Utilisateur anonyme -

5 réponses
l'indice n'appartient pas à la selection
sabw -
sabw -

2 réponses