XL 2021 Résultats dans un formulaire VBA suite à la saisie d'un texte contenu dans un tableau Excel

[AugusteP]

Bonjour tout le monde,

J'essai de modifier une codification vba qui me permettait d'obtenir dans un userform des éléments contenus dans une base de données en fonction d'une textbox prenant en compte un nombre (référence). Ces références sont passées sous forme de texte car elles est débutent maintenant pour certaines par un ou des zéros. Je dépose ci-dessous la codification initiale et le fichier stock, si quelqu'un pouvait m'apporter une solution. Merci !!

ivate Sub Txt_référence_AfterUpdate()

    On Error GoTo 1
    
    If WorksheetFunction.CountIf(Sheets("Stock").Range("A:A"), Me.Txt_référence.Value) = 0 Then
        MsgBox "Cette article n'existe pas. Veuillez ressaisir une nouvelle référence", vbnInformation + vbOKOnly, "Article non trouvé"
    Me.Txt_référence = ""
End If

With Me
    .Txt_adresse = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 3, 0)
    .Txt_désignation = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 2, 0)
    .Txt_complément = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 4, 0)
    .Txt_uv = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 5, 0)
    .Txt_quantité = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 6, 0)
    .Txt_prix = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 7, 0)
    .Txt_mini = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 9, 0)
    .Txt_maxi = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 10, 0)
    .Txt_alerte = Application.WorksheetFunction.VLookup(CLng(Me.Txt_référence), Sheets("Stock").Range("stock"), 11, 0)

1
End With

End Sub

 

[vgendron]

Bonjour

Dans ton fichier, il n'y aucun formulaire, ni aucun code...

 

[AugusteP]

oui, le fichier est là tout simplement pour alimenter la codification contenu dans mon premier message. Je ne sais pas si la présence du formulaire peut apporter une aide dans le sens où tous est contenu dans la codification.

 

[vgendron]

euh.. et sans formulaire;. comment crois tu qu'on peut tester ton code??

 

[AugusteP]

Mais oui !! Je suis très fatigué visiblement, en pièce jointe le fichier avec le formulaire. Désolé !!

 

[vgendron]

euh.. retournes vite te coucher...
meme pas besoin d'ouvir le fichier pour savoir qu'il n'y a toujours pas de formulaire ni code..
ton fichier est en .xlsx au lieu de .xlsm

 

[AugusteP]

Après une grosse fête je devrais éviter de me mettre au travail et surtout un dimanche !!

 

[vgendron]

bon.. j'abandonne....
faut quand meme faire un effort de ton coté

 

[AugusteP]

Désolé !! normalement c'est le bon fichier !

 

[vgendron]

Voir la PJ

 

[AugusteP]

SUPER !!!!! Merci beaucoup et encore milles excuses pour mon manque de sérieux !