Avoir un simple CommandButton On/Off
Résolu
rodger85230
Messages postés
8
Date d'inscription
Statut
Membre
Dernière intervention
-
rodger85230 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
rodger85230 Messages postés 8 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Avoir un simple CommandButton On/Off
- Logo on off - Forum Facebook
- @Echo off - Forum Autoit / batch
- Iphone 14 simple - Guide
- Symbole on off - Forum Windows 10
- @Echo off fonctionne pas ? ✓ - Forum Programmation
4 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,
veux-tu activer une autre cellule?
veux-tu activer une autre cellule?
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
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
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
des donnée je n'ai pas une position spécifique ces simplement annuler l'action que provoque cette ligne de code
voila les macros pour que cela marche
Résolu
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