probleme case a cocherRésolu

Question

bonjour a tous ,

alors voila j'ai creer un formulaire avec des case a cocher et je voudrai que lorsque je clic sur l'une d'entre elle,les autres ne peuvent pas etre cocher...j'espere avoir été assez clair merci pour tout

voila la procédure que j'ai tapé mais ça ne marche pas ...
Private Sub caseacocher()


If Check1.Value = 1 Then
Check2.Enabled = True
End If


End Sub

jrivet · Accepted Answer

Re,
Bah dans l'événement click de Check1

Private Sub Check1_Click()
Call matheus
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Big200148 · Answer

esssais de mettre enable à false.

matheus595959 · Answer

euh non c'est pas ça ...je viens de tester..

merci

cs_Nicko11 · Answer

Essaies plutot avec locked

matheus595959 · Answer

Private Sub caseacocher()


If Check1.Value = 1 Then
Check2.Locked = True
End If


End Sub

comme ça non plus ça marche pas ...

cs_Nicko11 · Answer

Alors une petite question avant de partir,

Es tu sur de passer dans le if car Check1.Value = 1  me parait incorrect d'apres mes souvenirs (plutot -1 ou true).
Ensuite, tu pourrais aussi faire un groue de checkbox mais bon la n'est pas le pb. Vérifie en mode pas à pas pour voir si tu entres bien dans le if.

Salut.

matheus595959 · Answer

oui je vien de tester avec true mais ça ne marche toujours pas je suis bien dans le if il me semble... serieux la je comprend pas trop pourquoi mes checkbox ne sont pas lock ou grisé

merci de votre aide

Big200148 · Answer

Et le if fait le sur l'evenement click des la case à cocher.

jrivet · Answer

Salut,
Le mieux serait tout de même de passer par un groupe de controle et d'utiliser ce petit bout de code qui fait ce que tu souhaite.
Private Sub Check1_Click(Index As Integer)
   Dim CkBox As CheckBox
   For Each CkBox In Check1
       If CkBox.Index <> Index Then           CkBox.Enabled Not (Check1(Index).Value vbChecked)
       End If
   Next
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Salut,

les OptionButtons ne se pas fait pour ça ?

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

matheus595959 · Answer

je sais pas trop je débute en vb

jrivet · Answer

Re,
Bah oui vu comme ca, vaut mieux utiliser les Option Button (ou alors il faut exposer mieux ton problème)

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Les CheckBox sont fait pour être cochés à plusieurs, alors que les optionButtons eux, se décochent automatiquement lors de la coche d'un autre   
Remplace les et tu verras, cela t'évitera de le gérer en code (faisable mais bon, autant profiter des OButtons)

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

matheus595959 · Answer

Private Sub Check1_Click()


If Check1.Value = True Then


Check19.Locked
End If


End Sub

voila j'ai fait ça et il me dit qu'il y aune erreur "methor or data menber not found "

je comprend pas ........

Pym Corp · Answer

Pourquoi ne pas utiliser des RadioButton ?

jrivet · Answer

RE:

Pas de propriété LoCked pour les CheckBox voila ton erreur.
Teste le code que je te propose.

@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Ou remplace les checkbox par les optionbutton, et vire tout le code Locked, etc...

PimCorp : RadioButton (VB 8) = OptionButton (VB 6) 

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

matheus595959 · Answer

je suis d'accord mais le probleme c'est que j'ai deja tapé taper tous le code qui correspond au checkbox pour le relier a une base de donnée et je me vois mal tous recommancer 

existe t'il une propriété du type locked ou bien enabled pour les checkbox
 
merci a tous

jrivet · Answer

>[auteurdetail.aspx?ID=1023752 matheus595959] TESTE MON CODE 


Est ce que au moins tu y a jeté un coup d'oeil
Si tu ne veux pas te retaper les chose pour un groupe de controle, tu devra juste l'adapter à tes besoin pour l'événement Click de tout tes checkbox
@+: Ju£i?n
Pensez: Réponse acceptée

mortalino · Answer

Ctrl + F, menu "remplacer", selectionne  () l'optionButton "tout les projet", renseigne les noms de tes Check par tes OptionButtons, fais remplacer tout et voilà, en trois secondes c'est fait.
Si tu veux pas te faciliter les choses, bah fait compliquer !

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

matheus595959 · Answer

bon ben c'est pas grave je voulai rien remplacer dans mon projet je voualis juste savoir si il y avait une propriété pour grisé les checkbox mais bon...

merci pour tous et a tous

mortalino · Answer

Bah y'a le code de Julien 
Mais il te faut des CheckBox Indexés

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, ~Provençal, le Gaulois~

Big200148 · Answer

tu les grise avec enable à false

matheus595959 · Answer

bon ben je vais tester le code de julien et je viens vous dire quoi surement demain 

merci pour votre aide précieuse et merci julien

cs_Exploreur · Answer

Bonsoir à tous,

Moi il y a un petit truc qui me parrait bizarre 1023752  matheus595959...
=172341 Big200148 te dit de mettre la propriété Check2.Enabel = False (dans ce cas là on ne peut plus les cochées) et toi tu dit que cela ne marche pas...

Comprend pas.....

A+
Exploreur

matheus595959 · Answer

bonjour explorer voila ce que j'ai taper comme commande :

Private Sub Check1_Click()




If Check1.Value = True Then


   Check2.Enabled = False
End If


End Sub


 


ça ne marche pas il me dit method or data menber not found je crois que je dois mettre quelque chose ds la parenthese mais je ne sais pas quoi


 


merci de votre aide

jrivet · Answer

Re,
Pour que ce code fonctionne tu dois modifier une chose.
Un checkbox coché n'as pas la valeur TRUE (-1) mais 1
Donc il faut mettre If Check1.Value = 1 Then

Ensuite pourquoi ne pas adapter ce que je te marquais Hier.
Private Sub Check1_Click()   Check2.Enabled Not (Check1.Value vbChecked)
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Essaye cela à condition que tu AS BIEN UNE CHECK2 :

If Check1.Value = vbChecked Then
Check2.Enabled = False
Else
Check2.Enabled = True
End If

A+
Exploreur

matheus595959 · Answer

merci julien mais le probleme persiste il me marque toujours l'erreur method or data menber not found ...

je vois pas trop pourquoi au fait je bosse sur vb 6.0

cs_Exploreur · Answer

Délosé Jrivet, décidément...lol..Post croisé..++

A+
Exploreur

jrivet · Answer

Salut,
Moi aussi je suis en VB6. 
et c'est IMPOSSIBLE que cela ne fonctionne pas 
si tu veux tu peux m'envoyer ton projet à epsylon9@gmail.com. car la je ne suis sec.

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

je te l'envoie de suite merci de ton aide et de l'attention que tu porte a mon probleme

cs_Nicko11 · Answer

matheus595959, method or data menber not found, as tu quelque chose dans la propriété datamember qui ferait référence à une base de données.

Car dans ce cas, ca serait plutot a ce niveua que ca irait pas. Et donc, il faudrait vérifier la source.

matheus595959 · Answer

oui j'ai bien une base de données ...

jrivet · Answer

Salut,
Que dois je faire pour aller dans la feuille qui pose problème et avoir l'erreur. (quelle feuille c'est déjà)

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

c'est la feuille ventilation

cs_Nicko11 · Answer

Par contre Julien, pour moi en VB6 et VBA, si case cochée, la valeur est bien -1 et pas 1.

matheus595959 , essaie de créer une autre checkbox et de la desactiver de la meme maniere pour voir car le code donné devrait fonctionner.

Sinon, pourquoi ne pas utiliser un groupe d'option bouton qui serait plus pratique comme le disais mortalino.

jrivet · Answer

Salut,
Quelle case dois je cocher pour avoir ton erreur.
je veux bien aider mais le plus tu en dis le mieux c'est (tu penses pas?)

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

julien je viens de te le renvoyer c'est dans le formulaire entialtion tout en bas de la page de code

jrivet · Answer

Re,
Ah? car moi en VB6 ceci m'affiche 1 et non -1
Private Sub Check1_Click()
   MsgBox Check1.Value
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

En VBA en revanche cela affiche bien True (-1)

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

tu click sur la case orig dans la partie monsieur le maire 

il n'affiche pas l'erreur mais rien ne se passe

jrivet · Answer

Re,
Comment ca rien ne se passe chez moi la case se coche bien, Que devrait il se passer ? 
Est ce que par hasard tu souhaiterais passer dans la procédure matheus?

Dans ce cas c'est normal que rien ne se passe , tu n'appelles pas matheus

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

oui la case se coche bien mais la case check2 n'est pas grisée??

je l'appelle ou matheus stp ??

merci

matheus595959 · Answer

t'es un chef julien c'est bon ça marche je te remercie pour cette aide fort précieuse merci beaucoup pour tout

a bientot

jrivet · Answer

Re,
Alors juste avant de terminer avec ceci.
(je suis tout rouge devant mon PC)
Je crois que tu devrais reprendre tout la discution pour relire ce que l'on te marques car :
- IL n'y avait pas d'erreur 
- Enabled Existe bien pour une CheckBox.

En fait ton problème venait simplement du fait que tu ne sais pas faire appel à des procédures... 
5 Pages pour en arrive la. excuse moi mais je trouve cela excessif.

Alors je n'essaie pas de te démoraliser ou de te faire la morale. Mais lorsqu'on te marque 
Private Sub Check1_Click()    Check2.Enabled Not (Check1.Value vbChecked)
End Sub

pourquoi tu t'acharnes a mettre 

Private Sub matheus()

If Check1.Value = vbChecked Then
Check2(0).Enabled = False
Else
Check2(0).Enabled = True
End If
End Sub<hr />
, ----
[code.aspx?ID=41455 By Renfield]
Si tu avais testé ce que l'on te proposes tu aurais eu ta réponse bien avant
Encore une fois je ne souhaites pas te sapper le moral. mias une eptite réflexion serait pas mal.
@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

OULA, en effet, juste pour un appel de procédure, c'est du gachi de temps. aahhhhh je deviens rouge moi aussi, LOL.
 
Bon, matheus595959, gageons que cela te serve de lecon. Comme ca, ca n'aura pas été une perte totale de temps.

matheus595959 · Answer

oui je m'excuse de vous avoir fait perdre votre temps precieux...

Grand MERCI

ps: moi aussi je suis rouge devant mon pc mais rouge de honte

matheus595959 · Answer

désolé mais j'ai encore un petit probleme pourquoi il y aune erreur quand j'ecris 

Private Sub Check2(0)_Click()
Call matheus
End Sub

en rouge il s'agit de l'erreur

jrivet · Answer

C'est ceci qu'il faut mettre
Private Sub Check2_Click(Index As Integer)

End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]
Index réprésentant alors l'index du check2 clické.

Tu sais que lorsque tu double click sur ta checkbox (en mode design) tu as directement ceci qui va s'afficher dans le code?

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

En effet, car cela ( Private Sub Check2(0)_Click() ) voudrait dire en théorie que tu as un évenement pour chaque index. Or, le truc, c'est que les groupes de controles permettent d'empeche cela. Donc ce n'est pas possible et c'est logique.

Lorsque tu n'es pas sur de la nomination d'un évenement, faire comment julien t'as dis. D'ouble clic sur le controle en mode Création et tu tomberas direct sur l'evenement associé. Si ce n'est pas celui que tu veux, tu as une liste déroulante en haut a droite, tu déroule et tu choisi l'evenement que tu dédire.

matheus595959 · Answer

oh je suis un boulet ben encore merci et surtout merci de votre patience

jrivet · Answer

Re,
Ilustration de ce Que vient de dire en haut à droite les événement et en haut à gauche (pas mis ici) les différent controles mis dans la feuille

@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

Re,
Po Grave pour le boulet tant que tu pense à appuyer sur réponse accéptée sur les posts qui répondent à tes problème.

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

Comment je dois faire pour voir ton image ?

jrivet · Answer

bah j'pensais que tu la verrais vu que je l'ai uploader dans ma galerie CS
je réessaie

Mieux?

@+: Ju£i?n
Pensez: Réponse acceptée

matheus595959 · Answer

recoucou c'est le come back du "boulet"
je voudrais savoir comment on fait pour voir si une case a cocher d'un autre formulaire est coché ??

parce que je voudrais faire la meme chose mais sur deux formulaire

merci

jrivet · Answer

Re,
NomDuFormulaire.NomDuCheckBox.Value (logique en même temps non?)
n'oublie ce que je t'ai écrit plus haut.
[auteurdetail.aspx?ID=89254 ]
                
                Re,
Po Grave pour le boulet tant que tu pense à appuyer sur réponse accéptée sur les posts qui répondent à tes problème.

@+: [auteurdetail.aspx?ID=89254 Ju£i?n]
Pensez: Réponse acceptée

cs_Nicko11 · Answer

C'est bon JE VOIS lol.

Probleme case a cocher

58 réponses

Votre réponse

Discussions similaires