Sujet Précédent

Avoir un simple CommandButton On/Off [Résolu]

Signaler
Messages postés
9
Date d'inscription
lundi 20 mai 2019
Statut
Membre
Dernière intervention
11 juin 2021
 -
Messages postés
9
Date d'inscription
lundi 20 mai 2019
Statut
Membre
Dernière intervention
11 juin 2021
 -
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

4 réponses

Réponse 1 / 4
Messages postés
15983
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 juin 2021
 867
bonjour,
veux-tu activer une autre cellule?
Réponse 2 / 4
Messages postés
9
Date d'inscription
lundi 20 mai 2019
Statut
Membre
Dernière intervention
11 juin 2021
Bonjour
Pas bien compris la question ,cette ligne de code me permet de toujours revenir dans la colonne "E"
oui je veux avoir accès à n'importe quelle cellule pour y rentrer des donnée et après protéger ses cellules
il faut que ça revienne en colonne "E" parce que je suis en mode array avec une autre feuille
et cela permet d'arriver sur la bonne ligne
Signaler
Messages postés
15983
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
11 juin 2021
 867
cette ligne de code te positionne dans une cellule en colonne E.
cela signifie quoi "revenir en normal"?
où veux-tu être positionné?
Réponse 3 / 4
Messages postés
9
Date d'inscription
lundi 20 mai 2019
Statut
Membre
Dernière intervention
11 juin 2021
revenir en normal c'est quand je clique sur n'importe qu'elle cellule, que je puisse y inscrire
des donnée je n'ai pas une position spécifique ces simplement annuler l'action que provoque cette ligne de code
Réponse 4 / 4
Messages postés
9
Date d'inscription
lundi 20 mai 2019
Statut
Membre
Dernière intervention
11 juin 2021
voila les macros pour que cela marche 
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


Résolu
Répondre Posez votre question