Procedure trop longue, trop de données... Fermé

Question

Bonjour, 

je souhaite faire un formulaire pour trouver des correspondances entre des codes de chantier et le nom des chantiers.

Pour cela, je souhaite utiliser des combobox que je "rempli" avec les données et que je fais concorder. On choisit une ligne dans l'une, ca affiche la correspondance dans l'autre.

L'idée fonctionnait jusqu'a ce que je passe à la phase final : entrer les données....
J'ai 4250 chantiers donc 4250 données à mettre dans chaque combobox.
Au départ j'ai utilisé betement le AddItem mais ca m'indique procédure trop longue... du coup, je cherche comment réduire ma procédure mais je ne peux pas réduire le nombre de données et la, je bloque un peu...

Avez vous des idées?

Merci d'avance
Olivier

Patrice33740 · Answer

Bonjour,

«Avez vous des idées? »  : c'est pas ce qui manque !!!

Par contre, sans le code ....

srikiki · Answer

voici le code:

Private Sub ComboBox1_change()
ComboBox2.Value = ComboBox2.List(ComboBox1.ListIndex)
End Sub

Private Sub ComboBox2_change()
ComboBox1.Value = ComboBox1.List(ComboBox2.ListIndex)
End Sub


Private Sub UserForm_Initialize()
ComboBox1.AddItem "004598"
ComboBox1.AddItem "004614"
ComboBox1.AddItem "004606"
ComboBox1.AddItem "594234"
[..............] 4000 lignes comme ca donc j'ecourte...

ComboBox2.AddItem "Sémaphore 111"
ComboBox2.AddItem "Sémaphore 115"
ComboBox2.AddItem "Angoulême"
ComboBox2.AddItem "Allassac"
[..............] 4000 lignes comme ca donc j'ecourte...

Procedure trop longue, trop de données...

2 réponses

Discussions similaires