Copie redondante d'une feuille à une autreRésolu

Question

Bonjour,

Je suis en train de construire une macro permettant de mettre en forme un fichier d'import de données. Les données sources sont sur la feuille "MATRICE" et elle doivent être importées dans la feuille "FICHIER".
J'arrive à faire cette opération en mettant l'adresse des cellules "en dur" mais lorsque je tente d'automatiser cela pour l'inclure dans une boucle "FOR", cela ne fonctionne pas... Pourtant j'ai déjà utiliser ce genre de manipulation dans d'autres macro...

Voici mon code :

Sub Generation_Import()Dim i As IntegerDim j As IntegerFor i = 2 To 10    If Worksheets("MATRICE").Range(A & i).Value <> "" Then        For j = 17 To 50            Worksheets("FICHIER").Range(A & j).Value = "VV"            Worksheets("FICHIER").Range(B & j).Value = "EMBAUCHE"            Worksheets("FICHIER").Range(C & j).Value = ""            Worksheets("FICHIER").Range(D & j).Value = Worksheets("MATRICE").Range(B & i).Value            Worksheets("FICHIER").Range(E & j).Value = "?"        Next    End IfNext        End Sub

Apparemment ce serait les expressions du type "Range(A & i).Value" qui ne lui plaisent pas... si je mets par exemple  "Range("A2").Value" cela fonctionne...

Pourriez-vous m'aider ?

Cordialement,
Casado

casado86 · Answer

Salut, 

Bon je m'auto-réponds... j'avais oublié les guillemets encadrant les lettres A,B,C,D...

Quel boulet... :)

@+

vb95 · Answer

Bonjour
Tu n'es pas le seul à avoir fait des erreurs de ce genre rassures-toi
Je me suis permis de mettre ton post en Résolu ( avec la roue dentée en haut à droite de ton premier message ) 
Penses-y la prochaine fois !
Merci

Copie redondante d'une feuille à une autre

2 réponses

Votre réponse

Discussions similaires