Discussion :

[Lost_in_VBA]

Bonjour,
J'aimerais pouvoir sortir les données qu'aura coché l'utilisateur sur une listbox à choix multiple et les stocker dans une nouvelle variable (une liste).
Tout cela étant dans le but de pouvoir ensuite manipuler ces données directement à partir de la nouvelle liste en vue de mise en forme conditionnelle.
Merci d'avance!!

P.S: cette partie du code doit elle etre integree dans le userform où figure la listbox ou plutot dans celui ou jexploite les données???

[jfontaine]

Bonjour,

Le code ci dessous, insère chaque élément sélectionné dans la colonne A de la feuille 1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim i As Integer
Dim idest As Integer
 
idest = 1
For i = 0 To ListBox1.ListCount - 1
 
    If ListBox1.Selected(i) = True Then
        Sheets("Feuil1").Range("A" & idest).Value = ListBox1.List(i)
        idest = idest + 1
    End If
Next i

[Lost_in_VBA]

Merci pour ta réponse jérôme! ça me rassure quant à l'utilisation de la boucle.
Le truc c que je ne compte pas visualiser la liste checkée! ce que je veux c la mettre en mémoire pour pouvoir lutiliser dans la foulée.
je n'ai juste pas le langage VBA adéquat ms en gro jaimerais stocker ces données dans un vecteur V par exemple, pour ensuite pouvoir utiliser la composante V(1) V(2) etc à mon gré...
ça ndoi pa etr sorcier mais je calle sur de la synthaxe je pense!
En te remerciant d'avance pour ton aide!

[jfontaine]

Version avec une variable tableau de type string

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim i As Integer
Dim str() As String
Dim iIndex As Integer
 
For i = 0 To ListBox1.ListCount - 1
 
    If ListBox1.Selected(i) = True Then
        iIndex = iIndex + 1
        ReDim Preserve str(iIndex)
        str(UBound(str)) = ListBox1.List(i)
    End If
Next i

[Lost_in_VBA]

Merci chef!!!
ça marche nickel!