Discussion :

[Jerez62]

Bonsoir à tous, je débute en VBA et je rencontre un petit soucis.
Je dois effacer le contenu de la feuille active mais en préservant les cellules C3,D3,D4,D5,E3,F3,G3,J3 et K3(qui ne doivent donc pas être éffacé). Le reste doit être vide. On m'a recommandé de taper ceci mais ça supprime TOUTE la feuille "ActiveSheet.Cells.ClearContents" merci de votre aide

[SfJ5Rpw8]

tu construit grâce à des "union" la zone à effacer puis tu y applique la fonction clearcontents..:

Code :

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

1
2
3
4
5
6
 
Dim r As Range
Set r = Range("A1:IV2")
Set r = Union(r, Range("A3:B5"), Range("C4:C5"), Range("E4:IV5"), Range("H3:I3"), Range("L3:IV3"))
Set r = Union(r, Range("A6:IV65536"))
r.ClearContents

[Jerez62]

c'est résolu, merci beaucoup de votre aide efficace et rapide