Bonjour,
Voici une petite macro qui fonctione bien: elle consiste à scanner dans une colonne précise (C) les cellules non vides; pour chaque cellule non vide rencontrée je sélectionne les deux lignes ci-dessous et je les cacher. Et cela jusqu'à temps qu'aucune cellule nous vide ne soit rencontrée dans la colonne sélectionnée.
Pour rendre l'opération fluide à l'écran, je cherche à utiliser la fonction "Application.ScreenUpdating = False"; mais cela plante mon excel. QU'un peut-il m'aider?
Merci !
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("C8").Select
Do While Not (IsEmpty(ActiveCell))
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(2, 0)).Select
Selection.EntireRow.Hidden = IIf(Selection.EntireRow.Hidden = True, False, True)
ActiveCell.Offset(2, 0).Select
Loop
Range("C8").Select
End Sub
Voici une petite macro qui fonctione bien: elle consiste à scanner dans une colonne précise (C) les cellules non vides; pour chaque cellule non vide rencontrée je sélectionne les deux lignes ci-dessous et je les cacher. Et cela jusqu'à temps qu'aucune cellule nous vide ne soit rencontrée dans la colonne sélectionnée.
Pour rendre l'opération fluide à l'écran, je cherche à utiliser la fonction "Application.ScreenUpdating = False"; mais cela plante mon excel. QU'un peut-il m'aider?
Merci !
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Range("C8").Select
Do While Not (IsEmpty(ActiveCell))
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(2, 0)).Select
Selection.EntireRow.Hidden = IIf(Selection.EntireRow.Hidden = True, False, True)
ActiveCell.Offset(2, 0).Select
Loop
Range("C8").Select
End Sub