Valeur initiale checkbox VBA/Excel

Bonjour à tous,

Une question qui peut paraître toute simple mais que je n'arrive pas à résoudre !

J'ai des checkbox dans un userform, je voudrais simplement que par exemple si la cellule A1 dans Excel est non-vide, alors le checkbox soit coché (et ceci dès l'ouverture du userform ....)

Une idée ?

Merci d'avance : )

1 réponse

  1. Modérateur
    Bonjour,

    Dans la procédure événementielle UserForm_Initialize(), placer un code dans ce genre :
    Private Sub UserForm_Initialize()
    If Sheets("Feuil1").Range("A1") <> "" Then CheckBox1 = True
    End Sub


    0
    1. Bizarre Bizarre, ça ne marche pas ...

      Private Sub UserForm_Initialize()
      Then CheckBox1 = True
      End Sub

      Même si je met que ce code, lorsque je cliques sur mon bouton pour ouvrir le userform la checkbox reste non cochée ... Je suis sûr que c'est tout con en plus !
      0
    2. Modérateur
      Bizarre Bizarre, ça ne marche pas ...

      Private Sub UserForm_Initialize()
      Then CheckBox1 = True
      End Sub


      Tu n'as pas l'impression qu'il manque quelque chose???
      As tu essayé le code complet donné + haut?
      Si oui, l'as tu adapté (nom de la feuille...)?
      0
    3. Oui oui je l'ai bien adapté évidemment ^^, juste dans l'exemple il fallait retirer le "Then" que j'ai copié et qui n'a rien à faire là --'
      0