Bonjour le forum,
Est-il possible que quand je clique sur un item de ma listbox3, l'item précédemment sélectionné dans la listbox2 se désélectionne ? (donc que aucun item de la listbox2 ne soit sélectionné).
Merci
Bonjour le forum,
Est-il possible que quand je clique sur un item de ma listbox3, l'item précédemment sélectionné dans la listbox2 se désélectionne ? (donc que aucun item de la listbox2 ne soit sélectionné).
Merci
Bonjour,
A placer dans votre Private Sub ListBox3_Click() :
Cordialement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 For I = 1 To ListBox2.ListCount If ListBox2.Selected(I - 1) = True Then ListBox2.Selected(I - 1) = False End If Next I
Salut.
Passe ListIndex à -1, ce qui déselectionnera les lignes éventuellement sélectionnées.
Pour autant que tu parles bien de ListBox de userform ou ActiveX
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Private Sub ListBox3_Click() ListBox2.ListIndex = -1 End Sub
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
Bonjour Pierre,Pierre Fauconnier
C'est sûr que c'est bien plus simple comme ça.
Cordialement.
Bonjour,
Merci pour vos réponses.
C'est un UserForm, pardon, je n'avais pas précisé.
Ni l'une ni l'autre solution ne fonctionne, mais je pense que c'est à cause de ce bout de code de ma listbox3_click :
Comment combiner les 2 ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 Dim numlign For i = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(i) = True Then numlign = ListBox3.List(i, 7) End If Next i
Merci
Bonjour,
Chez moi, ce code fonctionne :
Cordialement.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15 Private Sub ListBox3_Click() Dim NumLign As Long Dim I As Long For I = 0 To ListBox3.ListCount - 1 If ListBox3.Selected(I) = True Then NumLign = ListBox3.List(I, 7) ListBox2.ListIndex = -1 MsgBox NumLign End If Next I End Sub
Dans ton code, tu supprimes les sélections de listbox3!!! Alors que tu veux supprimer celles de listbox2
"Plus les hommes seront éclairés, plus ils seront libres" (Voltaire)
---------------
Mes billets de blog sur DVP
Mes remarques et critiques sont purement techniques. Ne les prenez jamais pour des attaques personnelles...
Pensez à utiliser les tableaux structurés. Ils vous simplifieront la vie, tant en Excel qu'en VBA ==> mon tuto
Le VBA ne palliera jamais une mauvaise conception de classeur ou un manque de connaissances des outils natifs d'Excel...
Ce ne sont pas des bonnes pratiques parce que ce sont les miennes, ce sont les miennes parce que ce sont des bonnes pratiques
VBA pour Excel? Pensez D'ABORD en EXCEL avant de penser en VBA...
---------------
C'est bon cela fonctionne, merci à vous
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager