Erreur d'exécution '380

Bonjour à tout le monde,

Je suis perdu. Je tente de me former via des tutoriels sur Youtube, mais là je bloque...

Pour aider mes collègues, je tente de créer un formulaire d'ajout de nouveau membre du personnel. Dans le dessous du formulaire, j'y ai ajouté une listbox (afin que les collègues puissent y faire des recherches sans quitter le formulaire). Et c'est là où ça cale. Au niveau de ".RowSource", j'ai un code erreur '380' qui s'affiche. Comment puis-je corriger cette erreur? Je vous joins le fichier Excel pour que vous puissiez mieux comprendre le problème que je rencontre.

Merci déjà aux âmes charitables! 🙂

Sub refresh_data()

    Dim sh As Worksheet
    Set sh = ThisWorkbook.Sheets("feuille matricule")
    Dim le As Long
    lr = Sheets("feuille matricule").Range("A" & Rows.Count).End(xlUp).Row

    With Me.ListBox
        .ColumnCount = 34
        .ColumnHeads = True
        .ColumnWidths = "72"
        .RowSource = "feuille matricule!a5:ah" & lr

    End With

End Sub

Bonjour ralfy et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum

En ce qui concerne votre demande, mieux vaut aliment votre ListBox via ".AddItem"

Sinon l'erreur est dans le nom de la feuille, il faut l'entourer d'apostrophes

.RowSource = "'feuille matricule'!a5:ah" & lr

Merci de votre participation

Cordialement

Bonjour,

D'un autre coté essayer de se former sur YouTube c'est un peu comme regarder des Sites Porno...

Pas sur que le résultat soit à la hauteur des espérances !

Vous allez devoir patienter un petit moment car il y a du boulot pour essayer de remettre ça un peu d'aplomb !

Si vous souhaitez qu'on travaille un peu sur votre fichier modifier le en y mettant au moins une ligne de données fictive : Des tas de lettres ou de chiffres ne servent à rien. (en particulier pour les colonnes N° matricule et N° National.)

A+

Merci beaucoup pour votre aide.

Je vais tenter votre solution.

Ca a fonctionné!! Merci!!! 😃