Bonjour à tous !
 
Voilà je suis nouveau sur ce forum et débutant , ainsi je me permet de poster mon problème qui me taraude depuis un moment.
J'ai créé un UserForm dans lequel j'ai placé des boutons d'option, eux même étant placés dans un frame ainsi qu'une ListBox dans un Frame.
Je souhaite que selon l'option choisie par l'utilisateur, la ListBox se remplisse de données de feuilles différentes, fonction du choix.
Pour cela j'ai utilisé le code suivant:
 
1)
Private Sub OptionButton1_Click()
IPE = True 'où IPE est l'option choisie
Call ListBox1_Click
End Sub
 
2)
Private Sub ListBox1_Click()
    If IPE = True Then 'Ici déjà je crois que ca ne marche pas
       Dim i As Integer
       Dim list_profile(1 To 62, 1 To 18) As String
         
        For i = 1 To 62 'Ici ca ne fonctionne pas non plus. Une liste déroulante se crée mais elle est vide.
            list_profile(i, 1) = Worksheets(Feuil3).Select.Range("A3" ).Offset(i)
            list_profile(i, 2) = Worksheets(Feuil3).Select.Range("B3" ).Offset(i)
            list_profile(i, 3) = Worksheets(Feuil3).Select.Range("C3" ).Offset(i)
            list_profile(i, 4) = Worksheets(Feuil3).Select.Range("D3" ).Offset(i)
            list_profile(i, 5) = Worksheets(Feuil3).Select.Range("E3" ).Offset(i)
            list_profile(i, 6) = Worksheets(Feuil3).Select.Range("F3" ).Offset(i)
            list_profile(i, 7) = Worksheets(Feuil3).Select.Range("G3" ).Offset(i)
            list_profile(i, 8) = Worksheets(Feuil3).Select.Range("H3" ).Offset(i)
            list_profile(i, 9) = Worksheets(Feuil3).Select.Range("I3" ).Offset(i)
            list_profile(i, 10) = Worksheets(Feuil3).Select.Range("J3" ).Offset(i)
            list_profile(i, 11) = Worksheets(Feuil3).Select.Range("K3" ).Offset(i)
            list_profile(i, 12) = Worksheets(Feuil3).Select.Range("L3" ).Offset(i)
            list_profile(i, 13) = Worksheets(Feuil3).Select.Range("M3" ).Offset(i)
            list_profile(i, 14) = Worksheets(Feuil3).Select.Range("N3" ).Offset(i)
            list_profile(i, 15) = Worksheets(Feuil3).Select.Range("O3" ).Offset(i)
            list_profile(i, 16) = Worksheets(Feuil3).Select.Range("P3" ).Offset(i)
            list_profile(i, 17) = Worksheets(Feuil3).Select.Range("Q3" ).Offset(i)
            list_profile(i, 18) = Worksheets(Feuil3).Select.Range("R3" ).Offset(i)
        Next i
     End If
     
 ListBox1.List = list_profile
End Sub
 
 
Je vous remercie déjà pour votre lecture et pour votre aide! Meilleurs salutations à tous!

Bonjour,
 
Sur le Offset il y a 2 paramêtres (ligne, colonne)
 
Sur le IPE, Tu l'as déclarée en variable globale ?