Derniere question !!! Visual basic et excel

Résolu
Claire -  
bouket Messages postés 143 Date d'inscription   Statut Membre Dernière intervention   -
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   Statut Membre Dernière intervention   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
Réponse 2 / 11
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
Réponse 3 / 11
bouket Messages postés 143 Date d'inscription   Statut Membre Dernière intervention   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
Réponse 4 / 11
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

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

Posez votre question
Réponse 5 / 11
Claire
 
PEut etre mieux mais toujours rien qui disparait...
0
Réponse 6 / 11
bouket Messages postés 143 Date d'inscription   Statut Membre Dernière intervention   22
 
Les cases à cocher sont-elles directement sur la page excel, où dans un formulaire sous VB ?
0
Réponse 7 / 11
Claire
 
Directement sur la page excel
0
Réponse 8 / 11
bouket Messages postés 143 Date d'inscription   Statut Membre Dernière intervention   22
 
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
 
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   Statut Membre Dernière intervention   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
Réponse 11 / 11
bouket Messages postés 143 Date d'inscription   Statut Membre Dernière intervention   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