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

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?
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
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é?
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
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