Modification d'une macro [Résolu/Fermé]

Signaler
Messages postés
55
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
3 mars 2020
-
Messages postés
55
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
3 mars 2020
-
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

2 réponses

Messages postés
12481
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
11 août 2020
1 963
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
Messages postés
55
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
3 mars 2020

Merci beaucoup, ça fonctionne super bien :-)
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
11 août 2020
3 000
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
Messages postés
16174
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
11 août 2020
3 000
et en 1 ligne de code
Range("H1,I1J1").EntireColumn.Hidden = False

même punition pour les lignes
Messages postés
55
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
3 mars 2020

Merci beaucoup :-)