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 - 11 juin 2021 à 19:14

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

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

Réponse 1 / 4

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 584

bonjour,
veux-tu activer une autre cellule?

Réponse 2 / 4

rodger85230 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

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

yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention 1 584

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

rodger85230 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

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

rodger85230 Messages postés 8 Date d'inscription Statut Membre Dernière intervention

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

Discussions similaires

echo off qu'est ce que c'est ?

Arrêt/démarrage via Bouton ON/OFF de l'alim

symbole arrêt marche

Bouton ON OFF, O ou I ?

@ECHO OFF

Votre réponse

Discussions similaires