Maco bizzard suivant excell

[Ðidier]

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

 

[AV]

Ave,

Sous réserve que en G28 de la feuille 'Impression de masse' tu aies un nom de police valide, il n'y a pas de raison que ça plante (testé)
Par contre, avec XL98 (version pour Mac), je peux pas tester.

AV [aaa]

 

[Charly2]

Bonjour Ðidier, bonjour Alain,
bonjour à toutes et à tous 🙂

Alain a tout dit 😉 . Mais je te propose une simplification de ton code :

Option Explicit

Sub lignehac()
' lignehac Macro

Application.ScreenUpdating = False

With Sheets('Feuil1').Range('1:1,5:5,9:9,13:13,17:17,21:21,25:25').Font
.Name = 'Arial' ' remplacer par le nom de ta police
.Strikethrough = False                         '  -
.Superscript = False                            '   |
.Subscript = False                                '    \\
.OutlineFont = False                            '      - voir si utile
.Shadow = False                                  '    /
.Underline = xlUnderlineStyleNone  '   |
.ColorIndex = xlAutomatic                   '  -
End With

With Application
.Goto Sheets('Impression de masse').Range('F23')
.ScreenUpdating = True
End With
End Sub

A+ 😉

 

[Ðidier]

:sick:
Merci
pour votre tentative d'aide, mais
l'erreur venait de moi
car la cellule était protégée avec excell 2003 et pas sous excell 98

:whistle:
cordialement
Ðidier