Bonsoir Patrick, Zon le forum
huum, quand tu dis "lorsque j'encode au niveau du client", je suppose que tu parles de la TextBox en face de "Police", si le "client" n'est pas automatiquement reconnu, le programme écrit : "Client Inconnu" dans la TextBox du dessous (en face de "Client").
Le bouton validation est prévu pour empécher d'envoyer dans les feuilles "Client Inconnu".... Maintenant le principe et d'aller en feuille Database et d'ajouter le client dans cette feuille...et de revenir sur le Userform que je t'ai préparé... (déjà avec pas mal d'options en extra).
Si tu veux saisir des numéros de Police et des noms de clients inconnus dans ce UserForm et les reporter dans les feuilles respectives il faut faire deux choses dans le module VBA :
1) Suppression de Code :
LOCATION : Private Module du UserForm1 / Ligne 15 d'origine :
.TextBox5.Locked = True
ACTION : Suppression
2) Remplacement de Code :
LOCATION : Private Module du UserForm1 / Lignes 153 à 157 d'origine :
Private Module du UserForm1 / Ligne 15 d'origine :
If Me.TextBox5 = "Client Inconnu" Then
MsgBox "Attention Client Inconnu, Renseignez la Base de Donnée", vbCritical, T
Me.TextBox4.SetFocus 'On met le curseur sur la zone
Exit Sub 'si pas bon on stop
End If
ACTION : Remplacemant par :
If Me.TextBox5 = "" Then
MsgBox "Vous devez Saisir un Client", vbCritical, T
Me.TextBox5.SetFocus 'On met le curseur sur la zone
Exit Sub 'si pas bon on stop
End If
Sinon il faudrait encore un peu plus de développement mais, là ce n'est qu'un démo de de UserForm de Saisie, et comme je disais au départ :
"Par contre j'ai une mauvaise nouvelle, tout ce que tu demandes mis bout à bout nécessite un UserForm et donc du VBA, et par conséquent, quelques connaissances en programmation."
J'ai fait pas mal de démos sur les Userforms de gestion de base de données, il faudrait arriver à joindre une de celles-ci avec la présente, mais on dépassera les 50ko de ce Forum et également mon temps libre dispo.
Pour le reste sinon, çà te va?
Bonne Nuit
@+Thierry