Recupération donnees dans ListBox

Version imprimable

19/01/2010, 12h01
meumeu73.1

Recupération donnees dans ListBox

Bonjour à tous,

j'utilise une userform avec des listbox sur lesquelles je fait des multiselection, ensuite, je valide ma userform, et ma selection est copiée dans Excel sur une ou plusieurs cellules (en colonne) suivant ma selection.

Je veux ensuite pouvoir modifier cette selection à partir de la userform, et donc ce que je voudrais c'est quelle s'ouvre avec ma selection déjà faite, c'est à dire toutes ma selection (en surbrillance) + ceux que je n'ai pas selectionner, afin de pouvoir faire d'éventuelles modifications.

Actuellement, je n'arrive pas à récupérer la totalité, je récupère uniquement ma selection.

Mon précédent post avec la multiselection : http://www.developpez.net/forums/.../

Par avance merci pour votre aide

Meumeu73.1

Bonjour

Le code ci dessous permet de lister tous les éléments

Code:

1
2
3
4
5
6
7
   For i = 0 To ListBox1.ListCount - 1
       if ListBox1.Selected(i) = False then
       ' action à faire si sélection
       else
       ' action a faire si pas sélection
       end if
    Next i

19/01/2010, 14h17
meumeu73.1

Merci,

Mais en lorsque j'ouvre ma userform avec le bouton "Nouveau", je veux qu'il réinitialise la userform (tout à zéro).

Par contre, lorsque j'ouvre ma userform avec le bouton "modifier", je veux qu'il m'ouvre ma userform avec la liste totale des choix mais en indiquant ceux qui aurait pu être sélectionner précédemment.

En sachant que les listes sont d'un feuillet différent de celui de la selection.

Bonsoir

Ci joint un exemple de procédure pour indiquer les éléments validé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
Private Sub UserForm_Initialize()
Dim cel As Range
Dim col As New Collection
Dim erreur1 As Boolean
' la listbox est alimenté par rowsource
For Each cel In Sheets("Feuil2").Range("a2:a10")' zone qui contient le résultat
    On Error Resume Next
    col.Add cel, CStr(cel)
Next cel
On Error GoTo 0
 
 
For i = 0 To ListBox1.ListCount - 1
    On Error GoTo erreur
     col.Add ListBox1.List(i), CStr(ListBox1.List(i))
     If erreur1 = True Then ListBox1.Selected(i) = True ' une erreur donc l'item de listbox a été selectionné
     erreur1 = False
Next i
Exit Sub' sortie de la macro
erreur: ' pour positionner un drapeau
erreur1 = True
Resume Next ' on retourne à l'instruction suivante
End Sub

A adapter en fonction de l'environnement.
J'utilise une collection pour éviter des boucles.

JP