Sujet Précédent Sujet Suivant

Derniere question !!! Visual basic et excel

Résolu/Fermé
Claire - 12 août 2009 à 16:29
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 - 12 août 2009 à 18:10
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...
A voir également:

11 réponses

Réponse 1 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 16:44 

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
Réponse 2 / 11
Claire
12 août 2009 à 16:52
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
Réponse 3 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 16:54
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
Réponse 4 / 11
Claire
12 août 2009 à 16:55
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

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

Posez votre question
Réponse 5 / 11
Claire
12 août 2009 à 16:59
PEut etre mieux mais toujours rien qui disparait...
0
Réponse 6 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 17:02
Les cases à cocher sont-elles directement sur la page excel, où dans un formulaire sous VB ?
0
Réponse 7 / 11
Claire
12 août 2009 à 17:06
Directement sur la page excel
0
Réponse 8 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 17:26
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
0
Réponse 9 / 11
Claire
12 août 2009 à 17:37
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
Réponse 10 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 18:03
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
Réponse 11 / 11
bouket Messages postés 143 Date d'inscription mardi 11 août 2009 Statut Membre Dernière intervention 16 octobre 2011 22
12 août 2009 à 18:10
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