Bonjour,

J'essaye depuis ce matin de trouver une solution pour effacer une même plage de cellules sur toutes les feuilles, sauf la première.

J'ai tenté de chercher une solution, cependant, je ne sais pas trop comment nommer ma recherche.

Voici où j'en suis avec mon code :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Private Sub Bouton1_Clic()
Dim Msg, Style, Title, Response
Msg = "Etes-vous sûr de vouloir effacer la sélection ?"
Style = vbYesNo + vbCritical + vbDefaultButton2
Title = "Effacement"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
[B8:D8,B11:D11,B14:D14,B17:D17,B20:D20,B23:D23].ClearContents
End If
End Sub
J'imagine qu'il doit y avoir quelque chose à faire entre "Then" et "End If"

heeeeelp

Merci à vous