Modification d'une macro
Résolu
sylmarco
Messages postés
94
Statut
Membre
-
sylmarco Messages postés 94 Statut Membre -
sylmarco Messages postés 94 Statut Membre -
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
A voir également:
- Modification d'une macro
- Suivi de modification word - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Modification dns - Guide
- Logiciel gratuit modification pdf - Guide
- Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
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
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
94
Statut
Membre
1
Merci beaucoup, ça fonctionne super bien :-)
Bonjour sylmarco, Via
peut-^tre plus simple
tes
ActiveWindow.SmallScroll Down
ne servent à rien
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
