Derniere question !!! Visual basic et excel Résolu/Fermé

Question

Bonjour,

Derniere question !!! :)

Maintenant j'ai fait ca:

If CheckBox1.Checked = False
   CheckBox2.Checked = False
   CheckBox3.Checked = False
Then

Worksheets("Sheet1").Range(Rows(37), Rows(39)).Hidden = False Xor CheckBox1
Worksheets("Sheet1").Range(Rows(56), Rows(77)).Hidden = False Xor CheckBox1

And If

Si CheckBox 1, 2 et 3 ne sont pas cochees, je voudrais faire disparaitre les lignes 37 a 39 et les lignes 56 a 77.
Ca ne marche pas, et je sais pas dans quel Private Sub mettre ces phrases...

bouket · Answer

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

Claire · Answer

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...

bouket · Answer

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 !

Claire · Answer

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 !

Claire · Answer

PEut etre mieux mais toujours rien qui disparait...

bouket · Answer

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

Claire · Answer

Directement sur la page excel

bouket · Answer

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

Claire · Answer

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...

bouket · Answer

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; )

bouket · Answer

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