XL 2013 [Resolu] Menu déroulant et formule masquer ligne

[bellenm]

Bonjours à tous du forum,


Je cherche à améliorer une fonction de mon menu déroulant :

J’aimerais que lorsque je clique sur une valeur du menu déroulant deux actions se fait

En premier réafficher toute les lignes effacé

Sub Affiche()

Cells.EntireRow.Hidden = False

End Sub

ou non au paravent puis me masque les lignes dont les cellules sont vide dans la colonne « C »

Option Explicit

Sub TEST()

Dim l As Long

For l = 2 To Cells(Rows.Count, 1).End(xlUp).Row

  With Cells(l, 3)

  .EntireRow.Hidden = .Value = ""

  End With

Next

l

Pour masquer j’ai la formule de Pierrot93 que j’ai u sur le forum, mais y aurait-il une formule plus rapide que celle-ci ?

Déjà bien aider par le forum j’espère encore une fois trouver la solution.

Merci déjà pour votre aide si précieuse.
P.S.: il n'y a pas de données pertinente dans le fichier joint

Marc

 

[michel_m]

Bonjour
je n'ai pas regardé ton classeur...

proposition:

Dim derlig As Long
derlig = Columns("C").Find(what:="*", searchdirection:=xlPrevious).Row
Range("C2:C" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True

 

[bellenm]

Bonjour Michel_m

où faut il mettre ce code, je ne vois pas de sud et end sub, je les ais rajouter
mais il subsite un problème j' ai une erreur "400" ?

Sub test()
Dim derlig As Long
    derlig = Columns("C").Find(what:="*", searchdirection:=xlPrevious).Row
    Range("C2:C" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub

Marc