MgBox sous condition

[maval]

Bonsoir,

J'ai fichier pour rentrer des points a des joueurs de belote qui fonctionne très bien avec l'aide de Job que je remercie au passage.
J'aimerai lui apporter une petite modification lorsque je rentre les points a l'aide de mon formulaire je voudrai que lorsque tous les scores ont était remplis dans la parties une MsgBox me signale que tous les scores de la partie concerner sont rentrés. comme l'exemple sur le fichier joint.

D'avance merci à qui pourra m'aider.
Cordialement

Maval

 

[job75]

Re : MgBox sous condition

Bonjour maval,

(...) qui fonctionne très bien avec l'aide de Job que je remercie au passage.

Sauf erreur je ne suis pas encore intervenu sur ce fichier.

A+

 

[maval]

Re : MgBox sous condition

Bonjour Job

Je pensai que c’était toi qui était intervenue Ok

Bonne soirée

Max

 

[job75]

Re : MgBox sous condition

Re,

A la fin de la macro du bouton "Valider" :

If Application.Count(Ws.Columns(3 + ComboBox1.ListIndex)) = Application.Max(Ws.[A:A]) _
  Then MsgBox "Tous les scores de la " & ComboBox1 & " sont entrés !", , "INFORMATION"

A+

 

[maval]

Re : MgBox sous condition

Re,

Sa fonctionne très bien a part que sa se déclenche à l'avant dernier joueur ?

@+

 

[job75]

Re : MgBox sous condition

Re,

Le message apparaît quand on valide le dernier score de la partie.

A+

 

[maval]

Re : MgBox sous condition

re,

Non quand je valide l'avant dernier score de la partie.

@+

 

[job75]

Re : MgBox sous condition

Re,

En colonne A tous les joueurs doivent être numérotés, et dans la colonne des parties il ne doit pas y avoir d'autres nombres que les scores.

Le code que j'ai donné est tout à fait évident, non ?

A+

 

[maval]

Re : MgBox sous condition

Re,

Oui j'ai réussi j'ai mis le code au début de la macro du bouton "Valider"

Merci
@+