Rechercher : dans
Par :

[VBA] Checkbox sous excel

Dernière réponse le 2 mai 2008 à 22:48:38 gloglo111, le 7 fév 2007 à 11:07:41 
 Signaler ce message aux modérateurs

Bonjour,

Mon problème est le suivant: j'ai créé un tableau excel avec des Checkbox.

j'aimerais qu'a partir du moment ou toutes les checkbox sont cliquées cela me renvoi à la 2e feuille excel.

J'ai beau chercher j'y comprend pas grand chose...:S Merci d'avance pour votre aide!

Configuration: Windows XP
Internet Explorer 6.0

1

debutant, le 7 fév 2007 à 11:11:36

Tu peut faire voir le code tu a commerncer a taper ?

Répondre à debutant

2

gloglo111, le 7 fév 2007 à 11:27:02

J'ai essayer de commencer comme ca:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If CheckBox2.Value = True And CheckBox3.Value = True Then




End Sub



Ca confirme tres certainement que je n'y connais rien en programmation:)

merci

Répondre à gloglo111

3

gloglo111, le 7 fév 2007 à 14:46:52

J'ai une autre idée peut être plus facilement réalisable: Quand je clique toutes checkbox, une msgbox s'ouvrirait pour dire d'aller feuille 2:

j'ai fais ca, c'est pas mal mais je dois cliquer sur une cellule apres avoir cliqué toutes mes checkbox pour que le message s'affiche


Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If CheckBox1.Value = True And CheckBox2.Value = True Then

MsgBox "Les conditions sont remplies. Pour la portée de l'exonération, cliquez feuille 2"

End If

End Sub


Auriez vous un moyen pour que le message s'affiche pile au moment ouo je clique la dernière checkbox ?

Peut etre aussi qu'en cliquant ok de la msgbox, cela reverra a la feuille 2 ?

merci de votre aide

Répondre à gloglo111

4

scy75caldh, le 7 fév 2007 à 20:49:35

Pour faire court, voici un bout de code qui peut convenir :

Private Sub CheckBox1_Click()

If CheckBox1.Value = True And CheckBox2.Value = True Then

' MsgBox "Les conditions sont remplies. Pour la portée de l'exonération, cliquez feuille 2"
Feuil2.Activate
End If

End Sub
Private Sub CheckBox2_Click()

If CheckBox1.Value = True And CheckBox2.Value = True Then

' MsgBox "Les conditions sont remplies. Pour la portée de l'exonération, cliquez feuille 2"
Feuil2.Activate

End If

End Sub
ça reste dans l'esprit ?

Voilà à la prochaine

Répondre à scy75caldh

5

gloglo111, le 13 fév 2007 à 18:39:47

Merci, cela ira tres bien!

Cordialement

Répondre à gloglo111

6

Tipaye, le 14 sep 2007 à 14:34:15

Bonjour,

j'ai un petit soucis du même ordre : j'ai une feuille excel remplie de cases à cocher. Je souhaiterai établir un programme vba capable d'extraire toutes les réponses dans des variables et recopie les valeurs dans une autre feuille (si case cochée alors on renvoie "x" sinon on renvoie "vide" par exemple)

extrait de mon code (la checkbox21 est le nom de ma case à cocher dans excel)

If CheckBox21.Value = True Then
texte = "x"
Else
texte = ""
End If

Quand j'exécute mon programme, le système me dit qu'il y a une erreur d'exécution 424 : objet requis.
Que dois-je ?
Merci d'avance

Répondre à Tipaye

7

 toto40, le 2 mai 2008 à 22:48:38
  • +6

Voilà j'ai un projet qui comporte 4 checkbox et je n'arrive pas à créer un code qui m'empachera de selection 2 checkbox en meme temps...

Répondre à toto40
Collection CommentÇaMarche.net