Titre du sujet : Re: Afficher/Masquer Lignes et colonnes par myDearFriend! le 26/11/2009 19:15:05
Bonsoir lours, le Forum,
Tu trouveras en pièce jointe une proposition de réponse à ton besoin.
J'ai modifié ta procédure CmdM1_Click() comme suit :
Private Sub CmdM1_Click()
Dim C As Range
'Trouve la cellule correspondant au mois sélectionné
Set C = ActiveSheet.Range("A6:A39").Find(ListBoxM.Text, LookIn:=xlFormulas)
If C Is Nothing Then Exit Sub
'Affiche toutes les lignes
Rows("6:38").EntireRow.Hidden = False
'Masque les lignes précédant le mois choisi
If C.Row > 8 Then
Range(Cells(6, 1), Cells(C.Row - 1, 1)).EntireRow.Hidden = True
End If
End Sub
Remarque : Si tes libellés de mois en colonne 1 de la feuille de calcul correspondent - exactement - aux libellés de mois de la listbox, alors C ne vaudra jamais nothing et la ligne de code...
If C Is Nothing Then Exit Sub
... devient donc inutile. Je l'ai quand même laissée pour éviter un plantage, au cas où...
Cordialement,
|