Bonjour

je suis un nouveau membre sur votre groupe , je suis fasciné par la qualité de vos tutoriels . cepandant j'arrive pas à alimenter un tableau dynamique à partir des élements sélectionnées sur une listbox d'un userform .
j'ai essayé ça mais ça marche pas :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tp1() As String
ReDim tp1(5)
dim i as integer
dim f as integer 
f=0
For i = 0 To 1000
    ReDim tp1(UBound(tp1) + 1)
    If ListBox1.Selected(i) = True Then
        tp1(f) = ListBox1.List(i)
        MsgBox tp1(f)
        f = f + 1
    End If
Next i
en effet lorsque le code s'exécute il m'affiche d'autre éléments que j'ai ps sélectionné dans la liste.
merci si vous pouvez m'aider.