Microsoft 365 Démasquage plusieurs lignes

FCMLE44 · 9 Octobre 2020

Bonsoir

J'ai fait ce code

VB:

'----------------------- Démasque liste des tâches----------------------------------
Sub Casdoption57_Cliquer()
Application.EnableEvents = False
ActiveSheet.Rows("67:68,71:115").Hidden = False
Application.EnableEvents = True
End Sub

Je dois démasquer les lignes 67 à 68 et 71 à 115 mais cela ne fonctionne pas
Je pense que mon anomalie se situe ici

Code:

ActiveSheet.Rows("67:68,71:115").Hidden = False

Quelqu'un aurait il une idée ?

Merci

FCMLE44 · 9 Octobre 2020

J'ai trouvé la solution en faisant comme ça

VB:

Sub Casdoption79_Cliquer()
Application.EnableEvents = False
ActiveSheet.Rows("71:115").Hidden = False
Application.EnableEvents = True
ActiveSheet.Rows("67:68").Hidden = False
Application.EnableEvents = True
End Sub

Microsoft 365 Démasquage plusieurs lignes

FCMLE44

XLDnaute Impliqué

FCMLE44

XLDnaute Impliqué

Discussions similaires