Msgbox ok ou annuler

Bonjour à tous,

J'ai essayé de créer une macro avec un mot de passe. Pour le moment ça marche, mais quand je rentre pas le mot de passe que je click directement par OK ou ANNULER ça bug.

Pourrait-on m'aider medire pourquoi ce bug.

Je vous donne la macro :

Sub CodeJeu_TT()
Range("C12:C17").Select
    Selection.Font.ColorIndex = 1
    Range("A1").Select
 Randomize Timer
 NombreATrouver = 5312 'Int(Rnd * 1000)
 NombreDeCoups = 0
  While CInt(NombreJoueur) <> NombreATrouver
 NombreJoueur = InputBox("Entrez votre code.")
 Wend
  Range("C12:C17").Select
    Selection.Font.ColorIndex = 2
    Range("A1").Select
 End Sub

Merci de m'aider sur ce coup

amicalement

Noel

Bonsoir cfn3cfn

le Cint représente un entier donc si l'input box est différent d'un nombre ça bug

j'ai mis le 5312 entre " " comme des caractères

le problème comme la macro est faite c'est que l'on n'en sort jamais si tu n'a pas le mot de pass

    Sub CodeJeu_TT()
    Range("C12:C17").Select
        Selection.Font.ColorIndex = 1
        Range("A1").Select
     Randomize Timer
     NombreATrouver = "5312" 'Int(Rnd * 1000)
    NombreDeCoups = 0
      While (NombreJoueur) <> NombreATrouver
     NombreJoueur = InputBox("Entrez votre code.")
     Wend
      Range("C12:C17").Select
        Selection.Font.ColorIndex = 2
        Range("A1").Select
     End Sub

cordialement

Bob

Bonjour à tous,

Bonjour BOB,

La procédure que tu propose c'est bon.

malgré tout j'aurai aimé pouvoir ANNULER à un moment est-ce possible?

Sinon les utilisateurs de cette macro ne pourront pas s'en sortir.

Comme tu as pu te rendre compte c'est au départ je demande que les cellules "C12:C17" passent à la couleur noir(1)

Après avoir trouvé le code ces mêmes cellules passent blanc(2). C'est l'astuce recommandée pour un tirage au sort lors d'une rencontre.

Cela peut se passer en 2 temps.

1er Les noms entrés dans ces cellules sont en blanc sur fond noir et l'utilisateur devra cacher ces noms j'ai trouvé ce système de code pour les faire passer en noir

2ème temps quand l'adversaire à inscrit les autres joueurs dans d'autres cellules qui sont en blanc toujours sur fond noir, l'utilisateur pourrait retaper une seconde fois le mot de passe pour faire apparaître les noms en blanc.

Merci de ton aide

Amicalement

Noel