Bonjour tout le monde,

J'ai un problème concernant l'exécution d'une macro avec un bouton. En fait la macro marche très bien avec alt+F8 mais ne marche pas (ou du moins une fois sur deux) avec un bouton. Je suis sous Office 2016.

Ci-joint le code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub test() 'je lance la macro depuis Feuil1
 
With Sheets("Feuil2")
    .Unprotect
    .Range("A5:A6").ClearContents
    .Protect
End With
 
ActiveSheet.Unprotect
If Range("A5") <> "Fin" Then
 
    With Range("A5")
        .Locked = False
        .Interior.Color = 150000
    End With
 
Else
 
    With Range("A5")
        .Locked = False
        .Interior.Color = xlAutomatic
    End With
 
End If
ActiveSheet.Protect
 
End Sub
Voilà j'ai juste deux feuilles nommées "Feuil1" et "Feuil2". Sur "Feuil2" il n'y a rien et sur "Feuil1" il y a juste un mot quelconque en A5 et le bouton qui lance la macro.

Merci de votre aide.