Combobox

[tallia64]

Bonsoir je travaille dans un userform où j'ai deux combobox déroulantes l'une qui gère des catégories "visiteur,hotellerie" l'autre des numéros de badge "1...66". Quand je sélectionne la catégorie visiteur et que je choisis le badge ex "2" pas de problème par contre je voudrais quand je choisis la catégorie "hotellerie" et que je choisis aussi le badge 2 qu'il s'affiche avec un petit H devant afin de pouvoir les différencier lors de la sortie. Est ce que cela est possible ?
Je vous remercie d'avance. Bonne soirée.
Tallia64 🙂

 

[CBernardT]

Re : Combobox

Bonsoir tallia64,

Eh il est où l'extrait du classeur sur lequel on pourra réfléchir pour t'apporter l'aide désirée, hein ! je pose la question ? 🙄🙄

Cordialement

Bernard

 

[tallia64]

Re : Combobox

Bonsoir désolée voici mon fichier qui se compose de deux userforms "entree" et "sortie" les deux combobox "categories et badge" sur situe dans "entree". Je vous remercie pour votre aide.
tallia 64

http://cjoint.com/?evnKwL5BwU

 

[CBernardT]

Re : Combobox

Re,

Une macro évènementielle a été ajoutée afin de modifier les valeurs de la Combobox BADGE en fonction de la valeur affichée dans la Combobox CATEGORIE.


http://cjoint.com/?evpcWWKpU8

Cordialement

Bernard

 

[tallia64]

Re : Combobox

Bonjour CbernardT merci pour votre aide je viens de tester mais l'application se met en mode debogage et me selectionne "BADGE.AddItem CStr("h" & i)". Je vais aller revoir le code.
Bonne journée Tallia 64

 

[CBernardT]

Re : Combobox

Bonsoir tallia64,

J'ai vu qu'il y a un problème !

Après avoir regardé tous les codes présents, il semble qu'il ya beaucoup de choses à revoir. Trop de macro évènementielles qui s'imbriquent. C'est une usine à gaz !

Pour le changement de catégories, je te propose de réaliser ce changement avec une colonne de la feuille base. Par exemple en Colonne J mais actuellement elle est protégée par un mot de passe....

La macro serait :

Private Sub CATEGORIES_Change()
If CATEGORIES <> "HOTELLERIE" or CATEGORIES = "" Then
BADGE.RowSource = "BASES!G1:G" & Sheets("BASES").Range("G1000").End(xlUp).Row
Else
BADGE.RowSource = "BASES!J1:J" & Sheets("BASES").Range("J1000").End(xlUp).Row
End If
End Sub

Cordialement

Bernard

 

[tallia64]

Re : Combobox

Je vous remercie pour le code je sais que mon application comporte de gros défaut mais je débute en vba. Je vais tester votre code. je vous remercie.
Tallia64