Cases à cocher

Eric C

XLDnaute Barbatruc

• 21 Décembre 2005

• #2

Bonjour le forum
Bonjour jeandorpas (n'abuses pas trop des sommifères ... arf)

Un début de piste à reprendre pour les autres CheckBox :

Code:

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
CheckBox2.Value = False
CheckBox3.Value = False
End If
End Sub

Ce qui fait que si CheckBox2 ou 3 ou les 2 sont sélectionnés, l'action sur le CheckBox1 le ou les désélectionne.

Bonne journée à toutes & à tous 😉

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Décembre 2005

• #3

Re le forum
Re bonjour jeandorpas

Le code complet pour 3 CheckBoxs

Code:

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = False
CheckBox3 = False
End If
End Sub

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1 = False
CheckBox3 = False
End If
End Sub

Private Sub CheckBox3_Click()
If CheckBox3 = True Then
CheckBox1 = False
CheckBox2 = False
End If
End Sub

Baille bye 😉

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 21 Décembre 2005

• #4

Bonjour à tous,
Je viens de recopier le code et l'ai collé pour chaque boite et là Visual me répond :
'erreur de compilation, sub ou fonction non définie'.
Pourriez-vous m'éclairer, ça m'arrive souvent d'avoir ce message et j'aimerais m'en débarrasser.
Merci par avance pour vos réponses.

 

Vote positif 0 Vote négatif

J

jeandorpas

Guest

• 21 Décembre 2005

• #5

Merci pour ces précieuses réponses.

Cependant, vous allez trouver que j'abuse, mais où dois-je positionner ces lignes de codes ?

J'ai essayé de mettre ces lignes de codes dans les 'macros' des cases, en changeant 1 par 74, soit le n° de la case, mais je n'obtiens rien qu'un message d'erreur.

Merci encore de votre aide (je vous avais bien dis que je suis une buse en Excel)

😉

 

Vote positif 0 Vote négatif

C

ccpapy

XLDnaute Impliqué

• 21 Décembre 2005

• #6

bonjour à tous,
jeandorspas, tu as bien copié

Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2 = False
CheckBox3 = False
End If
End Sub
dans le checkbox1

Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1 = False
CheckBox3 = False
End If
End Sub
dans le checkbox2
et ainsi de suite pour le 3 ?

 

Vote positif 0 Vote négatif

V

visiteur

Guest

• 21 Décembre 2005

• #7

bonjour à tous

jeandorpas, tu fais Alt+F11, insère un module et colle ta macro
puis crée un bouton sur ta feuille de travail et clic droit affecter une macro

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 21 Décembre 2005

• #8

Re,
Mon erreur venait du fait en copiant/collant, c'était mal interprété, les if ou then n'étaient pas considérés comme du code et donc n'étaient pas en bleu.
Peut-être est-ce le même soucis pour toi jeandorspas ???
Salut.

 

Vote positif 0 Vote négatif

J

jeandorpas

Guest

• 21 Décembre 2005

• #9

désolé, je ne comprends rien, ni où coller cela, ni comment faire, je suis sur ma feuille excel avec mes cases et je suis paumé.

 

Vote positif 0 Vote négatif

J

jeandorpas

Guest

• 21 Décembre 2005

• #10

visiteur écrit:

bonjour à tous

jeandorpas, tu fais Alt+F11, insère un module et colle ta macro
puis crée un bouton sur ta feuille de travail et clic droit affecter une macro

Cliquez pour agrandir...

Quand je fais F11, j'obtiens un affichage gris sur visual basic, mais rien où copier les codes.
Suis un boulet, non ?

 

Vote positif 0 Vote négatif

D

daniel

Guest

• 21 Décembre 2005

• #11

Re,
Encore moi, entre buses hein !!!
Pour créer tes cases à cocher, utilises-tu bien la barre d'outil Boite à outils controles et non formulaires ??
Si c'est bien controles et si le bouton mode création est enfoncé (bouton avec une règle une équerre bleue et un crayon), cliques 2 fois dessus et la fenêtre visual s'ouvre automatiquement

Private Sub CheckBox4_Click()

End Sub
Tu y colles le code fourni, mais surtout fais bien attention que les mots codes soient bien en bleu ci-desssous :

Private Sub
If True Then
False
False
End If
End Sub
J'espère que ça va t'aider, j'suis à fond là, je pourrai pas t'offrir bcp plus.

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Décembre 2005

• #12

Re le forum
Bonjour Daniel, visiteur & ccpapy

Un tit fichier valant mieux qu'un long discours

Bonne journée à toutes & à tous 😉 [file name=Jeandorpas.zip size=10441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jeandorpas.zip[/file]

 

Pièces jointes

• Jeandorpas.zip

  10.2 KB · Affichages: 93

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Décembre 2005

• #13

Re le forum
Bonjour Daniel, visiteur & ccpapy

Un tit fichier valant mieux qu'un long discours

Bonne journée à toutes & à tous 😉 [file name=Jeandorpas_20051221112757.zip size=10441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jeandorpas_20051221112757.zip[/file]

 

Pièces jointes

• Jeandorpas_20051221112757.zip

  10.2 KB · Affichages: 68

Vote positif 0 Vote négatif

J

jeandorpas

Guest

• 21 Décembre 2005

• #14

Eric C écrit:

Re le forum
Bonjour Daniel, visiteur & ccpapy

Un tit fichier valant mieux qu'un long discours

Bonne journée à toutes & à tous 😉 [file name=Jeandorpas.zip size=10441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Jeandorpas.zip[/file]

Cliquez pour agrandir...

Fichier bien reçu mais je n'y arrive pas.
Si tu es d'accord, 0632121427, à réception de ton appel, je te rappelerai pour t'éviter les frais.
Seulement si tu es dispo et ok.
Merci

 

Vote positif 0 Vote négatif

Eric C

XLDnaute Barbatruc

• 21 Décembre 2005

• #15

Re le forum
Re le fil

Non non non, tout se passe Ici sur ce forum qui est un forum d'Aide bénévole & de Partage de Connaissances.

A cette heure 11:50, il y a déjà eu 81 visites donc de nombreuses personnes sont intéressées par ton post. Il ne serait pas judicieux de n'en faire profiter que toi.

Le mieux est de placer un fichier avec ce que tu désires exactement.

Tu auras une réponse très rapidement. Si cela n'était pas, je reviendrai ce soir vers 18H15 pour voir ... Là je vais me restaurer et partir au boulot.

Bonne appétit à toutes & à tous

😉

 

Vote positif 0 Vote négatif