begin process at 2010 02 10 12:24:14
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Visual Basic & VB.NET

 > 

Archives Visual Basic

 > 

J'AI BESOIN D'AIDE !!!! :)

 > 

cases a coché : 3 choix


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

cases a coché : 3 choix

lundi 26 juillet 2004 à 17:17:30 | cases a coché : 3 choix

hastan

hello je recherche un truc tout bete ...

pour les cases a coché 3 choix quel est le nom de l etat non actif?
y a oui/ non/ et.?.....


voici mon p'tit code...
lol
If (ArchitectesBois.Value = 0) Then
v_ArchitectesBois = ArchitectesBois.Value
ElseIf (ArchitectesBois.Value = oui) Then
v_ArchitectesBois = oui
ElseIf (ArchitectesBois.Value = non) Then
v_ArchitectesBois = non
End If

et j aimerai que si la case ne st pas activée , il selectionne tous les contacts : architectesbois oui et non , ( ca c est bon..) si oui , qu'il ne selectionne que les architectes pour V_architectesbois = oui et l inverse pour non....
merci
lundi 26 juillet 2004 à 17:47:21 | Re : cases a coché : 3 choix

CanisLupus

Membre Club Administrateur CodeS-SourceS
Salut,

Pour une case à cocher, le test c :

if ArchitectesBois.value = Checked ' pour savoir si elle est cochée
if ArchitectesBois.value = Unchecked ' pour savoir si elle est pas cochée

Je ne vois pas de 3ème choix.

Cordialement

CanisLupus
lundi 26 juillet 2004 à 19:07:45 | Re : cases a coché : 3 choix

goguys

Je crois qu'une case peut être :
- non cochée : Unchecked
- cochée : Checked
- cochée et grisée : Grayed

respectivement les valeurs 0, 1 et 2...
lundi 26 juillet 2004 à 19:09:35 | Re : cases a coché : 3 choix

jack

Administrateur CodeS-SourceS
Correctif :
if ArchitectesBois.value = vbChecked ' pour savoir si elle est cochée
if ArchitectesBois.value = vbUnchecked ' pour savoir si elle est pas cochée

... Si, les CheckBox peuvent prendre un état vbGrayed = grisée mais je ne sais plus dans quelle circonstance ...

Vala
Jack
lundi 26 juillet 2004 à 19:21:25 | Re : cases a coché : 3 choix

DARKSIDIOUS

Membre Club Administrateur CodeS-SourceS
Tu peux toujours les griser manuellement lors de l'événement click selon la valeur actuelle du checkbox et l'ancienne valeur de celui-ci...

DarK Sidious

[Responsable API/VB du site www.ProgOtoP.com]
Téléchargez ProgOtoP API Viewer
lundi 26 juillet 2004 à 20:15:34 | Re : cases a coché : 3 choix

CanisLupus

Membre Club Administrateur CodeS-SourceS
Réponse acceptée !
DSL jack, Checked et Unchecked sont parfaitement bien compris en vb6. Pas besoin de vb.....

S'il y a un 3ème état c Check1.Enabled = false (càd grisé sans possibilité de cliquer dessus) qu'elle soit cochée ou non.

Donc, je résume tous les états d'une case à cocher (soit 4) :

Check1.Enabled = True And Check1.value = Checked
Check1.Enabled = True And Check1.value = Unchecked
Check1.Enabled = False And Check1.value = Checked
Check1.Enabled = False And Check1.value = Unchecked

Cordialement

CanisLupus
lundi 26 juillet 2004 à 20:18:29 | Re : cases a coché : 3 choix

CanisLupus

Membre Club Administrateur CodeS-SourceS
Enfin, en vb6 ça marche, pour les versions inférieures, je ne garantis pas.

Cordialement

CanisLupus
lundi 26 juillet 2004 à 20:51:13 | Re : cases a coché : 3 choix

hastan

humm.. j dois vraimment avoir du mal..... :'(

voila mon code....
il en veu tjr pô snif...


If (ckArchitectesBois.Value = Checked) Then
v_ArchitectesBois = "True"
MsgBox "coché"
ElseIf (ckArchitectesBois.Value = Unchecked) Then
v_ArchitectesBois = "False"
MsgBox "pacoché"
ElseIf (ckArchitectesBois.Value = Grayed) Then
v_ArchitectesBois = "*"
MsgBox "griser"
End If

dans l doute g essayer avec "vbChecked" mais aucune difference...
les msBox sont juste la pour verifier la valeur renvoyée...

merci tt de meme pour toutes les reponses!!
lundi 26 juillet 2004 à 21:40:55 | Re : cases a coché : 3 choix

CanisLupus

Membre Club Administrateur CodeS-SourceS
Bon, essaie ça alors :

If ckArchitectesBois.Enabled = False Then
v_ArchitectesBois = "*"
MsgBox "griser"
else
If ckArchitectesBois.Value = Checked Then
v_ArchitectesBois = "True"
MsgBox "coché"
Else
v_ArchitectesBois = "False"
MsgBox "pacoché"
end if
End If

Cordialement

CanisLupus
mardi 27 juillet 2004 à 18:56:10 | Re : cases a coché : 3 choix

goguys

Bonjour,

Ce code fonctionne* :

If (ckArchitectesBois.Value = 1) Then
v_ArchitectesBois = "True"
MsgBox "coché"
ElseIf (ckArchitectesBois.Value = 0) Then
v_ArchitectesBois = "False"
MsgBox "pacoché"
ElseIf (ckArchitectesBois.Value = 2) Then
v_ArchitectesBois = "*"
MsgBox "griser"
End If

*Attention, je crois qu'il y a un petit quiproco dans ces réponses. Est ce qu'on parle de l'état inactif de la case (ckArchitectesBois.enabled = False)?
Ou est-ce qu'on parle de l'état de la case qui n'est ni cochée ni "pas cochée" autrement dit l'état grisé (ckArchitectesBois.value=2)?

J'ai mis "=2" et pas "=Grayed" sinon chez moi ça marche pô...

1 2

Cette discussion est classée dans : cases, value, coché, oui, architectesbois


Répondre à ce message

Sujets en rapport avec ce message

couleur du texte dans cases excel [ par joina ] je sais que cette question a déja été posée mais je n'ai trouvé aucune reponse satisfaisante pour VB. Ca c'est mes cases :A_EXCEL.Worksheets(1).Range( cases à cocher questionnaire [ par severino li ] Bonsoir,Je souhaiterai savoir si quelqu'un connaîtrai un moyen pour intégrer dans un masque de saisie pour un questionnaire la valeur "oui","non" et " ACCESS + WORD [ par BOOK ] Bonjour, A partir d'access - liaison office-fusion word j'ai mis en place une table de données avec modèle de document dans word avec publipostage Checkbox, formulaire et requete [ par benzin69 ] Bonjour à tous! je vais essayer de faire clair. J'ai une sorte de petit programme access à réaliser et une partie de celui-ci porte sur un système de [vb 2005] progressbar et marquee [ par lex1111 ] Salut j'ai cherché un peu partout mais je n'arrive pas a trouver le moyen d'utiliser le mode marquee de ma progressbar...Je ne comprends pas pourquoi Tableau aléatoire par paires [ par jcg56123 ] BonjourJ'ai un petit exercice à faire pour l'école. Le pseudo code passe et VB plante ...Le but du programme est de remplir un tableau de 12 indices a Copier TextBox.value [ par ZokraM ] Bonjour à toutes et tous. Je suis tout nouveau utilisateur de VB et je souhaiterai copier le contenu d'une TextBox d'un fichier Word dans une cellule ShellExecute [ par nagstef ] Bonjour !!j'utilise la commande suivante :Dim lapi As Longlapi = ShellExecute(Me.hwnd, "open", newname, vbNull, vbNull, 5)avec un newname = "c:\info.r Rechercher un texte dans une cellule [ par guillom91 ] Bonjour, je ne suis pas encore un expert de VBA sous excel, j'ai un petit soucisj'aimerais faire un tri de cellule sous une condition : Si la cellule Récupérer valeur "Oui ou Non" Alerte Windows: "Voulez vous envoyer à la corbeille"... [ par IVFIC ] Bonsoir à vous qui passerez par là.Je découvre le site..J'ai une macro qui supprime les fichiers sélectionnés d'une listview,mais je ne parviens pas à


Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,560 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales