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

[ucfoutu]

bé !!!

Si

Code :

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

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 :

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

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 :

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

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

[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

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

[breton1313]

merci ouskel

j'ai modifie en optionbutton et ca fonctionne

ton petit programme m'a bien servi