Discussion :

[stephlinternaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ucfoutu]

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).

[Pierre Fauconnier]

...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.

[stephlinternaute]

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

[Pierre Fauconnier]

Bonjour

Pas d'autre choix que passer par un test

Tu peux utiliser ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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?

[stephlinternaute]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 ?

[Pierre Fauconnier]

Bonsoir

Peux-tu être plus explicite?