Modification d'une macro
Résolu
sylmarco
Messages postés
96
Date d'inscription
Statut
Membre
Dernière intervention
-
sylmarco Messages postés 96 Date d'inscription Statut Membre Dernière intervention -
sylmarco Messages postés 96 Date d'inscription Statut Membre Dernière intervention -
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
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
2 réponses
-
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 -
Bonjour sylmarco, Via
peut-^tre plus simple
ActiveSheet.Unprotect "4500lb" 'ligne qui débloque ta feuille
Columns("G").hidden=false
Columns("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
