XL 2016 Renvoi libellé en fonction d'un code produit

[admin59]

Bonjour,

J'ai dans un Userform un TextBox ( TextBox1) dans lequel je saisis des ID produits.
Depuis que j'ai modifié le format des ces ID produits, ils n'apparaissent plus dans la Label 7 du USERFORM ( libellé)
et donc dans l'onglet Réappro, deuxième colonne.
Cela fonctionne si je remplace les ID produits par 1, 2 ,3 etc.........

Ci joint fichier

Si vous aviez une piste, cela me serait d'un grand secours,

D'avance merci,

Cordialement

 

[sylvanu]

Bonjour Admin,
Juste une question stupide:
La ligne dans Sub TextBox1_Change ( ligne 82 ) est en erreur. Que veut dire CLng(TextBox1."""SRX""000") ?

Si on a CLng(TextBox1.Text) c'est que dans Text1Box on a un nombre, or ID n'est pas un nombre mais un texte, donc CLng(TextBox1.Text) est en erreur;
Si avant ID était un nombre, je suppose, alors il faut retrouver la même chose.
Une possibilité serait :

Label7.Caption = Worksheets("BD produits").Cells(CLng(Right(TextBox1.Text, 3)) + 1, "B").Value

Si ID de SRX001 avant était 001. On ne prends que les 3 caractères à droite.

Avec cette modif, ça ne plante plus et ça réponds quelque chose dans Label7. Ensuite à savoir si c'est ce que vous attendez ???

 

[admin59]

Bonjour Admin,
Juste une question stupide:
La ligne dans Sub TextBox1_Change ( ligne 82 ) est en erreur. Que veut dire CLng(TextBox1."""SRX""000") ?

Si on a CLng(TextBox1.Text) c'est que dans Text1Box on a un nombre, or ID n'est pas un nombre mais un texte, donc CLng(TextBox1.Text) est en erreur;
Si avant ID était un nombre, je suppose, alors il faut retrouver la même chose.
Une possibilité serait :

Label7.Caption = Worksheets("BD produits").Cells(CLng(Right(TextBox1.Text, 3)) + 1, "B").Value

Si ID de SRX001 avant était 001. On ne prends que les 3 caractères à droite.

Avec cette modif, ça ne plante plus et ça réponds quelque chose dans Label7. Ensuite à savoir si c'est ce que vous attendez ???

Tout d'abord merci pour votre retour,

En fait, je souhaite remplacer les ID au format ( voire classeur ci joint avec ID d'origine) 1 , 2 et 3 par SRX001,SRX002 etc, mais cela génère des erreurs sur le label caption 7
Je n'arrive pas à trouver de solution

Cordialement

 

[sylvanu]

Vous voulez que l'utilisateur entre SRX001 ou simplement 001 ?

Car dans votre code :
UserForm1.TextBox1 = Format(UserForm1.TextBox1, """SRX""000")
attend un nombre et rien d'autre.

 

[sylvanu]

Si vous voulez que l'utilisateur entre SRX001 alors vous mettez :

Private Sub TextBox1_Change()
    If Len(UserForm1.TextBox1) < 6 Then Exit Sub
    Label7.Caption = Worksheets("BD produits").Cells(CLng(Right(TextBox1.Text, 3)) + 1, "B").Value
End Sub

Tant qu'il n'a pas entré 6 caractères la fonction est invalide.

 

[admin59]

Oui je veux que l'ID produit soit SRX001 donc une série de lettres et de chiffres et non pas qu'une valeur numérique

Cordialement

 

[sylvanu]

Un essai en PJ.
L'utilisateur doit rentrer 6 caractères pour l'ID.
Si l'ID n'existe pas un msgbox prévient l'utilisateur.

Private Sub TextBox1_Change()
    If Len(UserForm1.TextBox1) < 6 Then Exit Sub
    If Application.CountIf(Sheets("BD produits").Range("A:A"), UserForm1.TextBox1) = 0 Then     ' si l'ID n'existe pas
        MsgBox " L' ID " & UserForm1.TextBox1 & " n'existe pas."
        UserForm1.TextBox1 = ""
    Else                                                                                        ' sinon on actualise label7
        Position = Application.Match(UserForm1.TextBox1, Sheets("BD produits").Range("A:A"), 0)
        Label7.Caption = Worksheets("BD produits").Cells(Position, "B")
    End If
End Sub

 

[admin59]

Cel

 

[admin59]

Cela fonctionne mais il me renvoie l'erreur suivante

i = CLng(TextBox1.Value)
Cette ligne de code est en erreur

D'avance merci

Cordialement

 

[sylvanu]

Vous avez testé ma PJ ?
Ma modif n'utilise pas de CLng.
Si textbox1 est une chaîne alors CLng est en erreur.

 

[sylvanu]

Relisez le post 5. il y est dit que ci vous voulez récupérer 001 alors il faut faire :

Cells(CLng(Right(TextBox1.Text, 3))

 

[admin59]

Rebonjour

Mes excuses pour ce malentendu car mes connaissances sont vraiment très limitées.....
J'ai bien testé votre code et il fonctionne
Je ne veux pas récupérer 001 par et garder les 6 caractères
Je voudrais seulement savoir par quoi remplacer

i = CLng(TextBox1.Value) qui me renvoie une erreur

Cordialement
Emmanuel

 

[sylvanu]

Appliquez la même modif que celle j'ai faite au post 7.
Et laissez tomber votre Clng car il ne traite que des nombres

 

[admin59]

Bonjour,
Tout fonctionne très bien
Je tenais à vous remercier pour m'avoir accordé un peu de votre temps.....
Merci encore et à bientot pour d'autres questions

Cordialement