yohinomura
XLDnaute Nouveau
Bonjour le forum
je fais appel à vous car je ne trouve pas la solution.
je souhaite controler la valeur d'une cellule (checkbox), si la la valeur est vrai:
je veux copier les cellules de A à F correspondante vers la premiere ligne vide d'un tableau se trouvant sur une autre feuille.
j'ai donc essayé ceci mais ca ne marche pas.
For m = Range("B500").End(xlUp).Row To 2 Step -1
If Range("I" & m) = True Then Range("A:F" & m).Activate
Selection.Copy
Sheets("Histo").Activate
Range("A2").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
j'ai une erreur me disant qu'il ne supporte pas la fonction paste
merci de votre aide
je fais appel à vous car je ne trouve pas la solution.
je souhaite controler la valeur d'une cellule (checkbox), si la la valeur est vrai:
je veux copier les cellules de A à F correspondante vers la premiere ligne vide d'un tableau se trouvant sur une autre feuille.
j'ai donc essayé ceci mais ca ne marche pas.
For m = Range("B500").End(xlUp).Row To 2 Step -1
If Range("I" & m) = True Then Range("A:F" & m).Activate
Selection.Copy
Sheets("Histo").Activate
Range("A2").Select
Do While ActiveCell.Value > ""
ActiveCell.Offset(1, 0).Select
Loop
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
j'ai une erreur me disant qu'il ne supporte pas la fonction paste
merci de votre aide