Masquer les lignes en fonction d’un contrôle sur liste déroulante (Objet) :
Excel 2003
Office 2003 - Excel | Testé |
Sub Masquer()
Dim I As Long
I = 1
'Enlève le masquage des lignes
Rows("5:78").Select
Selection.Rows.AutoFit
'Boucle le masquage des lignes comportant un "E" dans la première colonne jusqu'à la ligne 81
Do While I < 82
If Cells(I, 1).Value = "E" Then
Cells(I, 1).EntireRow.Hidden = True
End If
I = I + 1
Loop
End SubExcel 2003
Office 2003 - Excel | Non testé |
Autres boucles en téléchargement en bas de pages.
Mettre une liste déroulante vierge :
Excel 2003
Office 2003 - Excel | Testé |
'Met 0 en A4 afin de rendre la liste déroulante dépendante vierge
Range("A4").Select
ActiveCell.FormulaR1C1 = "0"