XL 2019 Pb Combobox

ChTi160

XLDnaute Barbatruc

• 11 Août 2021

• #2

Bonjour YGberard
Bonjour le Forum
Bienvenue sur XLD
Nous ne sommes pas des devins lol
Un petit fichier aiderait !
Je pense deviner quand même qu'il s'agit de ComBobox en cascades! Un bon début non?
Bonne journée
Jean marie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2021

• #3

Bonjour YGBerard, ChTi160,

YGBerard à dit:

J'ai un formulaire

Cliquez pour agrandir...

Nous pas.

A+

 

Vote positif 0 Vote négatif

Y

YGBerard

XLDnaute Nouveau

• 11 Août 2021

• #4

Bonjour

Voici le code de remplissage de la Combobox qui me pose probleme

Public Sub UserForm_Initialize()

'------ Liste statut véhicule -----
ReDim Tableau(UBound(Tab_statut))
With Etat
.List() = Tableau
Select Case N_Ope
Case Is = 0 'En consultation tous les statuts sont selectionnables
For Count = 0 To UBound(Tab_statut)
.List(Count) = Tab_statut(Count)
Next Count
Case Is = 1 'En ajout seuls les statuts : "En circulation", "Libre", "En commande"; sont selectionnables
.List(0) = Tab_statut(2)
.List(1) = Tab_statut(3)
.List(2) = Tab_statut(6)
Case Is = 3 'En modification tous les statuts sont selectionnables sauf "Hors flotte"
Count = 0
For j = 2 To UBound(Tab_statut)
.List(Count) = Tab_statut(j)
Count = Count + 1
Next j
End Select
End With
End Sub

 

Vote positif 0 Vote négatif

Y

YGBerard

XLDnaute Nouveau

• 11 Août 2021

• #5

Voici le parametrage de la combobox et sa position dans le formulaire

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Août 2021

• #6

Re
Bonjour YGberard
Si j'ai bien compris il faut que je reproduise ce Userform et y coller la procédure(il y a des balises qui permettent de formater le Code que tu affiches sur le Forum) que tu as fournit ?
Bonne Journée
Jean marie

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 11 Août 2021

• #7

Notre ami a visiblement du mal à comprendre ce qu'on attend de lui

 

Vote positif 0 Vote négatif

Y

YGBerard

XLDnaute Nouveau

• 11 Août 2021

• #8

Bonjour

Je ne peux pas copier tous le code ce serait trop long
Mais voici des captures d'ecran.

Le formulaire vierge, la liste est complete et normale

Je selectionne un plaque et la liste à changée

J'aimerai que les éléments restent constants

Clt

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Août 2021

• #9

Bonjour YGberard
y'a pas beaucoup de gens ici qui travaillent sur Photo
tu ne peux pas joindre un fichier avec seulement quelques lignes de données anonymisées et le Userform Concerné ?
si non pas de possibilité de t'aider : seul changement dans ta Liste c'est qu'il y a deux fois "En Circulation" ! comment veux tu que l'on trouve le pourquoi du Comment ?
dans l'attente
jean marie

 

Vote positif 0 Vote négatif

Y

YGBerard

XLDnaute Nouveau

• 11 Août 2021

• #10

Bonjour

En fait, chaque fois que selectionne un nouvelle plaque il rajoute la derniere valeur du champ "type" dans la liste du même nom.

clt

 

Vote positif 0 Vote négatif

Y

YGBerard

XLDnaute Nouveau

• 11 Août 2021

• #11

Bonjour

Voici le code du formulaire

Clt

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 11 Août 2021

• #12

Re
Ça ne doit pas être grand chose.
J'espère que tu trouveras!
Jean marie

 

Vote positif 0 Vote négatif