XL 2019 Afficher ou masquer commandbutton avec condition

pat66 à dit:

Bonsoir Le fil
Bonsoir Jacky67

J'ai un petit problème concernant la réinitialisation du bouton, je suis obligé de cliquer sur une cellule de la feuil1 pour qu'il disparaisse, saurais tu a quoi cela est dû ? sachant que je souhaite rester sur la Feuil2 car la saisie n'est pas terminée

merci d'avance

Pat66

Cliquez pour agrandir...

pat66 à dit:

Bonjour à tous,
effectivement Jacky pour réinitialiser la couleur il suffit de rajouter en feuil1 dans activate
If CommandButton1.Visible = False Then
Range("D12") = "B"
CommandButton1.BackColor = RGB(19, 31, 57)
CommandButton1.ForeColor = RGB(255, 192, 0)
End If
Range("A2").Select

merci à tous et belle journée

Cliquez pour agrandir...

pat66 à dit:

bonjour,
effectivement tu as raison, je me mélange les pinceaux et me complique l'existence par mon ignorance et heureusement que les experts que vous êtes nous filent un coup de main pour utiliser cet outil fabuleux qu'est excel

Ce que je souhaite obtenir c'est que lorsque je reviens sur la feuil1 après avoir testé plusieurs villes, le bouton même si il est apparent, car la nouvelle ville choisie fait partie de la liste, se réinitialise comme avec le double clic ci dessous

Précision qui, je viens de comprendre, peut avoir son importance :
D14 contient la formule suivante :=SI(D12="A";200;0)
et le but c'est que D14 soit à 0 lorsque je reviens sur la feuil1 mais seulement si changement de ville en feuil2 et qu'elle que soit cette ville

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.BackColor = RGB(19, 31, 57)
CommandButton1.ForeColor = RGB(255, 192, 0)
Range("D12") = "B"
End Sub

pour info:
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(0, 176, 80)
CommandButton1.ForeColor = RGB(255, 255, 255)
Range("D12") = "A"
End Sub

Un grand merci pour ton aide et ta patience

Pat66

Cliquez pour agrandir...

pat66 à dit:

oui je comprends c'est ce que je souhaite, que lorsque je reviens sur la feuil1 et parce que j'ai changé et choisis une autre ville de la liste, D12 = A et le bouton change couleur idem macro double clic pour indiquer que l'action du click n'est plus en fonction et que pour la réactiver il faut faire un clic sur le bouton

Cette macro rend le bouton visible ou indisible :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$6" Then
Application.EnableEvents = False
With Feuil1
If LCase([b6]) = "lyon" Or LCase([b6]) = "marseille" Or LCase([b6]) = "paris" Then
.CommandButton1.Visible = True
.[d12] = "A"
Else
.CommandButton1.Visible = False
.[d12] = "B"
End If
End With
Application.EnableEvents = True
End If
End Sub

mais ensuite le bouton a deux actions :
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(0, 176, 80)
CommandButton1.ForeColor = RGB(255, 255, 255)
Range("D12") = "A"
End Sub

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
CommandButton1.BackColor = RGB(19, 31, 57)
CommandButton1.ForeColor = RGB(255, 192, 0)
Range("D12") = "B"
End Sub

est ce possible ?

merci

Cliquez pour agrandir...