Macro d'effacement

Bonjour,

J'ai tenté un code pour effacer tout ou seulement la couleur de fond. Je passe par des boutons options

Private Sub CommandButton_clear_Click()

    If Option_button_all = True Then
        ActiveCell.ClearContents
        ActiveCell.Interior.Pattern = xlNone
    End If

    If Option_button_MC = True Then
        ActiveCell.Interior.Pattern = xlNone
    End If
    'ActiveCell.ClearContents
Unload UserForm1
'ActiveCell.Offset(0, 1).Select
End Sub

Merci de me redire,

Leakim

bonjour

la syntaxe est correcte

vérifie

1) si les conditions sont bien remplies pour leur exécution

2) qu'il ne s'agit pas de MFCs

3) que la cellule active est bien celle que tu veux effacer

Bonjour merci H2so4,

En fait c'est juste

Option_button_all ce qui donne Optionbutton_all et voilà...

Merci

Leakim