Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment activer ou désactiver le bouton basé sur la valeur de la cellule dans Excel?

Cet article, je vais parler de certaines méthodes pour activer ou désactiver le bouton en fonction de la valeur de la cellule dans la feuille de calcul Excel.

Activer ou désactiver deux boutons basés sur deux données de colonne avec le code VBA

Activer ou désactiver un bouton basé sur deux valeurs de cellule avec le code VBA


Activer ou désactiver deux boutons basés sur deux données de colonne avec le code VBA


Par exemple, j'ai deux boutons de commande dans une feuille de calcul, si la colonne A contient des données, le bouton 1 est activé et le bouton 2 est désactivé; si la colonne C contient des données, le bouton 2 est activé, et le bouton 1 est désactivé. Pour résoudre cette tâche, le code VBA suivant peut vous aider.

1. Cliquez avec le bouton droit sur la feuille contenant les boutons, puis choisissez Voir le code à partir du menu contextuel, voir capture d'écran:

2. Dans le Microsoft Visual Basic pour applications fenêtre, copiez et collez le code ci-dessous dans le module vide:

Code VBA: Activer ou désactiver deux boutons basés sur deux colonnes:

Private Sub Worksheet_Change(ByVal Target As Range)
    CommandButton1.Enabled = False
    CommandButton2.Enabled = False
    If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
        CommandButton2.Enabled = True
    End If
    If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
        CommandButton1.Enabled = True
    End If
End Sub

Note: Dans le code ci-dessus, CommandButton1 et CommandButton2 sont les noms des boutons, A: A et C: C sont les deux colonnes que vous utilisez pour activer ou désactiver deux boutons, s'il vous plaît les changer à votre besoin.

3. Ensuite, enregistrez et fermez la fenêtre de code, maintenant, vous obtiendrez le résultat suivant selon vos besoins:

(1.) Si vous tapez des données dans la colonne A, le bouton 1 est activé et le bouton 2 est désactivé, voir capture d'écran:

(2.) Si vous tapez des données dans la colonne C, le bouton 2 est activé et le bouton 1 est désactivé, voir capture d'écran:

(3.) La colonne A et la colonne C contiennent toutes deux des données, deux boutons sont tous activés, voir capture d'écran:

(4.) Deux boutons sont tous désactivés s'il n'y a pas de données dans la colonne A et la colonne C, voir capture d'écran:


Activer ou désactiver un bouton basé sur deux valeurs de cellule avec le code VBA

Si vous souhaitez activer ou désactiver un bouton de commande basé sur deux valeurs de cellule, par exemple lorsque la valeur dans A1 est supérieure à la valeur dans B1, le bouton est activé, sinon, le bouton est désactivé. Le code VBA suivant peut également vous faire une faveur.

1. Cliquez avec le bouton droit sur la feuille contenant le bouton, puis choisissez Voir le code à partir du menu contextuel, dans le Microsoft Visual Basic pour applications fenêtre, s'il vous plaît copiez et collez le code ci-dessous dans le module vide, voir capture d'écran:

Code VBA: Activer ou désactiver un bouton basé sur deux valeurs de cellule:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim TargetAdd As String
    Dim xTemp As Double
    On Error GoTo ExitSub
    TargetAdd = Target.Address
    CommandButton1.Enabled = False
    If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
        If Range("A1") > Range("B1") Then
            CommandButton1.Enabled = True
        End If
    End If
ExitSub:
End Sub

Note: Dans le code ci-dessus, A1 et B1 sont les valeurs de cellules que vous utilisez, CommanButton1 est le nom du bouton, remplacez-le par le vôtre.

2. Puis enregistrez et fermez la fenêtre de code, maintenant, si la valeur de cellule dans A1 est supérieure à B1, le bouton est activé, sinon, si la valeur de cellule dans A1 est inférieure à B1, le bouton est désactivé, voir capture d'écran:



Outils de productivité recommandés

Office Tab

étoile d'or1 Apportez des onglets pratiques à Excel et à d'autres logiciels Office, tout comme Chrome, Firefox et Internet Explorer.

Kutools for Excel

étoile d'or1 Incroyable! Augmentez votre productivité dans les minutes 5. Ne nécessite pas de compétences particulières, économisez deux heures par jour!

étoile d'or1 300 Nouvelles fonctionnalités pour Excel, rendent Excel facile et puissant:

  • Fusionner des cellules / lignes / colonnes sans perdre de données.
  • Combiner et consolider plusieurs feuilles et classeurs.
  • Comparez les gammes, copiez plusieurs gammes, convertissez le texte en date, l'unité et la conversion de devise.
  • Compter par couleurs, sous-totaux de recherche, tri avancé et super filtre,
  • Plus Sélectionner / Insérer / Supprimer / Texte / Format / Lier / Commenter / Classeurs / Feuilles de calcul Outils ...

Capture d'écran de Kutools pour Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 2 months ago
    I receive a "Expected Function or variable" error when I incorporate this code - could you show the code you set up for the two buttons? May help me solve the error.