Liason entre ListBox VBA

Résolu/Fermé

Pawn - 15 janv. 2009 à 11:47
Pawn - 15 janv. 2009 à 15:09

Bonjour,

j'ai un leger probleme avec 2 listbox d'un form. Je voudrais que lorsque l'utilisateur click sur un item de la listbox1, l'item de la listbox2 de meme index soit séléctionner automatiquement.

ex : form1.ListBox1.List(2) = form.ListBox7.List(2)

l'index des 2 listbox peuvent varier en fonction des choix précedent, je ne vois pas comment faire une boucle sur une listbox

J'ai essayé aussi : "List1.TopIndex = List7.TopIndex" mais sans succés

Merci d'avance

A voir également:

Liason entre ListBox VBA
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
L'indice n'appartient pas à la sélection vba ✓ - Forum Programmation
Autofill vba ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

5 réponses

Réponse 1 / 5

mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 28
15 janv. 2009 à 13:30

Salut

Soit List1 la liste où tu choisis et List2 celle auto

[code]
.....
List2.ListIndex = List1.ListIndex
.....
[\code]

Bonne journée

Réponse 2 / 5

Pawn
15 janv. 2009 à 13:51

Salut, merci pour ta réponse,

je vien d'essayer et il me met "erreur d'execution 424" objet requis".
Dois-je mettre le code dans un private sub pour que sa fonctionne ?
ou faire un petit Dim liste1 As (je sais pas quoi) puis set list1=Listbox1.tabindex....?

Réponse 3 / 5

mikebzh Messages postés 127 Date d'inscription samedi 20 décembre 2008 Statut Membre Dernière intervention 11 mars 2009 28
15 janv. 2009 à 13:57

Salut
Moi pour faire un test rapide, j'ai construit une forme avec deux listbox list1 & List2 puis j'ai rempli les listes puis

[code]
private sub List1_click()
List2.Listindex = List1.ListIndex
end sub
[\code]

Et voilà !

Réponse 4 / 5

Pawn
15 janv. 2009 à 14:25

bizare, j'y arrive vraiment pas, je saisi pas là, jvais encore chercher jdois mal m'y prendre... .

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 5

Pawn
15 janv. 2009 à 15:09

Merci pour ton aide, j'ai trouver une sollution en mellangeant ton bou de code et le mien.
En tout cas tout marche, jpeu continuer now.
merci

ps :au lieu de Topindex : listindex

If ActiveControl = ListBox1 Then ListBox2.ListIndex = ListBox1.ListIndex
If ActiveControl = ListBox2 Then ListBox1.ListIndex = ListBox2.ListIndex

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

Erreur d'exécution 13 Incompatibilité de type

Bonjour,

Je ne comprend pas pourquoi j'ai une erreur d'execution 13 : incompatibilité de type car mon code marchait très bien avant...Je met en gras la ligne où il y a l'erreur

'affichage des feuilles concernées et vérification des champs Sheets("Recap").Visible = True If Cathégories = "" Then MsgBox "Sélectionnez une catégorie de défauts dans la liste déroulante" ElseIf défauts = "" Then MsgBox "Sélectionnez un défauts qualité dans la liste déroulante" Exit Sub End If Dim i As Integer Dim n As Integer n = 3 i = 2 MsgBox "Veuillez patienter pendant le traitement..." Application.Cursor = xlWait 'affiche le sablier 'Suppression des don...

Méthode find dans VBA - Recherche de données sous Excel

Document initial créé par Pijaku

Cette fiche pratique est essentiellement tirée de l'aide Excel. L'exemple d'utilisation est un conseil basé sur ma propre petite expérience.

Introduction Méthode via Excel Code VBA correspondant Syntaxe Valeur renvoyée A savoir Exemple d'utilisation Recherche multiple FindNext - FindPrevious Une variante : Find_Next FindAll

Introduction La méthode find permet de trouver la première occurrence d'une information spécifique, dans un range. En clair, cette méthode permet d'aller chercher dans une feuille ou une partie d'une feuille Excel, une information, une donnée ou une partie de cette donnée. ...

ouverture d'un fichier excel à partir d'un code VBA

Bonjour,

je souhaite ouvrir un fichier excel à partir du code suivant:

Sub Ouvrir()
Workbooks.Open Filename:="C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx"
End Sub

sauf que lors de l'exécution j'ai cette erreur
==> Instruction incorrecte à l'extérieur d'une procédure et il met en bleu cette partie :
C:\Documents and Settings\Administrateur\Bureau\TRADING\Action.xlsx

merci

appliquer une pause dans une macro vba excel

Bonjour,

Je cherche comment faire stopper de quelques secondes le déroulement de ma macro en vba excel et ceci de maniere invisible pour l'utilisateur.
Si quelqu'un à un bout de code ça serait sympa !!!

je suis en vba excel 2007

merci

Configuration: Windows XP / Internet Explorer 7.0