Re : Sélectionner toutes les lignes commençant par la même valeur et masquer les lign
Hello,
J'ai trouvé :
Sub Afficher_planification_MOD() ' Affiche la planification MOD
Dim cellule As Range
Application.ScreenUpdating = False ' Désactive le changement des pages à l'écran lors de l'éxécution de la macro
ActiveSheet.Unprotect
'Affiche la planification MOD
Range("A1:A100").Select
For Each cellule In Selection
If cellule.Text = "#MOD" Then cellule.EntireRow.Hidden = False
Next cellule
'Masque la planification NI
Range("A1:A100").Select
For Each cellule In Selection
If cellule.Text = "#NI" Then cellule.EntireRow.Hidden = True
Next cellule
'Ouvrir le gestionnaire de nom CTRL+F3 pour supprimer un nom de cellule
Range("NI_ou_MOD").Select
ActiveCell.FormulaR1C1 = "MOD"
Range("G19").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True
Application.ScreenUpdating = True ' Résactive le changement des pages à l'écran lors de l'éxécution de la macro
End Sub
Sub Afficher_planification_NI() ' Affiche la planification NI
Dim cellule As Range
Application.ScreenUpdating = False ' Désactive le changement des pages à l'écran lors de l'éxécution de la macro
ActiveSheet.Unprotect
'Affiche la planification NI
Range("A1:A100").Select
For Each cellule In Selection
If cellule.Text = "#NI" Then cellule.EntireRow.Hidden = False
Next cellule
'Masque la planification MOD
Range("A1:A100").Select
For Each cellule In Selection
If cellule.Text = "#MOD" Then cellule.EntireRow.Hidden = True
Next cellule
'Ouvrir le gestionnaire de nom CTRL+F3 pour suprimer un nom de cellule
Range("NI_ou_MOD").Select
ActiveCell.FormulaR1C1 = "NI"
Range("G19").Select
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowInsertingRows:=True, AllowDeletingRows:=True, AllowSorting:=True, _
AllowFiltering:=True
Application.ScreenUpdating = True ' Résactive le changement des pages à l'écran lors de l'éxécution de la macro
End Sub