Derniere question !!! Visual basic et excel

If (CheckBox1.Checked = False & CheckBox2.Checked = False & CheckBox3.Checked = False) Then
'il faut associer les conditions d'une façon ou d'une autre ;)
Worksheets("Sheet1").Range(Rows(37), Rows(39)).Hidden = False Xor CheckBox1
Worksheets("Sheet1").Range(Rows(56), Rows(77)).Hidden = False Xor CheckBox1

End If 

Mais ou je dois taper ca?

J'ai essaye dans Private Sub CheckBox1_Click()
dans le 2 et dans le 3
J'ai aussi essaye de le taper direct tout en haut, ca marche pas non plus...

Je ne sais pas trop, je suppose que tu dois faire un bouton de validation et mettre le code sur ce bouton pour qu'il s'exécute. car, si tu le mets sur le code de la case à cocher, il ne peut s'exécuter !

Polux31, le mercredi 12 août 2009 à 15:51:54
Checked n'est pas une propriété d'une checkbox ....

Ca vient peut etre de ca..
Je vais essayer ! Je vous redis !

PEut etre mieux mais toujours rien qui disparait...

Les cases à cocher sont-elles directement sur la page excel, où dans un formulaire sous VB ?

Directement sur la page excel

je te conseil d'aller voir içi, tu devrais trouver la réponse ;)

https://forums.commentcamarche.net/forum/affich-12329682-excel-case-a-cocher-conditionnelle#7

Helas non, je viens de tout lire, je veux juste savoir ou je dois ecrire:

If (CheckBox1.Value = False & CheckBox2.Value = False & CheckBox3.Value = False) Then

Worksheets("Sheet1").Range(Rows(37), Rows(39)).Hidden = False Xor CheckBox1
Worksheets("Sheet1").Range(Rows(56), Rows(77)).Hidden = False Xor CheckBox1

End If

Ou savoir pourquoi ca ne marche pas ?

Des que mes 3 checkbox ne sont pas cachees, certaines lignes sont censees disparaitre, mais ca ne marche pas...

Vous créez une case à cocher, puis cliques droit Format contrôle et dans Cellule lié vous mettez A1 par exemple
Puis vous créez un bouton auquel vous assignez une macro dans lequelle sera inscrit se code

Pour créée une macro Outils/Macro/Enregistrer un macro
puis arrêter l'enregistrement de la macro (petit carré)
de nouveau outils/Macro/Macros...
sélectionnez la macro et faites modifier puis coller le code en remplaçant tout, par :

Sub Macro1()

If (Cells(3, 4).Value = True) Then

Rows("8:11").Select 'cache les lignes 8 à 11
Selection.EntireRow.Hidden = True

End If

End Sub

Normalement cela marche, je vous envoie un fichier réalisé par mes soins dans quelques minutes; )

Voici le fichier qui marche bien pour trois cases à cocher :
https://www.cjoint.com/?imsjrt5ymU

Le code relatif à adapter est :

Sub Button4_Click()

If (Cells(1, 3).Value = False And Cells(2, 3).Value = False And Cells(3, 3).Value = False) Then

  Rows("8:11").Select 'cache les lignes 8 à 11
  Selection.EntireRow.Hidden = True

End If

End Sub