Modification d'une macro

Résolu/Fermé

sylmarco Messages postés 82 Date d'inscription mercredi 6 décembre 2017 Statut Membre Dernière intervention 24 mars 2025 - 21 mai 2019 à 20:04
sylmarco Messages postés 82 Date d'inscription mercredi 6 décembre 2017 Statut Membre Dernière intervention 24 mars 2025 - 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

A voir également:

Modification d'une macro
Suivi de modification word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Logiciel gratuit modification pdf - Guide
Modification dns - Guide
Jitbit macro recorder - Télécharger - Confidentialité

2 réponses

Réponse 1 / 2

via55 Messages postés 14512 Date d'inscription mercredi 16 janvier 2013 Statut Membre Dernière intervention 18 janvier 2025 2 742
21 mai 2019 à 21:08

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 82 Date d'inscription mercredi 6 décembre 2017 Statut Membre Dernière intervention 24 mars 2025 1
22 mai 2019 à 16:55

Merci beaucoup, ça fonctionne super bien :-)

Réponse 2 / 2

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 mai 2019 à 08:47

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 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
22 mai 2019 à 10:01

et en 1 ligne de code
Range("H1,I1J1").EntireColumn.Hidden = False

même punition pour les lignes

sylmarco Messages postés 82 Date d'inscription mercredi 6 décembre 2017 Statut Membre Dernière intervention 24 mars 2025 1
22 mai 2019 à 16:56

Merci beaucoup :-)

Discussions similaires

recup couleur de cellule sans macro

Transformer un chiffre en lettres dans excel sans macro