Note: The other languages of the website are Google-translated. Back to English
Se connecter  \/ 
x
or
x
INSCRIPTION  \/ 
x

or

Comment masquer ou afficher un bouton de commande en fonction de la valeur de cellule spécifiée dans Excel?

Supposons que vous utilisez un bouton de commande pour déclencher un script VBA dans votre feuille de calcul. Lorsque le script VBA n'est pas utilisé dans certains cas, vous devez masquer le bouton de commande au lieu de l'afficher dans la feuille de calcul. Et affichez-le à nouveau lorsque le script VBA est nécessaire. Cet article parle de masquer ou d'afficher un bouton de commande en fonction d'une valeur de cellule spécifiée dans Excel. Veuillez faire comme suit.

Masquer ou afficher un bouton de commande en fonction de la valeur de cellule spécifiée avec le code VBA


Masquer ou afficher un bouton de commande en fonction de la valeur de cellule spécifiée avec le code VBA


Vous pouvez exécuter le code VBA ci-dessous pour masquer ou afficher un bouton de commande en fonction de la valeur de cellule spécifiée dans Excel.

1. Cliquez avec le bouton droit de la souris sur l'onglet de la feuille contenant le bouton de commande que vous devez afficher, puis cliquez sur Voir le code dans le menu contextuel.

2. Dans le pop-up Microsoft Visual Basic pour applications fenêtre, copiez et collez le code VBA ci-dessous dans le Code fenêtre.

Code VBA: masquer ou afficher un bouton de commande en fonction de la valeur de cellule spécifiée

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

Notes: dans le code, Cellules (1, 1), 1 à ces émotions et de CommandButton1 indiquent que le CommandButton1 sera masqué lorsque la cellule A1 contient le numéro 1 et affiché si la cellule A1 contient toutes les autres valeurs sauf le numéro 1. Voir la capture d'écran ci-dessous. Et vous pouvez les modifier en fonction de vos besoins.


Articles connexes:


Les meilleurs outils de productivité de bureau

Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe; Créer une liste de diffusion et envoyer des e-mails ...
  • Barre Super Formula (modifiez facilement plusieurs lignes de texte et de formule); Disposition de lecture (lire et modifier facilement un grand nombre de cellules); Coller dans la plage filtrée...
  • Fusionner les cellules / lignes / colonnes sans perdre de données; Contenu des cellules divisées; Combiner des lignes / colonnes en double... Empêcher les cellules en double; Comparer les gammes...
  • Sélectionnez Dupliquer ou Unique Lignes; Sélectionnez les lignes vides (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux classeurs; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de formule; Créer automatiquement des références à plusieurs feuilles; Insérer des puces, Cases à cocher et plus encore ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre le contenu et les commentaires des cellules...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial par gras, italique ...
  • Combiner des classeurs et des feuilles de travail; Fusionner les tableaux en fonction des colonnes clés; Diviser les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus de 300 fonctionnalités puissantes. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Essai gratuit de 30 jours. Garantie de remboursement de 60 jours.
onglet kte 201905

Office Tab apporte une interface à onglets à Office et simplifie considérablement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
bas de cabine
Say something here...
symbols left.
You are guest
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.
    lol · 4 months ago
    hola, el codigo esta bien? es que no me funciona y ya intente varias cosas para que funcione y nana, ayuda por favor es que lo necesito para algo importante  :c
  • To post as a guest, your comment is unpublished.
    Jordan · 5 months ago
    For some reason after the button go from invisible back to visible, the button no longer works. If I alt + F11 into the code select the XXX() sub and run with F5 the code works for my macro. Why doesn't it work when i click the button anymore? in properties 'Enabled' is set to true
  • To post as a guest, your comment is unpublished.
    sdf · 8 months ago
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
    Me.Shapes("Button 1").Visible = True
    Else
    Me.Shapes("Button 1")
    End If
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Et41 · 1 years ago
    Hello

    I am new to VBA, I have put this code into a new Excel. One CommnadButton, on Sheet1 but the code doesnt work.

    Do I have to do anything before this?


    Thanks in Advance
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    Use the ActiveX Control Button.
  • To post as a guest, your comment is unpublished.
    Bryce · 3 years ago
    I've put this code in and entered my button name (Finish), referenced the reference cell (P11 - 16, 11) but every time I make a change to the reference cell (P11) I get a compile error and it highlights the ".Finish" section of the code, seemingly meaning the button name I entered "Finish" is not found on the worksheet. I've confirmed, both in the drop down area to the left of the formula bar and in the "define name" area on the Formula tab that my button name is, in fact, "Finish", but it still does not work.


    Any help?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Bryce,
      I changed the button name to "Finish" in my worksheet, and it works well without any error displaying.
      Do you mind testing the code in a new blank workbook?
      Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    sebastian · 3 years ago
    hola que tal, tengo un boton con macro, que me devuelve a una hoja 'menu', pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


    saludos.-
    • To post as a guest, your comment is unpublished.
      Andreas · 5 months ago
      Hola Sebastia,

      Dónde debería mostrarse?
      - Uno es la hoja de menú
      - El botón está integrado en una hoja diferente, no?