selectionner une checkbox

Version imprimable

15/03/2008, 23h13
breton1313

selectionner une checkbox
bonjour

j'ai une variable nomme entite qui peut prendre la valeur FT ou LP
j'aimerai qu'a l ouverture d'une usf avec 2 checkbox (une pour ft une pour lp)
la checkbox correspondant a la variable entite soit selectionnee et l'autre non

j'ai pense a ca mais ca ne marche pas:
Code:

1 2 3 If entite = LP Then UserForm2.CheckBox1.Value = True: UserForm2.CheckBox2.Value = False If entite = FT Then UserForm2.CheckBox2.Value = True: UserForm2.CheckBox1.Value = False

Code:

1
2
3
4
5
6
7
If entite = LP Then 
        Userform2.CheckBox1.Value = True
        UserForm2.CheckBox2.Value = False
    elseif entite = FT Then
        UserForm2.CheckBox2.Value = True
        UserForm2.CheckBox1.Value = False
Endif

Si userform2 est l'userform affiché, tu peux remplacer Userform2 par Me

Code:

1
2
Me.CheckBox1.Value = True
'...

C'est pareil mais c'est plus court ;)

16/03/2008, 09h08
ucfoutu
Bonjour,

Ce qui revient à dire ('puisqu'il n'y a que deux valeurs possibles) :
Code:

1 2 UserForm2.CheckBox1.Value = (entite = LP) UserForm2.CheckBox2.Value = Not UserForm2.CheckBox1.Value
EDIT : je me demande d'ailleurs bien pourquoi, dans un tel contexte (2 boutons et 2 seules valeurs possibles), ne pas utiliser 2 boutons d'option, tout simplement, plutôt que de transformer ainsi en optionbuttons 2 checkboxes !!!
16/03/2008, 11h01
ouskel'n'or

Citation:

Envoyé par ucfoutu

je me demande d'ailleurs bien pourquoi, dans un tel contexte (2 boutons et 2 seules valeurs possibles), ne pas utiliser 2 boutons d'option, tout simplement, plutôt que de transformer ainsi en optionbuttons 2 checkboxes !!!

+ 1
J'ignore l'utilisation que veut en faire not' breton, c'est pourquoi je n'ai pas fait la remarque.

Par contre, si ce n'est ni LP ni FT, ton code est insuffisant ;)
16/03/2008, 11h49
ucfoutu
Bonjour ousk,

Moi, je crois ce que breton a écrit et le crois sur parole :lol:

Citation:

Envoyé par breton1313

j'ai une variable nomme entite qui peut prendre la valeur FT ou LP
j'aimerai qu'a l ouverture d'une usf avec 2 checkbox (une pour ft une pour lp)

Bon dimanche

Edit ... et puis regarde (pour le cas où il se serait mal exprimé) :
Code:

1 2 UserForm2.CheckBox1.Value = (entite = LP) UserForm2.CheckBox2.Value = (entite = FT)
;)
16/03/2008, 12h11
ouskel'n'or

Ok, c'est juste ce que je voulais dire ;)
Mais tu as raison, j'avais interprété (C'est à cause de mon nystagmus :mouarf:)
Effectivement, selon breton, si LP, /FT et si FT /LP.
16/03/2008, 14h39
breton1313

j'ai bien essaye vos solutions mais je selectionne toujours la meme (LP) queque soit la valeur de "entite"

y a t il quelques chose a modifier dans les proprietes de la checkbo?
16/03/2008, 14h43
ucfoutu

Citation:

Envoyé par breton1313

j'ai bien essaye vos solutions mais je selectionne toujours la meme (LP) queque soit la valeur de "entite"

y a t il quelques chose a modifier dans les proprietes de la checkbo?

celà veut dire que tu as un cafouillage dans la valeur donnée à entite, pardi ...

et sans ton code, on ne peut voir où serait cette erreur !

commence par faire simplement :

msgbox entite

juste avant le code donné ... et tu vas vite être renseigné ...:lol:

voila le prog:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Option Explicit
Dim nom, prenom, tel, numero, paye, annee, banque, entite, LP, FT As String
 
 
Private Sub CommandButton1_Click()
End
 
End Sub
 
Private Sub CommandButton2_Click()
nom = ADHERENT.TextBox1
prenom = ADHERENT.TextBox2
tel = ADHERENT.TextBox4
numero = ADHERENT.TextBox8
paye = ADHERENT.TextBox5
annee = ADHERENT.TextBox9
banque = ADHERENT.TextBox7
'entite = ADHERENT.TextBox3
entite = "LP"
ADHERENT.Hide
UserForm2.TextBox1 = nom
UserForm2.TextBox2 = prenom
UserForm2.TextBox3 = tel
UserForm2.TextBox4 = numero
UserForm2.TextBox5 = paye
UserForm2.TextBox7 = banque
UserForm2.TextBox6 = annee
 
MsgBox entite
If entite = LP Then
        UserForm2.CheckBox1.Value = True
        UserForm2.CheckBox2.Value = False
    ElseIf entite = FT Then
        UserForm2.CheckBox2.Value = True
        UserForm2.CheckBox1.Value = False
End If
 UserForm2.Show
End Sub

pourquoi la case checkbox ne se selectionne pas?
faut il modifier proprietes ?

merci

16/03/2008, 16h10
ucfoutu
bé !!!

Si

Code:

entite = "LP"

entité n'est pas égal à LP !!!!! (qui reste, elle, non intialisée ...)

Ne pas confondre la valeur d'une variable avec une chaîne de caractères autre !!!

et corrige, pendant que tu y es, cette ligne également :

Code:

Dim nom, prenom, tel, numero, paye, annee, banque, entite, LP, FT As String

qui fait que seule une variable nommée FT est définie en String, toutes les autres étant des Variant !!!

Mon avis : tu n'as nul besoin des variables LP et FT...
Il te suffit de la variable entité et de lui donner la valeur "FT" ou "LP"

et ensuite :
Code:

1 2 UserForm2.CheckBox1.Value = (entite = "LP") UserForm2.CheckBox2.Value = (entite = "FT")
C'est tout...

et je ne comprends toujours pas pourquoi, dans un tel contexte, utiliser des CheckBoxes et non des Boutons d'option ...

Bonne continuation ...
16/03/2008, 16h47
breton1313

merci a UCFOUTU

j'avais oublie les "".je n'ai pas utilise les boutons options parce que je n'est pas reussi a faire marcher.pas beaucoup de connaissance je me lance juste j'ai bien un livre mais pas tres explicite
16/03/2008, 17h35
ouskel'n'or

Groupé dans un "Groupename, les optionbuttons s'annulent l'un l'autre.
Je te joins un exemple réversible. Si tu sélectionnes une option dans la liste, l'état des optionbuttons est modifié et si tu cliques sur un otptionbutton, la sélection dans la liste l'est à son tour.
Juste pour que tu comprennes le fonctionnement ;)
Pièce jointe 27113
Si tu veux des précisions...
A+
16/03/2008, 19h31
breton1313

merci ouskel

j'ai modifie en optionbutton et ca fonctionne

ton petit programme m'a bien servi