Boucle: Incrémenter une variable qui soit une cellule

Bonjour à tous,

J'en appele à vous car je ne connais pas le Visual Basic :oops: et j'ai besoin d'un coup de main pour accoucher d'une macro Excel:
Pour résumer, je dois faire une boucle (de 100 itérations: compteur de 7 à 197 qui correspond aux nombre de lignes de la feuille "Cion") qui copie et colle des données d'une feuile à une autre du classeur.
Seules les cellules que j'ai mis en rouge dans le code doivent être incrémenté (passage à la ligne inférieure). En gros le code ça donne ça et il faut que la macro modifie les variables en rouge (qui correspondent à des cellules Excel), je voudrait ensuite écrire dans les cellules A8, puis A9, etc.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31

Sub Cion() Dim NumLigne As Integer Set NumLigne = 7 While (NumLigne < 107) Range(A+NumLigne).Select Application.CutCopyMode = False Selection.Copy Sheets("Suivi").Select Range("H10").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("I10").Select Application.CutCopyMode = False Selection.Copy Sheets("Cion").Select Range("K+NumLigne ").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Sheets("Suivi").Select Range("J10").Select Application.CutCopyMode = False Selection.Copy Sheets("Cion").Select Range("F+NumLigne ").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False NumLigne = NumLigne + 1 Wend End Sub

---

Je ne sais pas si je suis très clair mais je fais de mon mieux :aie:

Merci pour votre aide !:king:

re:

je ne sais pas si j'ai tout compris mais en fonction des lignes en rouge

La reference colonne n'etant pas une variable, "A" ou "K"
le + est une caractere d'addition, le caractere de concatenation est : &
numligne etant une variable elle s'utilise comme telle
ce qui donne :

Code:

---

Range("A" & numligne)

---

maintenant, histoire de supprimer les select qui prennent du temps dans l'execution et fait sauter l'écran

Code:

---

1 2 3

Range("A" & NumLigne).Copy Sheets("Suivi").Range("H10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False

---

et pour eviter les copier coller :

Code:

---

Sheets("Suivi").Range("H10").value = Range("A" & numligne).value

---

Bonjour,
Si je peux...Hier on a eu un cas plus ou moins similaire, il y a une pièce jointe et une procédure qui pourait t'aider à simplifier ton code.
L'intitulé: Recuperation-Cellules-copie

Bon courage,

SUPER ! :king:

Merci pour vos réponses. Je vais faire ça cet aprem ! :yaisse2: