Modification d'une macro Résolu/Fermé

Question

Bonjour, j'ai une macro dont je masque la ligne 46.  Dans un autre document, je dois masques les lignes 37-39-46-48 et je ne sais pas comment les formuler dans mon code car j'ai essayé de le faire avec des ; mais aucun succès.  Quelqu'un peut m'aider svp ?  Merci à l'avance

Sub Macro1()
'
' Macro1 Macro
' Afficher les colonnes H / I et J + la ligne 46
'
' Touche de raccourci du clavier: Ctrl+Shift+A
'
    ActiveSheet.Unprotect "4500lb" 'ligne qui débloque ta feuille
    Columns("G:K").Select
    Range("G9").Activate
    Selection.EntireColumn.Hidden = False
    ActiveWindow.SmallScroll Down:=24
    Rows("46:46").Select
    Selection.EntireRow.Hidden = False
    ActiveWindow.SmallScroll Down:=-60
    Range("A1").Select
    ActiveSheet.Protect "4500lb"  'ligne qui bloque à nouveau ta feuille
End Sub

via55 · Answer

Bonsoir

Tout simple
Tu as l'instruction pour masquer la ligne 46
Rows("46:46").Select
Selection.EntireRow.Hidden = False  

Tu la copies puis la colles en dessous et tu changes les 46 en 37
Tu recommences en changeant cette fois les 46 en 39
etc
 
Cdlmnt
Via

michel_m · Answer

Bonjour sylmarco, Via

peut-^tre plus simple

ActiveSheet.Unprotect "4500lb" 'ligne qui débloque ta feuille Columns("G").hidden=falseColumns("I").hidden=false'etc...Rows("37").hidden=false Rows("39").hidden=false 'etc...Range("A1").Select ActiveSheet.Protect "4500lb" 'ligne qui bloque à nouveau ta feuille End Sub
 tes
 ActiveWindow.SmallScroll Down
ne servent à rien