Derniere question !!! Visual basic et excel

Résolu
Claire -  
bouket Messages postés 147 Statut Membre -
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...
Configuration: Windows XP Internet Explorer 6.0

11 réponses

  1.
    bouket Messages postés 147 Statut Membre 22
     
    
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
    0
  2. Claire
     
    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...
    0
  3. bouket Messages postés 147 Statut Membre 22
     
    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 !
    0
  4. Claire
     
    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 !
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Claire
     
    PEut etre mieux mais toujours rien qui disparait...
    0
  7. bouket Messages postés 147 Statut Membre 22
     
    Les cases à cocher sont-elles directement sur la page excel, où dans un formulaire sous VB ?
    0
  10. Claire
     
    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...
    0
  11. bouket Messages postés 147 Statut Membre 22
     
    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; )
    0
  12. bouket Messages postés 147 Statut Membre 22
     
    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
    0