Afficher des lignes cachées en appuyant sur un bouton

Le
lotfibenberim
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!
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
MichDenis
Le #4271451
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




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!
Gilles MOUGNOZ
Le #4271441
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!


lotfibenberim
Le #4271261
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
lotfibenberim
Le #4271251
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
papou
Le #4271201
Bonjour
Rows("20:32").EntireRow.Hidden = False

Cordialement
Pascal



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



MichDenis
Le #4271171
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 !





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
Publicité
Poster une réponse
Anonyme