Ð
Ðidier
Guest
bonjour
Voila j'ai une macro qui fonctionne trés bien avec excell98 mais qui bug avec excell 2003
.........................
Sub lignehac()
' lignehac Macro
Application.ScreenUpdating = False
Sheets('Feuil1').Select
Range('1:1,5:5,9:9,13:13').Select
Range('A13').Activate
ActiveWindow.SmallScroll Down:=10
Range('1:1,5:5,9:9,13:13,17:17,21:21').Select
Range('A21').Activate
ActiveWindow.SmallScroll Down:=7
Range('1:1,5:5,9:9,13:13,17:17,21:21,25:25').Select
Range('A25').Activate
With Selection.Font
.Name = Sheets('Impression de masse').Range('G18').Value
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range('A29').Select
Sheets('Impression de masse').Select
Range('F23').Select
Application.ScreenUpdating = True
End Sub
..........................................
Elle bug au niveau de
.Name = Sheets('Impression de masse').Range('G18').Value avec excell 2003
Auriez vous une idée pour que cette macro fonctionne sous les deux versions d'excell.
merci par avance
cordialement
Ðidier
Voila j'ai une macro qui fonctionne trés bien avec excell98 mais qui bug avec excell 2003
.........................
Sub lignehac()
' lignehac Macro
Application.ScreenUpdating = False
Sheets('Feuil1').Select
Range('1:1,5:5,9:9,13:13').Select
Range('A13').Activate
ActiveWindow.SmallScroll Down:=10
Range('1:1,5:5,9:9,13:13,17:17,21:21').Select
Range('A21').Activate
ActiveWindow.SmallScroll Down:=7
Range('1:1,5:5,9:9,13:13,17:17,21:21,25:25').Select
Range('A25').Activate
With Selection.Font
.Name = Sheets('Impression de masse').Range('G18').Value
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range('A29').Select
Sheets('Impression de masse').Select
Range('F23').Select
Application.ScreenUpdating = True
End Sub
..........................................
Elle bug au niveau de
.Name = Sheets('Impression de masse').Range('G18').Value avec excell 2003
Auriez vous une idée pour que cette macro fonctionne sous les deux versions d'excell.
merci par avance
cordialement
Ðidier