VBA : position auto "bouton bascule" sur activation feuille....

Question

Bonjour à tous,

J'ai créé dans une feuille "PLANNING_V" un bouton nommé "BoutonMenu" associé à la macro ci-dessous. En cliquant sur le bouton, le texte prend alternativement la valeur "AUTO" ou "MANU". Je souhaiterais qu'à l'activation de la feuille "PLANNING_V" le bouton prenne par défaut la valeur "AUTO" et [A1] la valeur "Activé". S'il est déjà en Auto, rien ne se passe, s'il est en Manu, il bascule en auto

Je ne parviens pas à le faire avec les évènements sur la feuille... Quelqu'un pourrait-il me donner un coup de main ?

Merci ;o)))

Domi

J'ai mis un fichier "TEST_BOUTON" sur cijoint.com pour faire des tests au cas où....

https://www.cjoint.com/c/LIoqfhWEFt1

Sub AUTO_MANU()

    Application.ScreenUpdating = False

    If Etat = 0 Then

        With Sheets("PLANNING_V").DrawingObjects("BoutonMenu")

            .Characters.Text = "AUTO": Etat = 1

            .Font.Color = RGB(0, 126, 57)

            [A1] = "Activé"

        End With

    Application.EnableEvents = True

    Else

        With Sheets("PLANNING_V").DrawingObjects("BoutonMenu")

            .Characters.Text = "MANU": Etat = 0

            .Font.Color = RGB(255, 0, 0)

            [A1] = "Désactivé"

        End With

        Application.EnableEvents = False

    End If

End Sub

Answer 1

Bonjour,

remplace :

Dim Etat As Integer

par :

Public Etat As Integer

Remplace la macro :

Sub AUTO_MANU()

Application.ScreenUpdating = False  
If Etat = 0 Then  
    With Sheets("PLANNING\_V").DrawingObjects("BoutonMenu")  
        .Characters.Text = "AUTO": Etat = 1  
        .Font.Color = RGB(0, 126, 57)  
        [A1] = "Activé"  
    End With  
Application.EnableEvents = True  
Else  
    With Sheets("PLANNING\_V").DrawingObjects("BoutonMenu")  
        .Characters.Text = "MANU": Etat = 0  
        .Font.Color = RGB(255, 0, 0)  
        [A1] = "Désactivé"  
    End With  
    Application.EnableEvents = True  
End If  

End Sub

La macro activate :

Private Sub Worksheet_Activate()
Etat = 0
AUTO_MANU
End Sub

Daniel

Answer 2

Absolument parfait !

Un grand merçi Daniel ;o)