Le forum
C'est bon, j'ai réussi, sans passer par une listbox et tout le trala, une version plus simple de l'option.
Merci a DididerMDF pour ces conseil, sur le chat.
A titre d'exemple le code utilisé :
Private Sub cmdRaz_Click()
Dim reponse, i, TheNum As Byte
TheDate = Month(Date)
TheNum = CByte(Month(Date))
reponse = MsgBox("Voulez-vous réelement mettre toutes les feuilles" _
& "de paye à zéro ?", vbYesNo + vbQuestion, "OPERATION ERREVERSIBLE !!!")
If reponse = vbYes Then
For i = TheNum To 12
With Worksheets(i)
.Range("C22:C52").ClearContents
.lblDateDeSignature.Caption = ""
End With
Next i
Sheets("Récapitulatif").Range("C4:I20").ClearContents
Else: Exit Sub
End If
End Sub
Voili, voilou, bon week-end, G'Claire