Bonjour,

Je suis nouveau dans la programation vba je souhaiterais créer une fonction mais je n'arrive pas à la finaliser.

Quelqu'un pourrais m'aider svp.

Voici ma fonction

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Function InitialiserListe (p As Integer, col As String, nom As String)
         dlp = .Range("col & 65536").End(xlUp).Row
         tabp = .Range("col & 3:col" & dlp)
         nom.List = tabp
 
End Function
 
InitialiserListe (1,A,L_cat3)
Attendu : =

Merci pour vos réponses

Cordialement