bouton macro

nours · 14 Septembre 2005

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 · 14 Septembre 2005

salut,

Code:

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 · 14 Septembre 2005

slt

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

bye

PascalXLD · 14 Septembre 2005

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 · 14 Septembre 2005

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 · 14 Septembre 2005

merci merci à vous tous

ca marche et allège mes tableaux

bonne journée à vous

nours

Pyrof · 14 Septembre 2005

bonjour,
avec un peu de retard voici une autre solution

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

bouton macro

nours

Guest

ArnaudEIC

Guest

pierre

Guest

PascalXLD

XLDnaute Barbatruc

Robert

XLDnaute Barbatruc

Pièces jointes

nours

Guest

Pyrof

XLDnaute Occasionnel

Discussions similaires