Bonjour à tous,
J'en appele à vous car je ne connais pas le Visual Basicet 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.
Je ne sais pas si je suis très clair mais je fais de mon mieux
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
Merci pour votre aide !![]()
Partager