validation optionbutton et checkbox

bonjour a tout le forum

j'ai fais un userform

mais je n'ai pas reussi a valider dans un tableau les optionbutton et les chkbox

voici un extrait ce que je fais

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

.Range("D" & DerLigne) = Me.CbxTitre .Range("E" & DerLigne) = Me.TbxNom .Range("F" & DerLigne) = Me.TbxPrenom .Range("G" & DerLigne) = Me.OptHomme .Range("G" & DerLigne) = Me.OptFemme   Me.TbxNom = .Range("E" & Ligne) Me.TbxPrenom = .Range("F" & Ligne) Me.OptHomme = .Range("g" & Ligne) Me.OptFemme = .Range("g" & Ligne)

---

en ce qui concerne les tbx ca marche tres bien

:merci:

Bonsoir,

D'où l'utilité de toujours préciser la propriété concernée du contrôle.

VBA, comme VB, saura quelquefois (c'est le cas en ce qui concerne les TextBoxes) décider que si cette précision de propriété est absente, il faut utiliser la propriété par défaut du contrôle (.text pour une Textbox).

Observe donc cette discipline et tout devrait aller mieux.

Bonne continuation...

Edit : assure-toi par ailleurs que la cellule d'accueil est du même type que celui de la propriété du contrôle concerné (bien évidemment).

Bonsoir

Peux-tu être plus explicite?

Citation:

---

Envoyé par ucfoutu

...il faut utiliser la propriété par défaut du contrôle (.text pour une Textbox)....

---

Bonsoir.

Sans vouloir être contrariant, la propriété par défaut d'un textbox est .Value.

Cela étant, c'est pour la précision, car il me semble que .Text et .Value renvoient toujours la même valeur.

bonjour a tous

j'apporte peut etre une petite precision

ma question etait de savoir comment mettre la valeur cochée dans un tableau

que se soit pour les optionbutton et les checkbox

je n'ai pas de soucis avec les textbox tout marche bien

le resultat des mes options est vrai ou faux et moi je veux homme ou femme

et pour les checkbox j'ai plusieurs reponses possible

:merci:

Bonjour

Pas d'autre choix que passer par un test

Tu peux utiliser ceci

Code:

---

1 2 3 4 5 6 7 8

.Range("G" & DerLigne) = iif(Me.OptHomme,"Homme","Femme")   if range("g" & derlinge)="Homme" then me.opthomme=true else me.optfemme=true endif

---

Ok?

merci pour ta reponse

quand tu faut faire un test qu'entends tu pars la

j'ai mis la premiere ligne a la suite de mon code

Code:

---

1 2 3 4 5

.Range("F" & DerLigne) = Me.TbxPrenom .Range("G" & DerLigne) = if(Me.OptHomme,"Homme","Femme") .Range("H" & DerLigne) = Me.TbxAdresse

---

mais la suite du code je le mets ou ?

:merci:

Salut.

Lorsque je dis qu'il faut faire un test, c'est parce que tu as deux valeurs "texte" que tu veux transformer en valeurs booléennes et vice et versa. Le test se situe au niveau du IIF et du bloc If ... End If dans les codes que j'ai donné.

Corrige ton code, car dans le code que tu viens de transmettre, tu as écrit

Code:

---

.Range("G" & DerLigne) = if(Me.OptHomme,"Homme","Femme")

---

Il manque un i à Iif
alors que tu dois avoir

Code:

---

.Range("G" & DerLigne) = iif(Me.OptHomme,"Homme","Femme")

---

Ce code te permet de placer le mot Homme ou Femme dans la cellule de la colonne G. Il faut placer cette ligne dans le bloc de code qui transfère les valeurs du userform vers le tableau

Le code suivant, lui, attribue au contrôle la valeur en fonction du contenu de la cellule de la colonne G

Code:

---

1 2 3 4 5

if range("g" & derlinge)="Homme" then me.opthomme=true else me.optfemme=true endif

---

et il doit donc se placer dans le bloc de code qui transfère les valeurs des cellules vers le userform.

Du moins, si j'ai bien compris l'extrait de code que tu as transmis dans ton premier message.

Ok?

:king:

:merci:

encore une petite question

j'ai le meme pb avec 1 checkbox avec plusieurs reponse possible

en colonne Q comment faire pour voir apparaitre toutes les reponses cochées

d'avance merci

Si tu veux que par défaut, dans un userform, un checkbox soit coché, le plus simple est de mettre sa propriété value à True dans la fenêtre des propriétés du contrôle...
Si cette fenêtre n'est pas affichée, menu Affichage ou bien F4.

Cela répond-il à ta question?

Evidemment, cela se complique si tu dois afficher les valeurs des checkbox dans une seule cellule...

:aie: eh oui !!!!!

si tu veux j'ai un checkbox avec 6 possibilités, mais il est possible de cocher 6 cases ou 5 ou 4 etc
et bien sur sinon ca serait pas drole il faut que le resultat aille dans une seule cases sous la forme a,b,c,d,e,f, etc ...

est ce possible ???

Quelque chose du genre...

Du Userform vers le tableau

Code:

---

1 2 3 4 5 6 7 8

Dim Valeur as string   if checkbox1 then valeur =valeur & "A;" if checkbox2 then valeur = valeur & "B;" ...   Range("q" & derligne) = left(valeur,len(valeur)-1) ' enlever le dernier ;

---

Dans l'autre sens

Code:

---

1 2 3 4 5 6 7

dim Valeur as string   valeur = range("q"...) checkbox1.value = (instr(1,valeur,"A")<>0) checkbox2.value = (instr(1,valeur,"B")<>0) ...

---

Ok?

:yaisse2:

sitot demandé sitot servi :king:

encore :merci: