Discussion :

[markvador49]

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

[casefayere]

Bonjour,
essayes comme ça et sans te compliquer la tache avec des variables inutiles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Bouton1_Clic()
Dim Msg As Integer, Ws As Worksheet
Msg = MsgBox("Etes-vous sûr de vouloir effacer la sélection ?")
If Msg = 1 Then
  For Each Ws In Worksheets
    With Ws
      If Ws.Name <> "Feuil1" Then 'par exemple
        Union(.Range("B8:D8"), .Range("B11:D11"), .Range("B14:D14"), .Range("B17:D17"), .Range("B20:D20"), .Range("B23:D23")).ClearContents
      End If
    End With
  Next Ws
End If
End Sub

[markvador49]

Tiens ! Coucou casefayere

Merci pour ta réponse rapide. Je viens de tester ton code, il marche à merveille ! Comme d'habitude avec toi

Une question :

Quelle différence entre ?

Code :

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

Ws.Range("B8:D8,B11:D11,B14:D14,B17:D17,B20:D20,B23:D23").ClearContents

et

Code :

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

Union(.Range("B8:D8"), .Range("B11:D11"), .Range("B14:D14"), .Range("B17:D17"), .Range("B20:D20"), .Range("B23:D23")).ClearContents

Que veut dire "Union" ?

[casefayere]

Merci pour le compliment, j'en rougis,
Pour la différence, ben, je viens de tester, il n'y en a pas dans ce cas, au moins tu connaitras cette propriété qui te serviras certainement un jour

Bonne journée

[markvador49]

Je garde en stock les deux lignes de codes

Merci encore pour ton aide

Cordialement,
Marc