Procedure trop longue, trop de données...
srikiki
-
Patrice33740 Messages postés 8930 Statut Membre -
Patrice33740 Messages postés 8930 Statut Membre -
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
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
A voir également:
- Procedure trop longue, trop de données...
- Fuite données maif - Guide
- Supprimer les données de navigation - Guide
- Trier des données excel - Guide
- Sauvegarde des données - Guide
- Données personnelles - Accueil - Windows
2 réponses
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...
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...
