Bonsoir à vous tous,
J'ai fais une macro enregistré pour masquer et démasquer des lignes en clickan sur 2 boutons different (un pour masquer un pour démasquer). J'ai bidouillé la macro aprés afin de la réduire pour éviter de voir mon écran bouger tous seul.
mon probléme et: j'ai des lignes qui ce masque alors que je ne souhaite pas par exemple: au lieux de s'arreter à la ligne 21 il s'arréte à la 23. je vous donne mets lignes à masquer et démasquer et je vous mets ensuite le code créer. les numéros souligné sont ceux qui ne beug pas.
ligne à masquer et démasquer: 1à9 ;17à21; 73à81; 89à93; 145à153; 161à165; 218à226; 234à238;
mon code:
Sub remettrelogo()
'
' remettrelogo Macro
'
'
Rows("1:9").Select
Selection.EntireRow.Hidden = False
Rows("17:21").Select
Selection.EntireRow.Hidden = False
Rows("73:81").Select
Selection.EntireRow.Hidden = False
Rows("89:93").Select
Selection.EntireRow.Hidden = False
Rows("145:153").Select
Selection.EntireRow.Hidden = False
Rows("161:165").Select
Selection.EntireRow.Hidden = False
Rows("218:226").Select
Selection.EntireRow.Hidden = False
Rows("234:238").Select
Selection.EntireRow.Hidden = False
ActiveWindow.ScrollRow = 1
End Sub
Sub supprimerleslogo()
'
' supprimerleslogo Macro
'
'
Rows("1:9").Select
Selection.EntireRow.Hidden = True
Rows("17:21").Select
Selection.EntireRow.Hidden = True
Rows("73:81").Select
Selection.EntireRow.Hidden = True
Rows("89:93").Select
Selection.EntireRow.Hidden = True
Rows("145:153").Select
Selection.EntireRow.Hidden = True
Rows("161:165").Select
Selection.EntireRow.Hidden = True
Rows("218:226").Select
Selection.EntireRow.Hidden = True
Rows("234:238").Select
Selection.EntireRow.Hidden = True
ActiveWindow.ScrollRow = 10
End Sub
Merci pour votre aide futur.
lilou