Userform - masquer le bouton de commande sous condition

[Choup34]

Bonjour à tous,

Je suis débutante dans le VBA, je tiens à le préciser...

Voilà j'ai créer une base de données avec un USERFORM sur Excel 2010.

Les données de mon USERFORM s'affichent après une recherche du nom dans ma base via une COMBO BOX.

J'ai ensuite deux boutons de commande:

METTRE A JOUR ou ENREGISTRER UN NOUVEAU CONTACT.

Mon problème;

Je souhaiterai que mon bouton de commande METTRE A JOUR ne s'affiche qu'à la condition que le contact ait été récupéré de la base de données.

Inversement, j'aimerai que le bouton de commande ENREGISTRER UN NOUVEAU CONTACT ne s'affiche qu'à la condition que le contact ne fasse pas déjà parti de ma base.

Pour l'instant mes deux boutons de commande s'affichent et fonctionnent très bien.
Mais je souhaite créer cette condition car lorsque mon contact fait déjà parti de ma base et que je souhaite mettre à jour ma fiche mais que par inadvertence je clique sur le bouton de commande ENREGISTRER NOUVEAU CONTACT... il me supprime l'occurrence située 4 lignes en dessous de ce contact et le remplace en créant un doublon (j'espère avoit été compréhensible).

Je vous remercie par avance !

 

[camarchepas]

Re : Userform - masquer le bouton de commande sous condition

Bonsoior ,

Sans la disposition de ta base de données , la réponse restera évasive .

Tout dépend également comment tu alimentes ton userform. choix du nom prénom dans combobox, dans ce cas le list indexe doit être à la valeur de la position de l'item choisi donc si list indexe >-1 alors c'est une mise à jour , sinon c'est une création .

Voilà , le début de piste que je peux te donner , car sans fichier jamais évidant de tout capter .

 

[job75]

Re : Userform - masquer le bouton de commande sous condition

Bonjour Choup34, bienvenue sur XLD, hello camarchepas,

C'est au niveau de la macro Change de la Combobox qu'il faut agir.

Montrez-nous le code, et mieux, le fichier.

A+

 

[job75]

Re : Userform - masquer le bouton de commande sous condition

Re,

Si METTRE A JOUR => CommandButton1

et ENREGISTRER UN NOUVEAU CONTACT => CommandButton2

utiliser :

Private Sub ComboBox1_Change()
CommandButton1.Visible = ComboBox1.ListIndex > -1
CommandButton2.Visible = ComboBox2.ListIndex = -1
'-----
End Sub

Au lieu de la propriété .Visible on peut aussi utiliser .Enabled

A+

 

[Choup34]

Re : Userform - masquer le bouton de commande sous condition

Bonsoir à tous !

Merci job75 ça fonctionne du tonnerre !!!

Merci également à camarchepas d'avoir pris le temps de me répondre !

A bientôt