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é
Code:
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 »
Code:
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
Dim derlig As Long
derlig = Columns("C").Find(what:="*", searchdirection:=xlPrevious).Row
Range("C2:C" & derlig).SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
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" ?
Code:
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