Sujet Précédent Sujet Suivant

Valeur initiale checkbox VBA/Excel

Fermé
nenuf - 26 juil. 2013 à 10:55
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 26 juil. 2013 à 11:30
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 : )
A voir également:

1 réponse

Réponse 1 / 1
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
26 juil. 2013 à 11:04
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
nenuf
26 juil. 2013 à 11:16
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
26 juil. 2013 à 11:22
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
nenuf
26 juil. 2013 à 11:26
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
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 754
26 juil. 2013 à 11:30
et pourtant...
0