case à cocher

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #2

Re : case à cocher

Bonjour Laurent, le forum,

Il vaut mieux utiliser des boutons d'options plutôt que des cases à cocher.

Pour une même question, les 2 boutons renverront 1 ou 2 dans une cellule liée, par exemple en colonne A.

Pour connaître le nombre de "oui", utiliser la formule =NB.SI(A:A;1) et =NB.SI(A:A;2) pour le nombre de "non".

En VBA, cela donne Application.CountIf([A:A], 1) et Application.CountIf([A:A], 2)

A+

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 14 Octobre 2008

• #3

Re : case à cocher

bonsoir job et merci pour ta réponse.

J'ai essayé avec les boutons d'options mais je ne peux cocher qu'un seul bouton sur les 104 présents... (2 par questions, 52 questions).

Quelle étape ai-je zappé ?

Merci

 

Vote positif 0 Vote négatif

L

Lii

XLDnaute Impliqué

• 14 Octobre 2008

• #4

Re : case à cocher

Bonsoir,

et si tu essayais sans case ni bouton ?

 

Pièces jointes

• OptionsSansCases.zip

  8.6 KB · Affichages: 64

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Octobre 2008

• #5

Re : case à cocher

Bonsoir,
As tu groupé les boutons ?
A+
kjin

 

Pièces jointes

• Boutons_V1.zip

  3.1 KB · Affichages: 53

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 14 Octobre 2008

• #6

Re : case à cocher

Message annulé, car kjin a parfaitement montré le groupage des boutons.
Bonne fin de soirée et A+

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 14 Octobre 2008

• #7

Re : case à cocher

Merci pour votre aide. J'ai pensé a groupé les boutons mais en me compliquant la vie par rapport à toi ^^

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 14 Octobre 2008

• #8

Re : case à cocher

Re, bonsoir job,

Laurent313131 à dit:

...J'ai créée un questionnaire sur Excel avec 52 questions et en face de chaque question j'ai inséré 2 cases à cocher (contrôle de formulaire) Oui ---- Non.

Cliquez pour agrandir...

job75 à dit:

Effectivement il faut grouper les boutons, et pour cela les créer avec la Boîte à outils Contrôle.

Cliquez pour agrandir...

Et pourquoi utiliser les contrôles ActiveX ?
Ou mon fichier n'est pas passé...!
A+
kjin

Edit: Désolé Job, nos messages se sont croisés, mais je me disais bien...

 

Dernière édition: 14 Octobre 2008

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 15 Octobre 2008

• #9

Re : case à cocher

bonsoir,

Alors j'ai bidouillé une petite condition If et j'aimerai qu'en fonction du score, une msgbox s'affiche. Je m'explique : Si le score est entre 0 et 10, je veux qu'une msgbox apparaissent avec " Aucun risque de surentraînemnt " écrit à l'intérieur. Si le score est entre 11 et 20, la msgbox affichera "Risque léger de surentraînement".... ....

Voici mon code :

Sub boutonsoption()

Dim Score As Integer
Dim Etat As String

Score = Range("c55")

If Score > 0 And Score <= 10 Then
Etat = "Aucun risque de surentraînement"

ElseIf Score >= 11 And Score <= 20 Then
Etat = "Risque léger de surentraînement"

ElseIf Score >= 21 And Score <= 25 Then
Etat = "Risque élevé de surentraînement"

Else: Etat = " Surentraînement"

End If

Range("B57") = Etat

MsgBox "Mention", vbExclamation, "Résultat"

End Sub

En gros je voudrais remplacer le "Etat = ..." par une msgbox...

Merci

 

Dernière édition: 15 Octobre 2008

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 15 Octobre 2008

• #10

Re : case à cocher

Bonsoir Laurent,

Pourquoi ne pas écrire tout simplement à la dernière ligne :

MsgBox Etat, vbExclamation, "Résultat" ??

A+

 

Vote positif 0 Vote négatif

L

Laurent313131

XLDnaute Occasionnel

• 15 Octobre 2008

• #11

Re : case à cocher

ahahah suis je bête ! J'avais mis Mention car c'était écrit sur un exemple et j'ai oublié de le remplacer ^^ Merci en tout cas !

 

Vote positif 0 Vote négatif

B

Bigfish

XLDnaute Occasionnel

• 15 Octobre 2008

• #12

Re : case à cocher

Salut,

moi j'aime bien la solution de Kijin

Par ce que 104 controls dans un meme fichier, cela l'alourdi grandement

Aller pour le plaisir voici une solution dans le fichier joint.

un inconvenient quand meme a cette solution, est que l'on doit double cliquer si l'on reste sur la meme cellule.

A+

PS il est possible que vous rencontriez quelques difficultés du a ma version excel en anglais

 

Pièces jointes

• Pseudo CheckBox.xls

  32.5 KB · Affichages: 80

Dernière édition: 15 Octobre 2008

Vote positif 0 Vote négatif