Discussion :

[jumpman]

Bonjour,
j alimente mes combobox comme ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
For j = 3 To 8
For i = 2 To Sheets("liste").Range("m2") + 1
    With info.Controls("ComboBox" & j)
    .AddItem Sheets("liste").Range("b" & i)
End With
Next
Next

Le probleme: quand j utilise ma combobox mes donnees sont doublées, en fait j ai 2 fois la liste. Pourtant j ai bien qu une seule liste dans ma colonne b de ma feuille liste!!!!
Avez vous une idée svp?

[ouskel'n'or]

Sans connaître ce qu'il y a dans Sheets("liste").Range("m2") ? Ça va être difficile Mais je suppose que c'est bien là que se situe le pb

[ucfoutu]

Bonjour (et un salut à ousk)..

J'ajouterais bien volontiers : et sans connaître l'évènement qui utilise ce code ...

[ucfoutu]

J'aimerais vraiment alors voir toutes les procédures évènementielles présentes et concernant ton userform (celui que tu montres par Show).
J'aimerais également savoir si tu caches (Hide) et remontres (Show) ou recharges (Load).
Bref et d'une manière générale :
Si ta combo est remplie deux fois, c'est que le code montré s'exécute deux fois !.... (c'est la seule explication plausible, à moins que ta liste (sur ta feuille) ne soit elle-même "double" ...)

PS : tiens ! on va le savoir ...
Transforme donc ton code du click sur ton bouton ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
For j = 3 To 8
  info.Controls("ComboBox" & j).Clear

  For i = 2 To Sheets("liste").Range("m2") + 1
    With info.Controls("ComboBox" & j)
      .AddItem Sheets("liste").Range("b" & i)
   End With
  Next
Next

[jumpman]

D une maniere generale, quand je lance pour la premiere fois mon userform, la liste est doublée. Je quitte en cliquant sur la croix rouge puis relance mon userform est là ca marche.
J ai verifié en mode debbug F8 ma boucle s effectue qu une fois mais le resultat est le meme.
J ai donc pensé a un clear de ma combobox avant de l alimenter mais mon code etait :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For j = 3 To 8
info.Controls("ComboBox" & j)=""
next

Là encore ca planté.
Cependant avec info.Controls("ComboBox" & j).Clear ca a lair de marcher
Merci en tout cas pour ton aide

[ucfoutu]

= ''" ne "clear" pas mais n'efface que ce qui se trouve dans la zone éditable !!
Clear efface toute la liste
Or, nous dis-tu, ça marche avec Clear...
Conclusion ? ===>>> c'est lancé deux fois en raison d'un évènement... (je m'en doutais). Re'ste à deviner... puisque tu n'as pas répondu avec précision aux questions posées.

Ca marche avec le Clear (comme je te le proposais) ? et tu t'en contentes ? ... Pas moi...

[jumpman]

Donc:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("liste").Range("m2") =NBVAL(B:B)-1

et dans B ma liste prevu mon ma combobox.

Bonjour (et un salut à ousk)..

J'ajouterais bien volontiers : et sans connaître l'évènement qui utilise ce code ...

j appuie sur un bouton qui lance cette sub puis affiche le userform info

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

info.show