Desactiver combobox après selection

Fermé

Tinco Messages postés 134 Date d'inscription dimanche 28 avril 2013 Statut Membre Dernière intervention 4 avril 2021 - 14 juin 2013 à 11:15
blux Messages postés 26543 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 21 décembre 2024 - 19 juin 2013 à 09:33

Bonjour,

Me revoilà encore, je voudrais faire désactiver une combobox dans un formulaire après que l'utilisateur ait choisis un choix dans la liste déroulante de cette dernière :

1 un message s'affiche l'avertissant s'il est sure de son choix avec un bouton "Oui" qui confirme le choix et donc la combo est désactivée pour toujours en retenant le choix que l'utilisateur a fait ! et s'affichera partout !
2 un bouton Annuler dans le message qui s'affiche pour laisser la combo active jusqu'a ce que l'utilisateur ait fait son choix !

Es ce possible une telle chose ? le code VBA aura quelle forme ?

Merci a tous

PS: la combo s'appelle Cboetab et elle contien 3772 choix possible :)

A voir également:

Desactiver combobox après selection
Desactiver instagram - Guide
Desactiver windows defender - Guide
Mode securise android desactiver - Guide
Desactiver uac - Guide
Desactiver edge - Guide

1 réponse

Réponse 1 / 1

blux Messages postés 26543 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 21 décembre 2024 3 318
14 juin 2013 à 13:29

Salut,

tu vas mettre ce code dans l'évènement 'sur changement' de ta zone de liste :

Rep = MsgBox("Confirmez-vous votre choix ?", vbYesNo, "Validation...")
If Rep = vbYes Then
    Cboetab.Locked = True
End If

Ca empêchera de sélectionner une valeur, mais la liste s'affichera quand même. Si tu veux que la combo soit réellement inactive (aucune action sur clic), tu mettras également

Cboetab.Enabled = False

dans le test.

Tinco Messages postés 134 Date d'inscription dimanche 28 avril 2013 Statut Membre Dernière intervention 4 avril 2021 2
Modifié par Tinco le 14/06/2013 à 16:29

Salut Blux
Merci de ta réponse, la première partie de ton code marche a merveille.....Mille mérci :)

C'est la seconde partie que VBA refuse, quand je fait un teste il m'indique un message d'erreurs disant :"You can't Desable a Control while it's On Focuse" ....Apriori faudrait désactiver la combo après que le Focus soit sur un autre champ ou combo...enfin ailleurs quoi :)

Plus, la valeur choisit ne réapparait plus après l'insertion, je souhaite qu'elle soit là comme une valeur absolue dans tous les enregistrements suivant cette première action ...es ce possible ?

blux Messages postés 26543 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 21 décembre 2024 3 318
17 juin 2013 à 10:48

Oublie le .enabled pour l'instant.

Je n'ai pas compris :
la valeur choisit ne réapparait plus après l'insertion
De quelle insertion parles-tu ?

Tinco Messages postés 134 Date d'inscription dimanche 28 avril 2013 Statut Membre Dernière intervention 4 avril 2021 2
17 juin 2013 à 17:28

Disons que dans la combo que a laquelle je veut faire cette manipulation contient le nom d'un utilisateur, une fois que l'utilisateur a choisit son nom dans la combo .....son nom reste apparent même s'il referme la BD et la réouvre, son nom est toujours la dans cette combo, Fixe, inchangeable .......et par la même occasion ce nom qui reste la comme fixe, réapparait aussi dans la table qui va contenir ces noms ......je sais pas si je m'exprime clairement !! loll

blux Messages postés 26543 Date d'inscription dimanche 26 août 2001 Statut Modérateur Dernière intervention 21 décembre 2024 3 318
17 juin 2013 à 17:35

Ah ben là, c'est autre chose...
A part stocker la valeur dans une table que l'on va relire à chaque ouverture, je ne vois pas...

Tinco Messages postés 134 Date d'inscription dimanche 28 avril 2013 Statut Membre Dernière intervention 4 avril 2021 2
17 juin 2013 à 22:45

Ben en gros, c'est ça :)

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Désactiver une touche du clavier : possible ?

Message "Un bloqueur de publicité empêche la lecture..."

Excel: Retourner une sélection