[vba Excell] Alleger Les Codes Combobox

BONJOUR,
je suis sur excel et j'utilise plusieurs combobox nommées cbox( 35 pour les chiffrées) liées entre elles par le code suivant

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

cbox1.Text = cbox1.List(cbox1.ListIndex) cbox2.Text = cbox2.List(cbox1.ListIndex) cbox3.Text = cbox3.List(cbox1.ListIndex) cbox4.Text = cbox4.List(cbox1.ListIndex) cbox5.Text = cbox5.List(cbox1.ListIndex) cbox6.Text = cbox6.List(cbox1.ListIndex) cbox7.Text = cbox7.List(cbox1.ListIndex) cbox8.Text = cbox8.List(cbox1.ListIndex) cbox9.Text = cbox9.List(cbox1.ListIndex) cbox10.Text = cbox10.List(cbox1.ListIndex) cbox11.Text = cbox11.List(cbox1.ListIndex) cbox12.Text = cbox12.List(cbox1.ListIndex) cbox13.Text = cbox13.List(cbox1.ListIndex) cbox14.Text = cbox14.List(cbox1.ListIndex) cbox15.Text = cbox15.List(cbox1.ListIndex) cbox16.Text = cbox16.List(cbox1.ListIndex) cbox17.Text = cbox17.List(cbox1.ListIndex) cbox18.Text = cbox18.List(cbox1.ListIndex) cbox19.Text = cbox19.List(cbox1.ListIndex) cbox20.Text = cbox20.List(cbox1.ListIndex) etc......

---

et ceci pour les 35 private sub cbox35_click()



je souhaiterai faire une sorte de boucle avec un variable j
de telle sorte que

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

dim namebox as string For j= 1 to 35 Private Sub namebox_click() cbox1.Text = cbox1.List(namebox.ListIndex) cbox2.Text = cbox2.List(namebox.ListIndex) cbox3.Text = cbox3.List(namebox.ListIndex) cbox4.Text = cbox4.List(namebox.ListIndex) cbox5.Text = cbox5.List(namebox.ListIndex) cbox6.Text = cbox6.List(namebox.ListIndex) cbox7.Text = cbox7.List(namebox.ListIndex) cbox8.Text = cbox8.List(namebox.ListIndex) cbox9.Text = cbox9.List(namebox.ListIndex) cbox10.Text = cbox10.List(namebox.ListIndex)

---

de telle maniere à eviter 35 lignes pour les 35 cbox soit au moins 1225 lignes de saisies

salut,

oui par une boucle for

du style :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'cbox1.Text = cbox1.List(cbox1.ListIndex)   for i=1 to 35   namelist="cbox" & i debug.print namelist   namelist.Text=namelist.List(namelist.Listindex)   next i

---

un truc du genre , mais j'ai pas essayé ;)

Déjà, l'appel à une procédure commune dans tes différents événements te permettrait de réduire drastiquement le nombre de lignes de code.

De plus, où en es-tu de ta gestion de ComboBox par des variables?

BONJOUR AlainTech

Citation:

---

où en es-tu de ta gestion de ComboBox par des variables?

---

JE PENSE METTRE SORTI D AFFAIRE GRACE AU FORUM ET SES MODERATEURS :yaisse2:

Je joins le dit fichier pour verif.....
maintenant je cherche alleger mes codes .....

merci pour ton code megapacman mais en l'appliquant j'ai un message d'erreur qualificateur :aie: :aie: :aie:

Oui, megapacman a simplement oublié qu'on ne peut pas utiliser ainsi la variable namelist de son code... mais tu devrais être au courant et avoir corrigé ;)

Code:

---

UserfomN.Controls(namelist)=UserfomN.Controls(namelist).List(UserfomN.Controls(namelist).Listindex))

---

"peut peut-être fonctionner :(
Tu vérifies pour nous ?
A+

megapacman dit :

Citation:

---

un truc du genre , mais j'ai pas essayé

---

oui c'est vrai j'ai pas testé mais maintenant moi aussi je le saurai ;)

Code:

---

1 2	de ouskel'n'or UserfomN.Controls(namelist)=UserfomN.Controls(namelist).List(UserfomN.Controls(namelist).Listindex))

---

Encore un code qui me depasse :vomi:

Au lieu de nous faire profite de tes dernières agapes, dis-nous plutôt ce que tu ne comprends pas ;)
A+

comment appliquer le code et ou le placé ?? :marteau:

sachant que mon userform = grille
mes combobox = cbox
dois je faire une boucle ?

je comprends pas il est censé faire quoi ce code :

Code:

---

1 2	cbox1.Text = cbox1.List(cbox1.ListIndex)

---

Citation:

---

Envoyé par AlainTech

Déjà, l'appel à une procédure commune dans tes différents événements te permettrait de réduire drastiquement le nombre de lignes de code.

---

megapacman, de son côté, t'a donné un exemple de procédure commune qui allègera ton code en t'évitant de répéter x fois les mêmes lignes.
De mon côté à moi, j'ai juste corrigé l'utilisation que faisait megapacman de la variable utilisée comme nom de listbox.
Tu relis tout bien...
A+

Citation:

---

de BBIL
je comprends pas il est censé faire quoi ce code :

Code :

cbox1.Text = cbox1.List(cbox1.ListIndex)

---

avec ce code j initialise toute mes combobox en un click
ex si je click sur cbox1 ( ma combobox1 ) pour selectionner la 5 eme ligne par exemple la valeur des autres combobox me montrerant egalement leurs cinquieme ligne

Ouf !
Alors ce n'est pas ce que tu dois écrire... Essaie ça

Code:

---

ListBox1.ListIndex = ListBox2.ListIndex

---

Tu adaptes les noms ;)
A+

j'ai essaye le code

Code:

---

cbox1.ListIndex = cbox2.ListIndex = cbox3.ListIndex = cbox4.ListIndex

---

mais lorsque je lance l'userform je n'ai aucune correpondance entre les combobox

Quand tu écris ça,

Citation:

---

cbox1.ListIndex = cbox2.ListIndex = cbox3.ListIndex

---

tu dis si "cbox2.ListIndex = cbox3.ListIndex" alors cbox1.ListIndex = -1 sinon 0
si tu ajoutes d'autres cbox, chais pas ce kispasse...:mouarf:
Fais une procédure paramétrée "Sub laprocédure(Lindex)" que tu appelles depuis chaque click de tes listbox en indiquant le "listindex" de listbox appelante
Là, il y a deux solutions : Ou toutes tes listbox sont concernées ou seulement certaines. Je te donne la solution si seules certaines de tes listbox sont concernées, celles dont le nom commencent par cbox. Tu peux en avoir d'autres non concernées. Dans le cas contraire, on verra + tard
Dans ta sub, tu mets

Code:

---

1 2 3 4 5 6

Sub laprocédure(Lindex) For each LeControl in Userform1.controls if instr(LeControl.name,cbox) = 1 then Userform1.controls(LeControl.name).listindex = Lindex endif Next

---

Pour appeler cette procédure, une ligne dans le clic de tes listbox

Code:

---

laprocédure cboxn.listindex

---

où n est le N° de la listbox
Si toutes les listbox sont concernées, il y a une autre manière de procéder mais il me manque des infos. Silky avait indiqué le moyen d'utiliser le type du control mais j'ai oublié la syntaxe.
Tu testes déjà ça et tu nous dis ;)
A+

merci je teste ça et vous tiens au courant:king:

manque (au moins) des " dans code à ousk...:

Code:

---

... if instr(LeControl.name,"cbox") = 1 then....

---

Merci Je Rectifie ;) ;)


:alerte: :alerte: :merci: :merci: :alerte::alerte:


GRACE A LA " procedure " CA MARCHE NICKEL CHROME:rire: :rire: :rire:

J'ai juste defini

Code:

---

dim lecontrol as objet

---

et ça tourne!!!!!:resolu: :resolu: :resolu:


un grand merci à vous tous et surtout ouskel'nor bbil alaintech....