ma macro cacher un bouton marche pas

  • Initiateur de la discussion Initiateur de la discussion tactic6
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

tactic6

XLDnaute Impliqué
Bonjour le forum et tous les autres

n'ayant pas reçu de reponse pour ma question "condition" me suis dit que c'etait pas bon, alors j'ai essayé de trouver autre chose
j'ai pensé à cacher le bouton qui n'avait rien à faire sur la feuille de travail
j'ai trouvé ceci
Code:
Private Sub Workbook_Open()

Dim FACTURE As String, FACTUREOK As Range
Autor = Application.UserName
Set FACTUREOK = Worksheets("Facture").Range("G6").Find(FACTURE)
    If Not FACTUREOK Is Nothing Then
        Sheets(1).CommandButton1.Visible = True
        Else
        Sheets(1).CommandButton1.Visible = False
    End If
End Sub

ouais mais ça marche pas !!!
pourquoi ???

FACTURE étant le nom de la cellule G6
et Facture le nom de la feuille

@+
 
Re : ma macro cacher un bouton marche pas

Salut Tactic6, le Forum

peut-être comme cela

Code:
Private Sub Workbook_Open()

Dim FACTURE As String, FACTUREOK As Range
Autor = Application.UserName
Set FACTUREOK = Worksheets("Facture").Range("G6").Find([B][COLOR=Red]"[/COLOR][/B]FACTURE[COLOR=Red][B]"[/B][/COLOR])
    If FACTUREOK Is Nothing Then
        Sheets(1).CommandButton1.Visible = True
            Else
        Sheets(1).CommandButton1.Visible = False
    End If
End Sub
T'a oublié les parenthèses 🙄

Bonne Journée
 
Re : ma macro cacher un bouton marche pas

Re tactic, le Fil

Reprenons tout depuis le début: parce que pas tout compris
Ce que j'ai compris moi tout seul itou:😕

la feuille s'ouvre, je répète, à l'ouverture de la feuille (Événementiel)

1/ Il y a quelque chose en G6 le CommandButton est Invisible
2/ Il n'y a rien en en G6 Le CommandButton est Visible

1er cas de Figure
pour que le Bouton soit visible:
1/ Enlève ce qu'il y a en G6
2/ Vire le code

ou Alors
2ème cas de Figure

Déplace le code vers le Module de la Feuille
1/ Soit sur un Autre CommandButton
2/ Un dans autre code événementiel
Code:
Private Sub Worksheet_Change(ByVal Target As Range
par exemple

3ème cas de figure

j'ai rien compris du tout 😛 et tu reprends tes explications peut-être avec un exemple...

Bonne Journée
 
Re : ma macro cacher un bouton marche pas

Re
peut être que ce que je veux n'est pas réalisable (c'est aussi une solution😀😀)

Prenons une cellule G6
Prenons 2 boutons crées via insertion de forme
- a chaque bouton correspond une macro le bouton facture et le bouton devis
ce que je voudrais c'est:
j'écris dans la cellule G6 DEVIS N° et hop le bouton facture disparait

j'efface ce qu'il y a écris dans G6 les 2 boutons apparaissent ou disparaissent peu importe

j'écris dans la cellule G6 FACTURE N° et c'est le bouton devis qui disparait

Faisable😕 ou pas faisable 🙁
 
Dernière édition:
Re : ma macro cacher un bouton marche pas

bonsoir tactic6,
Je t'ai répondu sur l'autre fil, que sans ton fichier, il était difficile de modifier la macro, ne serait ce que pour tester les modifications. Tu n'as pas donné suite !
Dans l'attente..
A+
kjin
 
Re : ma macro cacher un bouton marche pas

Re,
J'ai oublié:
Pour ton pb de bouton, essaies plutôt une macro événementielle

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Visible = IIf(Range("G6").Value = "facture", 1, 0)
CommandButton2.Visible = IIf(Range("G6").Value = "devis", 1, 0)
End Sub


Je ne sais pas à quels boutons correspondent facture et devis, donc rectifies si nécessaire
A+
kjin
 
Dernière édition:
Re : ma macro cacher un bouton marche pas

Bonsoir Tactic, Kjin, Justine, sans oublier les autres.

Une tactique pour garder la forme donc les formes.


remarque : m'en étais tenu au titre, comme quoi tout détail à son importance. Kjin tu as raison et on ne sera jamais assez pour réclamer un fichier joint.
Bonsoir Dull (que j'avais oublié).
 

Pièces jointes

Dernière édition:
Re : ma macro cacher un bouton marche pas

Reponse à tactic6,
Simplement, ça évitait à un certain nombre d'entre nous de répondre à coté, dans la mesure où à aucun moment tu n'a indiqué que tes boutons étaient dans un formulaire.
Voilà à quoi ça sert un fichier !
Sans rancune aucune
Merci à toi justine
A+
kjin
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
409
Réponses
5
Affichages
379
Retour