Clearcontents ne fonctionne que sur une colonne (plutot que 4)

bonjour

j'ai un fichier, 4 colonnes bien délimitées à effacer, mais que la colonne B s'efface, je ne comprends pas pourquoi. J'utilise un bouton d'action

Savez-vous m'aider ?

Voici mon code

Private Sub Effacer_tout_A_Click()
Range("B4:B18").ClearContents
Range("E4:E18").ClearContents
Range("H4:H18").ClearContents
Range("K4:K18").ClearContents
End Sub

A noter que j'ai exactement ce même code pour un autre fichier et que tout va pour le mieux avec les mêmes répartitions de plages (4 à 18 pour les colonnes BEHK)

Je joins le fichier pour ceux qui souhaitent y regarder

PS : puisque c'est à chaque fois la même répartition de plage sur mes futures feuilles (une grosse vingtaine de feuilles) y'a t il un moyen plus rapide de le coder pour arriver au même résultat ?

Merci bcp pour l'aide

Lucrob

Bonjour,

Normalement, les valeurs devraient s'effacer (à moins qu'il y ait une macro évènementielle) donc j'imagine que le problème vient du fait que la feuille concernée n'est pas ciblée par le code. Voici un essai à adapter (nom de la feuille) :

Private Sub Effacer_tout_A_Click()
with sheets("feuille")
    .Range("B4:B18, E4:E18, H4:H18, K4:K18").ClearContents
end with
End Sub

Et pour factoriser le code :

'MODULE DE LA FEUILLE EN QUESTION
Private Sub Effacer_tout_A_Click()
Nettoyer me 'EXECUTER LA MACRO PARAMETREE
end sub

sub Nettoyer(Feuille as worksheet) 'MACRO PARAMETREE (DEPEND D'UNE FEUILLE)
with Feuille
    .Range("B4:B18, E4:E18, H4:H18, K4:K18").ClearContents
end with
End Sub

Cdlt,

bonjour, c'est parfait, en nommant le nom de la feuille !

gros mystère car jamais eu ce cas là...

merci, c'est résolu ! ;-)