Pouvez vous corriger mon code svp ?

[lcoulon]

Bonjour

J'ai créé ce code pour qu'a chaque pression sur un bouton appelant cette macro, la dernière ligne ( colonnes A B C D ) soit alors effacé de ma feuille

La colonne pilote devra être C.
il se pourra que certaines cellules en A B ou D soient vides, mais jamais C
alors je voudrai que la dernière lignée contenant une valeur en colonne C soit effacée a chaque pression sur le bouton.

Je vous remercie de votre aide,

Sheets("SELECTED_LABELS").Range("A2:A" & Range("C65000").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("B2:B" & Range("C65000").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("C2:C" & Range("C65000").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("D2:D" & Range("C65000").End(xlUp).Row).ClearContents

Actuellement mon code ne fonctionne pas , il efface tout d'un coup et laisse quelques valeurs en colonne D ...

 

[jp14]

Re : Pouvez vous corriger mon code svp ?

Bonjour

Sheets("SELECTED_LABELS").Range("A2:A" & Range("C65000").End(xlUp).Row).ClearContents

Cette ligne efface la plage "A2:Ax"

Pour effacer la dernière ligne il faut écrire Range("A" & x)

JP

 

[Larson]

Re : Pouvez vous corriger mon code svp ?

Bonjour,

si j'ai bien compris le besoin la solution n'est vraiment pa loin de ton code

Sheets("SELECTED_LABELS").Range("A" & Range("C65536").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("B" & Range("C65536").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("C" & Range("C65536").End(xlUp).Row).ClearContents
Sheets("SELECTED_LABELS").Range("D" & Range("C65536").End(xlUp).Row).ClearContents

C'est mieux ainsi ?

 

[lcoulon]

Re : Pouvez vous corriger mon code svp ?

C'est parfait, ca fonctionne nickel ,
Merci pour l'info

par contre , le code efface tout jusqu'à la ligne 1
si je veux que les effacements stoppent dès que la ligne 2 est atteinte, que dois je modifier ?

 

[jp14]

Re : Pouvez vous corriger mon code svp ?

Bonjour

Il faut introduire un test
IF Range("C65536").End(xlUp).Row > 1 then

on efface

End If

JP

 

[lcoulon]

Re : Pouvez vous corriger mon code svp ?

Merci à vous

 

[herve62]

Re : Pouvez vous corriger mon code svp ?

Bonjour
JP14 t'as donné la solution
.Range("C2:c" & Range("C65536").
efface toute la colonne "C" à partir de C2