Bonjour,
1°) ton exemple ne fonctionne pas !! c'est quoi signature...
For Each c In Me.Signature.Controls
Faudrait déjà savoir à quoi ça correspond.
2°) Quel autre appli ?
3°) remplace ta procédure Nettoie par..
Sub nettoie()
Dim C As Control
For Each C In Me.Controls
If TypeOf C Is MSForms.checkbox Then
C.Value = False
ElseIf TypeOf C Is MSForms.TextBox Then
C = ""
ElseIf TypeOf C Is MSForms.ComboBox Then
C.ListIndex = 0
End If
Next C
End Sub
4°) Déclare tes variables, Ce sera plus "Pro"
A+