Discussion :

[breton1313]

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 :

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

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

[ouskel'n'or]

Code :

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

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 :

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

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

C'est pareil mais c'est plus court

[ucfoutu]

Bonjour,

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

Code :

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

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

[ouskel'n'or]

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

[ucfoutu]

Bonjour ousk,

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

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 :

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

1
2
 UserForm2.CheckBox1.Value = (entite = LP)
 UserForm2.CheckBox2.Value = (entite = FT)

[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 )
Effectivement, selon breton, si LP, /FT et si FT /LP.

[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?

[ucfoutu]

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

[breton1313]

voila le prog:

Code :

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

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