Discussion :

[samuel_p]

Bonjour à tous,

J'en appele à vous car je ne connais pas le Visual Basic 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 :

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

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

Merci pour votre aide !

[wilfried_42]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A" & numligne)

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Fvandermeulen]

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,

[samuel_p]

SUPER !

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