Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Call ta_macro_ici
Else
Exit Sub
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 Then macro1 Else macro2
End Sub
Bonjour,
regarde peut être ceci, à utiliser dans le module de la feuille où se trouve l'objet :
bon après midiCode:Private Sub CheckBox1_Click() If CheckBox1 Then macro1 Else macro2 End Sub
@+