Bouton afficher/masquer

Bonjour.

J'utilise actuellement une macro pour masquer des lignes, et une autre pour les réafficher.

Je la lie à un objet.

Je souhaiterais utiliser une seule macro, et donc un seul objet... mais je n'y parviens pas.

Mon code :

Sub test_afficher_masquer()
' test_afficher_masquer Macro

    With Worksheets("ODR_open_internet")
          With Rows("4:7")
            If .Hidden Then

                Rows("4:7").Hidden = True

            Else
                Rows("4:7").Hidden = False

            End If
        End With
    End With
End Sub

Bonjour Arunka,

Je pense qu'il suffit de tester la 1ère ligne masquée

Sub test_afficher_masquer()
  ' test_afficher_masquer Macro
  With Worksheets("ODR_open_internet")
    If .Rows(4).EntireRow.Hidden Then
      .Rows("4:7").EntireRow.Hidden = False
    Else
      .Rows("4:7").EntireRow.Hidden = True
    End If
  End With
End Sub

@+

Bonjour toutes et tous

coucou et merci BrunoM45 ^^

@Arunka

juste pour le fun ! avec le code de BrunoM45 ^merci un ToggleButton1 ^{(Active X)}, cela donne bien aussi, la propriété du caption de ce togglebutton1 on affiche masquer ou afficher par clic et le résultat est identique (bien entendu on peut aussi le faire avec un bouton de commande ^{(bouton contrôle de formulaire)}

ci-joint

crdlt,

André

Au top Merci.

Pile ce qu'il me fallait.

Encore merci à vous deux