Avoir un simple CommandButton On/Off Résolu/Fermé

Question

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é" ThenCommandButton1.Caption = "Ecriture"CommandButton1.BackColor = vbGreenCells(ActiveCell.Row, 5).ActivateElseCommandButton1.Caption = "Protégé"CommandButton1.BackColor = vbRedEnd IfEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)Call CommandButton1_ClickEnd Sub

yg_be · Answer

bonjour,
veux-tu activer une autre cellule?

rodger85230 · Answer

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

rodger85230 · Answer

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

rodger85230 · Answer

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 IfEnd WithEnd SubPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)If CommandButton1.Caption = "Protégé" Then    Cells(ActiveCell.Row, 5).ActivateEnd IfEnd Sub

Résolu

Avoir un simple CommandButton On/Off

4 réponses

Discussions similaires