Masquer ligne avec VBA Fermé

Question

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 


Configuration: Windows 7 / Safari 534.3

melanie1324 · Accepted Answer

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.

mec · Answer

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

melanie1324 · Answer

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?

mec · Answer

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...

melanie1324 · Answer

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??

mec · Answer

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 !

melanie1324 · Answer

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

mec · Answer

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?

melanie1324 · Answer

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

mec · Answer

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?

melanie1324 · Answer

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.

Masquer ligne avec VBA

11 réponses

Discussions similaires