Procedure trop longue, trop de données...
Fermé
srikiki
-
22 juil. 2014 à 11:32
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 22 juil. 2014 à 18:32
Patrice33740 Messages postés 8556 Date d'inscription dimanche 13 juin 2010 Statut Membre Dernière intervention 2 mars 2023 - 22 juil. 2014 à 18:32
A voir également:
- Procedure trop longue, trop de données...
- Effacer les données de navigation - Guide
- Reinstaller windows sans perte de données - Guide
- Germain veut gérer les activités de son association avec une base de données. il a commencé à créer des tables dans un fichier, mais il n’est pas sûr du résultat. le fichier à télécharger contient uniquement le schéma de cette base de données. en l’état actuel, que peut-on en déduire ? - Forum Outlook
- Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
- Signature trop longue gmail ✓ - Forum Gmail
2 réponses
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
22 juil. 2014 à 11:59
22 juil. 2014 à 11:59
Bonjour,
«Avez vous des idées? » : c'est pas ce qui manque !!!
Par contre, sans le code ....
«Avez vous des idées? » : c'est pas ce qui manque !!!
Par contre, sans le code ....
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...
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
22 juil. 2014 à 14:36
22 juil. 2014 à 14:36
Quel langage exactement ???
Patrice33740
Messages postés
8556
Date d'inscription
dimanche 13 juin 2010
Statut
Membre
Dernière intervention
2 mars 2023
1 776
22 juil. 2014 à 18:32
22 juil. 2014 à 18:32
Pour réduire la macro il faudrait que les données soient dans un fichier externe, excel ou texte serait le plus simple.