[VBA] Checkbox sous excel
Résolu/Fermé
gloglo111
Messages postés
11
Date d'inscription
mercredi 7 février 2007
Statut
Membre
Dernière intervention
3 mars 2008
-
7 févr. 2007 à 11:07
Moi Sonneuse - 31 juil. 2012 à 16:27
Moi Sonneuse - 31 juil. 2012 à 16:27
6 réponses
gloglo111
Messages postés
11
Date d'inscription
mercredi 7 février 2007
Statut
Membre
Dernière intervention
3 mars 2008
5
7 févr. 2007 à 14:46
7 févr. 2007 à 14:46
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
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
7 févr. 2007 à 20:49
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
13 févr. 2007 à 18:39
Cordialement