Bonjour,
Dans le code de Banzai ci-dessous j'aimerai rajouter un message de confirmation de type
"Attention, opération irréversible souhaitez vous réellement supprimer :
liste des infos colonne B cochés" OUI / NON
Je pensais faire un truc du genre, mais j'arrive pas à le placer et de plus ça ne m'affichera pas la liste des éléments cochés
If MsgBox("Opération irréversible. souhaitez vous réellement supprimer?", vbQuestion + vbYesNo, "QUESTION ...") = vbYes Then
Option Explicit
Private Sub CommandButton1_Click()
Dim Lig As Integer
Dim Sh As CheckBox
Application.ScreenUpdating = False
For Lig = 4 To 26
If Cells(Lig, 1) Then
Range("C" & Lig & ":N" & Lig).ClearContents
End If
Next Lig
With ActiveSheet
For Each Sh In .CheckBoxes
Sh = False
Next Sh
End With
End Sub
Si quelqu'un a une idée ?