1 click 2 cases cochées

Résolu
mic6259 Messages postés 371 Statut Membre -  
Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
Suivant le pièce jointe, quand je click sur 1 numéro de 2 a 28, 2 cases sont cochées, après c'est bon. Pourriez-vous m'aider a empêcher çà.
Merci beaucoup

https://www.cjoint.com/c/KFCqiEbTwjl

5 réponses

  1. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Je suppose que vous voulez limiter le choix de 2 numéros sur la grille du formulaire (UserForm1) Oui ou Non?
    Note: pouvez-vous expliquer pourquoi vous cochez des numéros sur la grille car pas d'effet sur le tirage?
    0
    1. mic6259
       
      Bonjour Pingou
      Non, il faut mettre 7 numéros mais le premier quand on click dessus 2 numéros sont cochées, c'est la le problème.
      Merci pour vous êtes penché sur le problème.
      0
  2. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Merci pour cette partie de réponse, je vais voir ce qui est faisable.
    0
  3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour a vous deux,

    Je cherche depuis hier et pas trouver pourquoi l'evenement enter de la textbox2 est systematiquement actif quelque soit la textbox "cliquee"
    Avec l'evenement exit c'est idem
    Double click ca roule

    Pourquoi avoir pris des Textbox, avec des labels, vous avez l'evenement click et ca "marche" perfect
    0
    1. mic6259
       
      Bonjour f894009
      Ça ne viendrai pas du
      Private Sub UserForm_Initialize()
      Cordialement
      0
  4. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Re,
    Ben, invalidez la procédure et vous verrez bien
    Vous ne répondez pas à ma question.
    0
    1. mic6259
       
      Voilà je pense que c'est le code qui correspond.
      Private Sub UserForm_Initialize()
      Randomize
      Range("D1:D28").Clear
      Dim i As Byte
      For i = 1 To 28
      Me.Controls("TextBox" & i).TabStop = False
      Next i
      End Sub

      Merci a vous deux pour le cassement de têtes que je vous ai donné.
      Cordialement
      0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Le Pingou Messages postés 12274 Date d'inscription   Statut Contributeur Dernière intervention   1 476
     
    Bonjour,
    Comme chez moi c'est la TextBox8 qui recevait le focus j'ai fini par séparer la grille des chiffres et celle des TextBox et là plus de problème. Je viens de tomber sur la même solution ; manque le TabStop dans Private Sub UserForm_Initialize().
    Je vois que vous avez déjà résolu le problème, bravo.

    Pensé de mettre le poste Résolu

    0