Microsoft 365 Faire apparaitre liste suivant critère dans une combobox.

job75

XLDnaute Barbatruc

• 3 Décembre 2021

• #2

Bonjour frasylest,

frasylest à dit:

J'aimerai que lorsque je saisie, (bouton INSCRIPTION), dans "département/pays pays" les ETATS-UNIS, une liste s'ouvre avec les ETATS qui le compose (Californie - Nevada etc ...).

Cliquez pour agrandir...

On peut utiliser une ComboBox supplémentaire CboEU avec le code dans UsfNew :

VB:

Private Sub CboDept_Change()
If CboDept Like "ETATS UNIS*" Then CboEU.Height = 2: CboEU.Visible = True: CboEU.SetFocus: CreateObject("WScript.Shell").SendKeys "%{DOWN}"
End Sub

Private Sub CboEU_Change()
If CboEU.ListIndex > -1 Then CboDept = "Etats Unis - " & CboEU
CboEU.Visible = False
End Sub

A+

 

Pièces jointes

• Collection-dé copie.xlsm

  625.5 KB · Affichages: 6

Vote positif 0 Vote négatif

frasylest

XLDnaute Nouveau

• 3 Décembre 2021

• #3

Bonjour, excellent travail, c'est le but que je recherchais mais comme REGION/CONTINENT et CP/IND sont conditionnés à DEPARTEMENT/PAYS, je n'ai plus de correspondance. J'étudie cela. Ou est il possible de l'enregistrer dans une autre colonne (ex: en colonne Q). Merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2021

• #4

Là vous manquez d'imagination, dans la feuille "collection" voyez les formules en G2 et H2 :

Code:

=SIERREUR(RECHERCHEV(SI(ESTNUM(TROUVE("-";F2));GAUCHE(F2;TROUVE("-";F2)-2)&"*";F2);base;3;0);"")

=SIERREUR(RECHERCHEV(SI(ESTNUM(TROUVE("-";F2));GAUCHE(F2;TROUVE("-";F2)-2)&"*";F2);base;2;0);"Z")

Et voyez le numéro 54 en ligne 55.

 

Pièces jointes

• Collection-dé copie.xlsm

  626.7 KB · Affichages: 4

Vote positif 0 Vote négatif

Solution

frasylest

XLDnaute Nouveau

• 3 Décembre 2021

• #5

Merci beaucoup, vous avez mis en pratique ce que je pensais, et vous ne manquez pas d'humour en disant -"Là vous manquez d'imagination"-, merci, merci et encore merci, et en si peu de temps en plus, bravo, cordialement et au plaisir si éventuellement j'ai d'autres soucis excel, Sylvain

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Décembre 2021

• #6

Vous croyez normal de mettre en solution votre post #5 ???

J'espère que c'est une erreur et que vous la corrigerez.

 

Vote positif 0 Vote négatif

frasylest

XLDnaute Nouveau

• 4 Décembre 2021

• #7

Une erreur quand on n'a pas l'habitude, c'est compréhensible, non ?

 

Vote positif 0 Vote négatif