Case option excel

Résolu
Fnek Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -  
Fnek Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,


J'ai un formulaire de saisie ou j'essaye tous doucement de comprendre le VBA.
Je m'entraine ;)

Mon problème:

le code de ma case d'option: [A1]=TextBox3
marche très bien et quand ma case est cocher cela me met le résultat de TextBox3 en A1
Idem pour ma deuxieme case d'option : [A2]=TextBox3
celle ci fonctionne aussi correctement .

Mais les résultats ne s'enlève pas si mes cases d'option sont décocher

Merci d'avance pour votre aide et si vous avez quelques petit lien pour trouver une listes de petits codes utiles, je suis preneur.
A voir également:

3 réponses

Réponse 1 / 3
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Salut le forum

Il faut programmer les deux conditions 

[A1] = IIf(CheckBox1.Value, "Vrai", "Faux")

Mytå
0
Réponse 2 / 3
Fnek Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   1
 
Boulet comme je suis je n'y arrive pas ;)

Voici ma formule

Private Sub OptionButton1_Click()
[C21] = IIf(TextBox3.Value, TextBox3, "")
End Sub

Je ne sais pas si j'utilise la bonne expression , et je ne sais pas non plus quoi mettre dans l'argument faux pour lui faire comprendre de laisser la case vide.

Mais je suis certain que ta formule est celle qu'il me faut , je pense mal l'interpréter
0
Mytå Messages postés 2973 Date d'inscription   Statut Contributeur Dernière intervention   953
 
Re le forum

Tu parles de CheckBox et la tu arrives avec OptionButton 

Private Sub OptionButton1_Change() 
[C21] = IIf(OptionButton1, TextBox3.Value, "") 
End Sub

Attention : Private Sub OptionButton1_Click() ne fonctionne que sur le Click

Mytå
0
Réponse 3 / 3
Fnek Messages postés 38 Date d'inscription   Statut Membre Dernière intervention   1
 
Je n'est pas été clair dans mes explications désolé ...

Mais c'est exactement ce que je cherchai , merci beaucoup ;)
0