Procedure trop longue, trop de données...
srikiki
-
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
Patrice33740 Messages postés 8561 Date d'inscription Statut Membre Dernière intervention -
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
- Reinstaller windows sans perte de données - Guide
- Sauvegarde des données - Guide
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...