Masquer ligne avec VBA

mec -
melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention - 8 juin 2011 à 16:12

Bonjour,

J'aimerais créer un bouton avec VBA sur excel permettant d'afficher des lignes masquées.
Je m'explique, j'ai une ligne avec le bilan annuel et en masqué juste en dessous j'ai les lignes du détail mensuel. j'aimerais, en clikant sur le bouton, faire afficher ces lignes et donc le détail.

Merci beaucoup

Afficher la suite

Répondre (11)

A voir également:

Vba masquer ligne
Partager photos en ligne - Guide
Mètre en ligne - Guide
Ligne occupée - Forum SFR
Aller à la ligne excel - Guide
Masquer conversation whatsapp - Guide

11 réponses

Réponse 1 / 11

Meilleure réponse

La meilleure réponse est la réponse qui a été validée par nos équipes.

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

voici un début de réponse.

créées ton bouton, fais un clic droit et cliques sur visualiser le code.

tu private sub...
et end sub

entre les deux, mets ces lignes :

Cells.Select
Selection.EntireRow.Hidden = False
Cells(1, 1).Select

essaie et vois si ca te va.

Réponse 2 / 11

mec

Le problème reste le même, tous les détails des autres mois s'affichent aussi....
Est-ce possible aussi d'ajouter une option pour que, lorsque l'on clike à nouveau, les lignes se masquent à nouveau?

Réponse 3 / 11

mec

Merci mais il y a un petit problème. Lorsque je clike sur le bouton, tous les détails de toutes les années se déroulent aussi. Moi, je veux créer un petit bouton pour chaque année pour ne faire afficher que le détail de l'année que l'on veut. Auriez vous une solution? Merci

Réponse 4 / 11

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

j'en ai une, mais il faut que je sache dans quelles colonnes se positionnent les années et combien de lignes il y a entre elles?

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Il me faudrait un détail du fichier comme suit

col a
2009
12 lignes
2010
12 lignes....

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 11

mec

Les années s'étendent de la colonne à la colonne Z.
La première ligne avec des valeurs à l'année commence à la ligne 3. Donc les lignes cachées vont de la ligne 4 à 34 (30 jours). Et ainsi de suite...

Réponse 6 / 11

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

ca varie en fonction des mois je suppose.
juste une dernière précision et ensuite ca sera bon, tu veux 12 boutons (1 par mois) ou un seul??

Réponse 7 / 11

mec

Oui biensur, certains mois ont 31 jours etc...
Ben je veux créer un bouton par mois (12 boutons), je pense qu'avec un modèle pour un mois je pourrais m'en sortir pour les autres! Merci beaucoup !

Réponse 8 / 11

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Bonjour,

Pour chaque bouton, tu fais comme je t'ai dit.
Clic droit et visualiser le code.
Entre les deux lignes, tu mets :
Rows("4:34").Select 'tu adaptes tes lignes en fonction de tes mois
Selection.EntireRow.Hidden = False

donc pour le premier bouton, ca donne :
Private Sub CommandButton1_Click()
Rows("4:34").Select 'tu adaptes tes lignes en fonction de tes mois
Selection.EntireRow.Hidden = False

End Sub

Réponse 9 / 11

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

Non , tous les autres mois ne s'affichent pas!!!!
le code que je te donne n'agit que sur les lignes sélectionnées par cette ligne :
Rows("4:34").Select

si tes lignes sont cachées, elles n'affichent que celles prévues dans le code
si elles sont visibles, elles ne cachent que les lignes prévues dans le code.

ton premier mois sera et n'agit que sur les lignes 4 à 34!!! :
Private Sub CommandButton1_Click()
Rows("4:34").Select 'tu adaptes tes lignes en fonction de tes mois
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
End Sub

pour ton second n'agira que sur les lignes 36 à 64!!! :

Private Sub CommandButton2_Click()
Rows("36:64").Select 'tu adaptes tes lignes en fonction de tes mois
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
End Sub

Pour le troisième n'agira que sur 66 à 100!!!:

Private Sub CommandButton3_Click()
Rows("66:100").Select 'tu adaptes tes lignes en fonction de tes mois
If Selection.EntireRow.Hidden = False Then
Selection.EntireRow.Hidden = True
Else
Selection.EntireRow.Hidden = False
End If
End Sub

Réponse 10 / 11

mec

Pourtant, je fais tout exactement comme vous me dites avec le même code et les mêmes numéros de ligne et, quand j'appuie sur le premier bouton qui est sensé afficher les lignes de 4 à 34, ben tout s'affiche, y compris les lignes 36 à 66 etc...
A la limite, ne connaissez vous pas un autre moyen que vba pour pouvoir masquer et afficher des lignes sur excel avec une simple commande?

Réponse 11 / 11

melanie1324 Messages postés 1504 Date d'inscription Statut Membre Dernière intervention 155

non, pouvez-vous mettre le code que vous avez mis pour au moins l'un des boutons. Si ca se trouve, y a un truc qui a pas.
Car j'ai esssayé sur excel et ca fonctionne très bien.

Répondre Posez votre question

Votre réponse

Discussions similaires

Excel:mettre automatiquement en majuscule

midiweb -
Raymond PENTIER -

3 réponses

[VBA] Suppression une partie du texte

digsaw_- -
digsaw_- -

17 réponses

Procédure trop grande en VBA

Chtitmiss -
Chtitmiss -

8 réponses

Comment s'appelle le calendrier VBA sur Excel

dj_fifi -
dj_fifi -

11 réponses

"L'indice n'appartient à la sélection" + VBA

fleur.31 -
geosevda -

2 réponses

VBA Récupérer le nom du fichier

pampiou -
gogodu75 -

3 réponses

Devenez membre en quelques clics

Connectez-vous simplement avec ceux qui partagent vos intérêts
Suivez vos discussions facilement et obtenez plus de réponses
Mettez en avant votre expertise et aidez les autres membres
Profitez de nombreuses fonctionnalités supplémentaires en vous inscrivant

S'inscrire