message erreur

[lyndamu]

bonjour au forum,
bernard68 m'a envoyé un essai pour une application et je l'en remercie (cf message "liste deroulante dans usf").
lorsque je le mets en pratique dans le code de l'usf que j'utilise, il me mets un message d'erreur (voir fichier joint).
il faut dire que j'ai dans le même usf un autre code, ils doivent se chevaucher.
comme je l'ai déjà dit, je débute en vba, merci de vos lumières.😕
Regarde la pièce jointe message erreur.zip

 

[BERRACHED said]

Re : message erreur

Salut lyndamu !
je crois qu'il y a deux Fois la procédure dans usf Private Sub nom_Change() :

la 1 ere :

Private Sub nom_Change()
    Dim derLig As Long
    Dim Plage As Range, Cell As Range
    Dim Ctrl As Byte
    
    ' Dernière ligne
    derLig = Range("A" & Cells.Rows.Count).End(xlUp).Row
    If derLig < 150 Then Exit Sub
    
    ' Définition de la plage de cellules
    Set Plage = Range("A2:A" & derLig)
    
    ' Rechercher le nom dans la plage
    Set Cell = Plage.Find(nom.Value, , LookIn:=xlValues, LookAt:=xlWhole)
    
    ' Vider le contenu des zones
    For Ctrl = 1 To 149
        Controls("Listbox" & Ctrl).Value = ""
    Next Ctrl
    
    ' Si le nom est trouvé, affichage des autres données
    If Not Cell Is Nothing Then
        ListBox1.Value = Cell.Offset(0, 1).Value
        ListBox2.Value = Cell.Offset(0, 2).Value
        ListBox3.Value = Cell.Offset(0, 3).Value
        ListBox4.Value = Cell.Offset(0, 4).Value
        ListBox5.Value = Cell.Offset(0, 5).Value
    End If
End Sub

voila la 2 éme

Private Sub nom_Change()
'Le mot clé "Me" remplace le nom de l'userform ("formimg")
nom = Me.nom.Value
On Error Resume Next
Fichier = ActiveWorkbook.Path & "\" & nom & ".jpg"
Me.Image1.Picture = LoadPicture(Fichier)
End Sub

c'est sa l'ambiguite
Cordialement

 

[lyndamu]

Re : message erreur

bonjour au forum et à Saïd,
comme je le disais, je débute en VBA et effectivement, il y a deux procédures identiques, encore merci à Saïd.