Menu

Modification d'une macro [Résolu]

Messages postés
40
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
19 juillet 2019
- - Dernière réponse : sylmarco
Messages postés
40
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
19 juillet 2019
- 22 mai 2019 à 16:56
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
Afficher la suite 

2 réponses

Messages postés
10837
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 juillet 2019
1343
0
Merci
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
sylmarco
Messages postés
40
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
19 juillet 2019
-
Merci beaucoup, ça fonctionne super bien :-)
Commenter la réponse de via55
Messages postés
15893
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
28 juin 2019
2765
0
Merci
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
michel_m
Messages postés
15893
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
28 juin 2019
2765 -
et en 1 ligne de code
Range("H1,I1J1").EntireColumn.Hidden = False

même punition pour les lignes
sylmarco
Messages postés
40
Date d'inscription
mercredi 6 décembre 2017
Statut
Membre
Dernière intervention
19 juillet 2019
-
Merci beaucoup :-)
Commenter la réponse de michel_m