Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel CASE A COCHER + MACRO

CASE A COCHER + MACRO

9 réponses
Avatar
TRUP
Bonjour à tous,

voilà, je souhaiterai, en cliquant sur une case à cocher :
- que la macro masque les lignes d'une selection quand la case n'est pas
selectionnée

- que la macro affiche les lignes d'une selection quand la case est
selectionnée

Merci d'avance pour votre aide

Trup
Signaler un problème avec ce contenu

9 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
TRUP
Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!
Avatar
isabelle
bonjour Trup,

utilise la macro événementielle à mettre sur la page code de la feuille contenant le CheckBox

Private Sub CheckBox1_Click()
If CheckBox1 Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If
End Sub

isabelle


Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!


Avatar
Denis
Bonjour,
Dans format du controle sur l'onglet controle, cellule liée à définir. et je
crois que c'est cette cellule qui prendra la valeur vrai ou faux.
Cordialement
Denis

"TRUP" a écrit dans le message de news:

Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!


Avatar
TRUP
Merci Isabelle pour ta réponse...

Ton code ne change rien, les lignes sont bien masquées mais ne se démasquent
pas quand je reselectionne la case à cocher


bonjour Trup,

utilise la macro événementielle à mettre sur la page code de la feuille contenant le CheckBox

Private Sub CheckBox1_Click()
If CheckBox1 Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If
End Sub

isabelle


Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!





Avatar
ABED HADDOU
Bonjour

ouvre ça http://cjoint.com/?lksRo1h0KA

Private Sub CheckBox1_Change()
rhone
End Sub

Sub rhone()
If Feuil1.CheckBox1 = True Then
Rows("37:40").EntireRow.Hidden = True
Else
Rows("37:40").EntireRow.Hidden = False
End If
End Sub

Abed_H



Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!


Avatar
isabelle
rebonjour Trup,

regarde cette exemple :
http://cjoint.com/?lks1A72fSl

isabelle

Merci Isabelle pour ta réponse...

Ton code ne change rien, les lignes sont bien masquées mais ne se démasquent
pas quand je reselectionne la case à cocher



bonjour Trup,

utilise la macro événementielle à mettre sur la page code de la feuille contenant le CheckBox

Private Sub CheckBox1_Click()
If CheckBox1 Then
Selection.EntireRow.Hidden = False
Else
Selection.EntireRow.Hidden = True
End If
End Sub

isabelle



Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!







Avatar
TRUP
MERCI A VOUS TOUS...ISA, DENIS ET ABED....CA MARCHE NICKEL !!!!
Pour info, ca ne marchait pas car la case à cocher était un formulaire et
pas une boite a controle....

MERCI ENCORE

a+


Bonjour

ouvre ça http://cjoint.com/?lksRo1h0KA

Private Sub CheckBox1_Change()
rhone
End Sub

Sub rhone()
If Feuil1.CheckBox1 = True Then
Rows("37:40").EntireRow.Hidden = True
Else
Rows("37:40").EntireRow.Hidden = False
End If
End Sub

Abed_H



Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!




Avatar
ABED HADDOU
Re...
voir ces deux exemple
http://cjoint.com/?lkx2d6x5Ae

Abed_H



MERCI A VOUS TOUS...ISA, DENIS ET ABED....CA MARCHE NICKEL !!!!
Pour info, ca ne marchait pas car la case à cocher était un formulaire et
pas une boite a controle....

MERCI ENCORE

a+


Bonjour

ouvre ça http://cjoint.com/?lksRo1h0KA

Private Sub CheckBox1_Change()
rhone
End Sub

Sub rhone()
If Feuil1.CheckBox1 = True Then
Rows("37:40").EntireRow.Hidden = True
Else
Rows("37:40").EntireRow.Hidden = False
End If
End Sub

Abed_H



Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!






Avatar
ABED HADDOU
Re....
voir ces deux exemples
http://cjoint.com/?lkx2d6x5Ae

Abed_H




MERCI A VOUS TOUS...ISA, DENIS ET ABED....CA MARCHE NICKEL !!!!
Pour info, ca ne marchait pas car la case à cocher était un formulaire et
pas une boite a controle....

MERCI ENCORE

a+


Bonjour

ouvre ça http://cjoint.com/?lksRo1h0KA

Private Sub CheckBox1_Change()
rhone
End Sub

Sub rhone()
If Feuil1.CheckBox1 = True Then
Rows("37:40").EntireRow.Hidden = True
Else
Rows("37:40").EntireRow.Hidden = False
End If
End Sub

Abed_H



Quleques précisions :

avec la macro suivante, j'arrive à masquer les lignes quand la case est
décocher, mais elle ne réapparaissent pas qd je recoche la case....

Sub rhone()

If Caseàcocher3 = False Then
Rows("37:40").Select
Selection.EntireRow.Hidden = True
Else
Rows("37:40").Select
Selection.EntireRow.Hidden = False

End If

End Sub

Help please !!!!!!!