Discussion :

[zielite]

Bonjour à tous,

J'utilise le code suivant pour incrémenter automatiquement le champ "Textnomclient" de mon userform lorsque l'on saisi le champ "Textnumpdl". Le code va chercher les informations dans la Feuil4.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Textnumpdl_Change() 'Incrémente automatiquement le nom du client en fonction du code pdl saisi.
Set C = Feuil4.Cells.Find(What:=Textnumpdl)
        Textnomclient = C.Offset(0, 1)

Tout fonctionne très bien mais je veux mettre une sécurité avec un message lorsqu'un utilisateur saisi un nombre dans le champ "Textnumpdl" qui n'existe pas car actuellement Excel passe en débogage dans ce cas précis.

Quelqu'un a une idée?

Par avance merci!

[antonysansh]

Bonjour zielite,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
If c Is Nothing Then 
   MsgBox "pas trouvé"
   End sub
else
   'suite de ton code sinon

Antony

[zielite]

Merci Anthony pour ton aide,

La MsgBox fonctionne, le seul problème est qu'elle s'affiche à chaque chiffre saisi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Textcodearticle_Change() 'Incrémente automatiquement la désignation de l'article en fonction du code article saisi.
        If C Is Nothing Then
   MsgBox "pas trouvé"
Else
Set C = Feuil4.Cells.Find(What:=Textcodearticle)
        Textdesignation = C.Offset(0, 1)
   'suite de ton code sinon
   End If
End Sub

[antonysansh]

C'est le problème du Textcodearticle_Change, la macro se lance à chaque caractère saisie.

Tu peux soit ne pas mettre de message mais ça laisse l'utilisateur dans le flou si la recherche n'est pas fructueuse ou bien mettre un bouton qui lance la recherche une fois la saisie complète.

[zielite]

Le problème est que si je supprime la MsgBox, Excel renvoi au débogage en cas de valeur non trouvée et donc met l'utilisateur en confusion.

[antonysansh]

Tu ne supprimes que le msgbox, mais tu laisses le exit sub si nothing.
Ainsi ton évènement se déclenche mais ne fait rien et pas besoin de debug.

Antony

[zielite]

"ou bien mettre un bouton qui lance la recherche une fois la saisie complète. "

Comment puis-je opérer une telle opération?

J'ai tapé le code suivant:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Textcodearticle_Change() 'Incrémente automatiquement la désignation de l'article en fonction du code article saisi.
Set C = Feuil4.Cells.Find(What:=Textcodearticle)
If C Is Nothing Then
        Exit Sub
Else:
        Textdesignation = C.Offset(0, 1)
End If
End Sub

Tout se passe bien comme ça. Le nouveau problème est que le code va chercher la première valeur trouvé et donc si par exemple le code "12345" n'existe pas, le code va prendre la première valeur trouvé avec "123".

Je pense qu'il faut que j'étudie un autre code qui reprend à l'identique ce qu'une fonction recherchev peut faire.

J'avais cherché sur le forum mais je n'ai rien trouvé de tel, peut être que tu as une idée?

Faut il que j'ouvre une nouvelle discussion?