incrementation

[Bruce68]

Bonsoir à tous
j'enregistre des noms de clients dans une base à l'aide d'un User Form
Ce que je voudrais c'est incrementer le N° du client dans le premier textBox(NClient) de + 1( TextBox visible dans L'User Form ) Départ au 1° client (Base vide) à faire au renseignement du client.
Merci de votre aide .

 

[matthieu33]

Re : incrementation

Bonsoir Bruce68,

Aurais-tu un extrait de ton fichier à nous joindre ?

Merci
@+

 

[Bruce68]

Re : incrementation

Bonsoir Matthieu33
Voici le fichier en question, je viens de trouver quelque chose qui fonctione à force de tater
j'ai un autre Probleme c'est le % dans Ajout client si textBox vide = débogage .
Peut etre des choses à modifier pour le rendre plus conforme .
Merci de l'aide.

 

[Bruce68]

Re : incrementation

Bonjour à tous

Comment dans Modification interdire la modification du N° de client mais le voir
Merci de votre aide.

 

[Bruce68]

Re : incrementation

Bonsoir à Tous
Ce testBox fontionne correctement pour incrementer les chiffes da la colonne A, le seul probleme c'est qu'il passer par ce texBox avec Tab pour que cela fonctionne ce n'est pas vraiment automatique quelqu'un a t'il une idée pour que le texBox se mette à jour seul.

Private Sub NClient_exit(ByVal Cancel As MSForms.ReturnBoolean)
Set myRange = Worksheets("Base").Range("A3:A100")
Xnum = Application.WorksheetFunction.Max(myRange)
NClient = Xnum + 1
End Sub

Je vous remercie de votre aide