Valeur initiale checkbox VBA/Excel

nenuf -
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention - 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 : )

Afficher la suite

A voir également:

Valeur initiale checkbox VBA/Excel
Liste déroulante excel - Guide
Trier un tableau excel - Guide
Word et excel gratuit - Guide
Si ou excel - Guide
Déplacer colonne excel - Guide

1 réponse

Réponse 1 / 1
pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
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. nenuf
  
  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. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  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. nenuf
  
  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
4. pijaku Messages postés 13513 Date d'inscription Statut Modérateur Dernière intervention 2 773
  
  et pourtant...
  
  0

Valeur initiale checkbox VBA/Excel

1 réponse

Discussions similaires

Newsletters