Bonjour j'ai creer une macro pour effacer du texte dans différentes cellules cela fonctionne mais je voudrais savoir si il n'y a pas plus simple. merci Private Sub CommandButton2_Click() [b4:b21].ClearContents [d4:d21].ClearContents [e4:e21].ClearContents [a5:a9].ClearContents [c5:c9].ClearContents [a11:a15].ClearContents [c11:c15].ClearContents [a17:a21].ClearContents [c17:c21].ClearContents End Sub...

Macro pour suprimer du texte dans plusieurs cellules

bonjour j'ai creer une macro pour effacer du texte dans différentes cellules cela fonctionne mais je voudrais savoir si il n'y a pas plus simple.

merci

Private Sub CommandButton2_Click()

[b4:b21].ClearContents

[d4:d21].ClearContents

[e4:e21].ClearContents

[a5:a9].ClearContents

[c5:c9].ClearContents

[a11:a15].ClearContents

[c11:c15].ClearContents

[a17:a21].ClearContents

[c17:c21].ClearContents

End Sub

Bonjour,

Avec l'enregistreur de macros...

Range("B4,D4:E4,A5:E9,B10,D10:E10,A11:E15,B16,D15:E16,A17:E21").ClearContents

ok merci je vais essayer.