probleme de condition et d'alimentation de textbox

[helencompta]

Bonsoir la communauté !

Me revoilà pour solliciter de nouveau un peu d'aide. J'avance tout doucement dans la construction de mon petit fichier destiné à gérer un mini salon de coiffure. Je suis sur l'exploitation des fiches clients et je me retrouve face à deux problèmes :

1 - Dans mon formulaire client, le bouton "Nouveau Client" va me permettre d'alimenter la valeur de mon textbox Code Client en reprenant le dernier code client utilisé + 1. Seulement je n'obtiens pas systématiquement le bon résultat.

2 - Si je rentre dans mon formulaire Client et que je renseigne les coordonnées d'un nouveau client sans être passée par le bouton nouveau client, j'ai lancé l'affichage d'un message d'alerte, c'est pas mal mais je n'arrive pas à lui faire stopper correctement la procédure. Mon instruction if, then, else ne doit pas être très bien construite

Voilà, je suis en cale sèche...
Merci par avance à celles ou ceux qui prendront le temps de m'apporter quelques lumières.

Ci après mon fichier
Regarde la pièce jointe EASYCOIFF.xlsm

 

[Staple1600]

Re : probleme de condition et d'alimentation de textbox

Bonsoir


Une petite correction a apporté (Row pas Rows)
CodeCLientSuivant = Sheets("Clients").Range("K6500").End(xlUp).Row

 

[Banzai64]

Re : probleme de condition et d'alimentation de textbox

Bonsoir

je pense avoir résolus tes 2 soucis
Mais à toi de le dire

Pour info pour Mr Staple1600 (vu la taille de ses biceps il vaut mieux lui dire Monsieur)

CodeCLientSuivant = Sheets("Clients").Range("K6500").End(xlUp).Value

Cela passe mieux

 

[helencompta]

Re : probleme de condition et d'alimentation de textbox

Bonsoir,

Un grand merci à Staple1600 et à Banzai64. C'est exactement ce vers quoi je tendais.
Je vais pouvoir passer à l'étape suivante grâce à votre contribution !

Encore merci,