Syntaxe VBA

Bonsoir à tous.

1 - la fois dernière quand j'ai le fichier corrigé, j'ai enregistré 2 patient. et c'est bon. je suis rentré à la maison et en mettant ma BD à jour . après le 8ème patient je n'arrivais plus à créer suite à un message d'erreur( " #VALEUR!).

2- je voudrais aussi que une fois le patient créé, après avoir créé par le bouton valider, que la case " Numéro s'initialise et positionne le Numero suivant à créer

merci de bien vouloir m'aider encore une fois

Bonjour tinodecossa

Ton numéro de patient ne doit pas contenir de texte, d'où l'erreur

En A8 et A9, mets respectivement 7 et 8

Il faut modifier ton code de validation d'ajout de client avec

Private Sub Vad_P_Click()
  '--- Positionnement dans la base BIF
  ligne = Sheets("BD Patient").[a65000].End(xlUp).Row + 1
  '--- Transfert Formulaire dans BIF
  Sheets("BD Patient").Cells(ligne, 1) = Right(Me.Num_P, 5) * 1
  ' Mettre le format correcte de la cellule
  Sheets("BD Patient").Cells(ligne, 1).NumberFormat = """AI-""00000"
  Sheets("BD Patient").Cells(ligne, 2) = Me.NomP_Pat
  Sheets("BD Patient").Cells(ligne, 3) = UCase(Me.Couv_P)  'met en majuscules
  Sheets("BD Patient").Cells(ligne, 4) = Me.Resid_P
  Sheets("BD Patient").Cells(ligne, 5) = Me.Cont_P
  Sheets("BD Patient").Cells(ligne, 6) = Me.Nbrsce_P
  Sheets("BD Patient").Cells(ligne, 7) = Date  'date du jour
  Sheets("BD Patient").Cells(ligne, 8) = Me.Quot_P
  Sheets("BD Patient").Cells(ligne, 9) = Me.Quot_Ass
End Sub

Edit : modification pour l'inscription du numéro de client

A+

Bonjour

Tu peux essayer en L1

=DROITE(INDEX(A2:A2000;NBVAL(A2:A2000));5)*1+1

Cordialement

Merci encore j'essaie et je reviens vers vous

j'ai essayé mais cela ne marche pas

Bonsoir

Qu'as tu essayé !?

Bonjour Bruno

j'ai essayé la syntaxe que vous m'avez transmis

rivate Sub Vad_P_Click()

'--- Positionnement dans la base BIF

ligne = Sheets("BD Patient").[a65000].End(xlUp).Row + 1

'--- Transfert Formulaire dans BIF

Sheets("BD Patient").Cells(ligne, 1) = Me.Num_P

' Mettre le format correcte de la cellule

Sheets("BD Patient").Cells(ligne, 1).NumberFormat = """AI-""00000"

Sheets("BD Patient").Cells(ligne, 2) = Me.NomP_Pat

Sheets("BD Patient").Cells(ligne, 3) = UCase(Me.Couv_P) 'met en majuscules

Sheets("BD Patient").Cells(ligne, 4) = Me.Resid_P

Sheets("BD Patient").Cells(ligne, 5) = Me.Cont_P

Sheets("BD Patient").Cells(ligne, 6) = Me.Nbrsce_P

Sheets("BD Patient").Cells(ligne, 7) = Date 'date du jour

Sheets("BD Patient").Cells(ligne, 8) = Me.Quot_P

Sheets("BD Patient").Cells(ligne, 9) = Me.Quot_Ass

Re,

Oups je n'avais pas vu que le numéro qui vient s'afficher dans ton USF est entier avec "AI-" devant

Il faut donc utiliser ce code pour le numéro

  '--- Transfert Formulaire dans BIF
  Sheets("BD Patient").Cells(ligne, 1) = Right(Me.Num_P, 5) * 1

A+