Avoir un simple CommandButton On/Off

Bonjour
je n'arrive pas à trouver l'inverse de "Cells(ActiveCell.Row, 5).Activate"
qui est dans un commandButton
l'inverse de ce code me permettrait de revenir en normal
Merci d'avance

Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Protégé" Then
CommandButton1.Caption = "Ecriture"
CommandButton1.BackColor = vbGreen
Cells(ActiveCell.Row, 5).Activate
Else
CommandButton1.Caption = "Protégé"
CommandButton1.BackColor = vbRed
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call CommandButton1_Click
End Sub

Bonjour,

Je n'ai pas bien compris votre problématique car j'ai l'impression que le worksheet_change contre votre sub commandbutton1_click.

Que souhaitez vous faire à travers cette macro ?

J'ai bien un test sans le worksheet_change, juste en passant par un click sur le bouton :

Private Sub CommandButton1_Click()
Application.EnableEvents = False
With CommandButton1
    If .Caption = "Protégé" Then
        .Caption = "Ecriture"
        .BackColor = vbGreen
        Else
        .Caption = "Ecriture"
        .Caption = "Protégé"
        .BackColor = vbRed
        Cells(ActiveCell.Row, 5).Activate
    End If
End With
Application.EnableEvents = True
End Sub

Mais après, que souhaitez vous empêcher ou autoriser auprès de l'utilisateur ?

Cdlt,

Bonjour

Cette ligne de code "Cells(ActiveCell.Row, 5).Activate" me permet de revenir sur la colonne "E" quand je clique sur n'importe quelle cellule qui sera assigné par un commandbouton mode (on)

j'aimerai pouvoir annuler cette ligne ce qui me permettrai de cliquer sur n'importe quelle cellule pour y rentrer des données qui sera assigné par ce même commandbouton en mode (off)

Bonjour,

Ah oui je comprend dans ce cas remplacez tout votre code de la Feuil1 par. Votre Cells.Activate doit être dépendant du statut protégé du bouton :

Private Sub CommandButton1_Click()
With CommandButton1
    If .Caption = "Protégé" Then
        .Caption = "Ecriture"
        .BackColor = vbGreen
        Else
        .Caption = "Protégé"
        .BackColor = vbRed
        Cells(ActiveCell.Row, 5).Activate
    End If
End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If CommandButton1.Caption = "Protégé" Then
    Cells(ActiveCell.Row, 5).Activate
End If
End Sub

Cdlt,

merci beaucoup ça marche super bien

je marque comme Résolu (pas trouvé l'encoche)