bouton macro

[nours]

bonjour à tous

une nouvelle fois j'ai besoin de votre aide

j'ai créer un bouton macro pour masquer une ligne

tout bete voici le code :

Sub afficher_1()

Rows('20:20').Select
Selection.EntireRow.Hidden = False
ActiveCell.Select
End Sub

ca marche bien evidemment

par contre pour l'instant j'ai du créer la macro pour afficher cette meme ligne (le meme code avec true)

pour plus de simplicité, comment faire en vba pour pouvoir n'avoir qu'un seul bouton

afficher la ligne si elle est masquée ou la masquer si elle est affiché

je sais c'est tout simple mais j'avance pas

merci

 

[ArnaudEIC]

salut,

Sub afficher_1()

Rows('20:20').Select
If Selection.EntireRow.Hidden = True Then
    Selection.EntireRow.Hidden = False
Else
    Selection.EntireRow.Hidden = True
End If
ActiveCell.Select

End Sub

 

[pierre]

slt

Rows('20').Hidden = IIf(Rows('20').Hidden = False, True, False)


bye

 

[PascalXLD]

Bonjour

essaies ceci

Sub afficher_1()

If Rows('20:20').EntireRow.Hidden = False Then
Rows('20:20').EntireRow.Hidden = True
Else
Rows('20:20').EntireRow.Hidden = False
End If
ActiveCell.Select
End Sub

Bon courage


EDITION : OUPS Collision Mais 3 dans la même minute je ne sais pas si on a déjà fait sur XLD
Bien sur la methode avec IIF est plus rapide

Message édité par: Pascal76, à: 14/09/2005 11:49

 

[Robert]

Bonjour Nours, bonjour lr forum,

En pièce jointe un fichier avec un Bouton Bascule (Interrupteur Marche/Arrêt). C'est une possibilité, il y en a d'autres... [file name=nours.zip size=8657]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/nours.zip[/file]

 

[nours]

merci merci à vous tous

ca marche et allège mes tableaux

bonne journée à vous

nours

 

[Pyrof]

bonjour,
avec un peu de retard voici une autre solution

ligne = 10
Rows(ligne).EntireRow.Hidden = (Rows(ligne).EntireRow.Hidden + 1) Mod 2