bouton de commande et case à cocher

Question

Bonjour, re... J'ai un bouton de commande et une case à cocher Voila, j'aimerais faire en sorte que lorsque je clique sur mon bouton de commande la case a cocher passe en true... Mais faire en sorte qu'on puisse tout de meme cocher ou decocher avec un message informant de l'action Une idée ?Merci..

jrivet · Answer

Salut,
Est ce que ceci t'irais?
Private Sub Command1_Click()   Check1.Value IIf(Check1.Value vbChecked, vbUnchecked, vbChecked)
End Sub<hr />, ----
[code.aspx?ID=41455 By Renfield]

En revanche je ne comprens pas :   "avec un message informant de l'action "  

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut Jrivet,

Je pense qu'il veut le dire, que le faite de changer l'état de son check., si tu change son état tu avertis l'utilisateur..

A+
Exploreur

 Linux a un noyau, Windows un pépin

TiteZ · Answer

Oui c'est exactement ça... et en plus je viens d'apprendre l'existence du IIf ....
Exploreur a bien compris la deuxieme partie... 
sauf qu'il aurait du penser " qu'elle veut dire et pas qu'il ...."

jrivet · Answer

Salut,
Donc tu afficher (par exemple) "Attention le Check va être coché" c'est ca?

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Nicko11 · Answer

Salut, 

Pardonne Exploreur mais ton pseud n'est pas explicite quant à ton sexe.

Pour ton message, il suffit de faire ca dans le cas ou la valeur a changée
 
msgbox "La valeur de " &Check1.caption & "à été changée à " & Check1.value.

cs_Nicko11 · Answer

Heu bizarre, en postant ca m'a supprimer un espace. Enfin pour moi, je suis parti du principe que c'est un message apres l'action et pas préventif, c'est bien cela que tu souhaites TiteZ

cs_Exploreur · Answer

Mes excuses TiteZ...

A+
Exploreur

 Linux a un noyau, Windows un pépin

TiteZ · Answer

moo c'est pas grave Exploreur....

Il s'agit bien d'un message preventif
ce que m'a Jrivet m'a permis de cocher la case en question c'est parfait...
Maintenant j'aimerais que si j'ai envie de changer la coche de la case.. j'ia un message qui me dise que je vais changer la coche.. sans toutefois l'empecher...

cs_Exploreur · Answer

Salut,

Regarde dans la propriété Click de ta case à cocher, en vérifiant sa valeur..

A+
Exploreur

 Linux a un noyau, Windows un pépin

jrivet · Answer

Re,
Essayons ceci alors:

Private Sub Check1_Click()
   Call MsgBox("Le CheckBox a été " & IIf(Check1.Value = vbChecked, "Coché", "Décoché"))

End Sub<hr />
Private Sub Command1_Click()   Check1.Value IIf(Check1.Value vbChecked, vbUnchecked, vbChecked)
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

cs_Exploreur · Answer

Salut,

Private Sub Check1_Click()


If Check1.Value = 0 Then
    If MsgBox("Voulez-vous dévalidez la case ? ", vbInformation Or vbOKCancel, "Case à cocher") = vbOK Then
       Check1.Value = 0
       Else
       Check1.Value = 1
    End If
End If


End Sub


A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_Exploreur · Answer

Je m'y ferai jamais à cette façon de coder, mauvais réflexe..Rrrr.Rrrr

A+
Exploreur

 Linux a un noyau, Windows un pépin

TiteZ · Answer

Hin hin
En faite ça ça maffiche ma msg box quand j'ait fait mon traitement et que ma case a été coché

Ce que j'aimerais c'est que lorsque j'ai terminé montraitement que je vis ma vis gentillement sur excel et que oups maladroitement je coche ( ou décoche) ma case .. là op j'ai ma msg box qui me dis hep hep hep... fais attention tu viens de decocher ...ou cocher ta case....

TiteZ · Answer

Exactement ça!
en faite c'était une simple boucle merci bcp à vous ...

cs_moustachu · Answer

Bonjour

J'arrive un peu tard mais je crois qu'elle souhaite un message d'avertissement. Plutot dans l'évènement MouseDown car le click va être également lancé au moment du changement de valeur lorsqu'on appuye sur le bouton :

Private Sub Check1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)    If MsgBox("Le CheckBox va être " & IIf(Check1.Value vbChecked, "décoché", "coché") & ". Voulez-vous continuer ?", vbYesNo) vbYes Then        Check1.Value Abs(Not (Check1.Value vbChecked))
    End If
End Sub

++
 Moustachu

TiteZ · Answer

Bonjour moustachu...

Je ne sais pas du tout ce qu'est l'evenement Mousedown...
J'ai essayé ta procedure pour la comprendre mais elle ne fonctionne pas chez moi...

cs_Nicko11 · Answer

A quoi correspond, "lorsque j'ai terminé mon traitement". car ce que tu peux faire, c'est vérouiller le case a coché pour ne plus avoir a gérer le "hep hep hep... fais attention tu viens de decocher ...ou cocher ta case.... "

Voir la propriété locked de la case à cocher.

TiteZ · Answer

En faite ce qui se passe c'est qu'en cliquant sur mon boutan de comande j'ai tout une serie de petite chose qui se font sur ma feuille 
a la fin j'ai la petite coche qui vient se mettre qd mon traitement est fini..

Par contre je ne veux pas verouiller la case... je veux simplement qu'il soit avertit de ce qu'il est en train de faire..

Le code d'exploreur me convient... j'ai juste a modifier le else final mais c'est ok

Toutefois le moussdown de moustachu j'aimerais bien savoir ce que c'est ....

jmfmarques · Answer

C'est peut-être que le mouseDown n'est pas géré par VBA (tu peux dans ce cas utiliser le MouseUp)

cs_Exploreur · Answer

Salut Nicko,

Pas de propriété locked pour la case à cocher.

A+
Exploreur

 Linux a un noyau, Windows un pépin

TiteZ · Answer

Bah Mouse down ou MoussUp....

Je ne sais toujours pas comment m'en servir et ce que c'est surtout;....

jmfmarques · Answer

Question à toi, TiteZ :
Sais-tu ce qu'est un événement ?

TiteZ · Answer

euh oui je crois...
c'est le resultat d'une action
....
J'ai bon ?

mais on avait dis pas d'interro surprise...

jmfmarques · Answer

Bon ! C'est presque bien !
Ce n'est pas le résultat lui-même, toutefois, mais la constatation d'une action (quel qu'en soit l'auteur physique, moral ou virtuel...)
Quand tu appuies sur un bouton de ta souris, tu déclenche un événement (MouseDown) et quand tu relaches ta souris, tu en déclenches un autre (MouseUp)... et ces deux événements-là sont constatés par le système. Puisque constatés, ils permettent, à leur survenue, d'exécuter des instructions dont tu souhaites l'exécution à l'occasion de leur constatation (à toi alors de définir ces instructions, pardi...)
Maintenant (et tout en ignorant les événements reconnus par VBA - que je ne connais pas -  pour tel ou tel autre contrôle) : il te suffit d'ouvrir ton aide en ligne pour connaître la liste des événements susceptibles d'être reconnus pour un contrôle (pour un contrôle Texbox, par exemple : aide en ligne =>> TextBox ===>> un clic sur l'onglet événements (events en anglais) ==>> lecture instructive).
Tu peux également, dans l'interface IDE, double cliquer sur le contrôle de ton choix et faire dérouler la liste des événements qui lui sont associés.
Bonne découverte.

TiteZ · Answer

lol
merci à toi jmfmarques
j'ai de la lecture qui m'attends...

cs_Nicko11 · Answer

Désolé Exploreur, mais je suis en VBA Access et je pensais que c'était pareil pour VB6.

Merci pour l'info (le pire, je crois qu'on m'avais deja fait la remarque)

Bouton de commande et case à cocher

26 réponses

Votre réponse

Discussions similaires