Avoir un simple CommandButton On/Off

Résolu/Fermé

rodger85230 Messages postés 8 Date d'inscription lundi 20 mai 2019 Statut Membre Dernière intervention 11 juin 2021 - 11 juin 2021 à 11:19
rodger85230 Messages postés 8 Date d'inscription lundi 20 mai 2019 Statut Membre Dernière intervention 11 juin 2021 - 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
Simple ocr - Télécharger - Bureautique
Iphone 14 simple - Guide
Simple file locker - Télécharger - Sécurité
@Echo off ✓ - Forum Programmation
Ouvrez ce fichier avec un éditeur de texte simple (bloc-notes, textedit, gedit, etc.) pour y découvrir le nom d’un objet. ✓ - Forum Études / Formation High-Tech

4 réponses

Réponse 1 / 4

yg_be Messages postés 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
11 juin 2021 à 11:25

bonjour,
veux-tu activer une autre cellule?

Réponse 2 / 4

rodger85230 Messages postés 8 Date d'inscription lundi 20 mai 2019 Statut Membre Dernière intervention 11 juin 2021
Modifié le 11 juin 2021 à 14:46

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 22698 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 avril 2024 1 471
11 juin 2021 à 14:54

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 lundi 20 mai 2019 Statut Membre Dernière intervention 11 juin 2021
Modifié le 11 juin 2021 à 17:02

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 lundi 20 mai 2019 Statut Membre Dernière intervention 11 juin 2021
11 juin 2021 à 19:14

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 ?

Bouton ON OFF, O ou I ?

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

symbole arrêt marche

Comment écrire le symbole On/Off

Discussions similaires

Newsletters