Afficher des lignes cachées en appuyant sur un bouton

Pour afficher toutes les lignes :

with worksheets("Feuil1")
.Rows.Hidden = False
end with
OU

Pour afficher seulement certaines lignes listées (4 - 8 - 10)
with worksheets("Feuil1")
for each elt in Array(4,8,10)
.Rows(elt).Hidden = False
Next
end with



<lotfibenberim@hotmail.com> a écrit dans le message de news:
1175767415.595174.17540@l77g2000hsb.googlegroups.com...
Bonjour,
J'ai masqué des lignes sur ma feuille excel et je voudrais les
afficher grace a des boutons que j'ai mis sur la même feuille.
C'est Urgent, Merci de votre aide!

Bonjour, lotfibenberim
Ce qui est urgent, c'est d'apprendre à mieux connaître les outils que tu
utilises ;-)
L'enregistreur de macro est un outil formidable qui peut t'aider à apprendre
plein de fonctions VBA.
Il se trouve dans le menu Outils Macros Nouvelle macro...
En analysant le code généré ainsi, tu aurais facilement pu arriver à ce
code:
Rows("1:1").EntireRow.Hidden = False
A toi de remplacer 1 par le numéro de la ligne que tu veux afficher.
--
Bonne continuation

Bonjour,
J'ai masqué des lignes sur ma feuille excel et je voudrais les
afficher grace a des boutons que j'ai mis sur la même feuille.
C'est Urgent, Merci de votre aide!

Merci à vous deux, c'est magique !!!
enfin c'est ce que je me suis dit, mais ça ne marche qu'une fois. :(
j'ai un message du genre : impossible de définir la propriété hidden
de la classe range.
Encore merci

Voila ce que j'ecris dans VBA


Private Sub Commandbutton1_Click()

With Worksheets("Feuil1")
For i = 20 To 32
.Rows(i).Hidden = False
Next
End With


End Sub

' C'est pour lancerla macro par clic sur le bouton

Bonjour
Rows("20:32").EntireRow.Hidden = False

Cordialement
Pascal

<lotfibenberim@hotmail.com> a écrit dans le message de news:
1175781083.038246.209910@l77g2000hsb.googlegroups.com...

Voila ce que j'ecris dans VBA


Private Sub Commandbutton1_Click()

With Worksheets("Feuil1")
For i = 20 To 32
.Rows(i).Hidden = False
Next
End With


End Sub

' C'est pour lancerla macro par clic sur le bouton

Private Sub Commandbutton1_Click()
With Worksheets("Feuil1")
For i = 20 To 32
.Rows(i).Hidden = False
Next
End With
End Sub

Ceci fonctionne très bien... autant de fois que tu désires
A ) la feuille "Feuil1" doit exister
B ) ladite feuille ne doit pas être protégée.

Sinon renvoie à microsoft ton software !



<lotfibenberim@hotmail.com> a écrit dans le message de news:
1175781083.038246.209910@l77g2000hsb.googlegroups.com...

Voila ce que j'ecris dans VBA


Private Sub Commandbutton1_Click()

With Worksheets("Feuil1")
For i = 20 To 32
.Rows(i).Hidden = False
Next
End With


End Sub

' C'est pour lancerla macro par clic sur le bouton