greg0852
XLDnaute Nouveau
bonjour à tous,
J'ai une macro que je me sers pour faire un copier/coller de valeurs dans les cellules désignées.
Mon problème est que ma macro ne fonctionne que pour une seule cellule, et donc je dois la répéter à peu prés 6000 fois, puisque ma plage de cellule va de D4 à BM150.
Donc j'essaie désespérément de faire une boucle, mais sans succés.
Auriez-vous une idée de comment je pourrais m'y prendre. merci d'avance
Voici ma macro de base :
J'ai une macro que je me sers pour faire un copier/coller de valeurs dans les cellules désignées.
Mon problème est que ma macro ne fonctionne que pour une seule cellule, et donc je dois la répéter à peu prés 6000 fois, puisque ma plage de cellule va de D4 à BM150.
Donc j'essaie désespérément de faire une boucle, mais sans succés.
Auriez-vous une idée de comment je pourrais m'y prendre. merci d'avance
Voici ma macro de base :
Code:
Sheets("Janv").Select
Range("D4").Select
If [D4] > 0 Then
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If