Probleme installation de macro

[scoob67]

Bonjour je tente d'installer cette macro et jai toujours une message d'erreur de compilation a la ligne 11, par contre cette meme macro est utilisé par une autre personne et n'a aucun problème...

Pouvez-vous m'aider?

Sub Macro1()


Cells.Select

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 3

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 4

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 5

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 3

End With

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 19

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 2

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

Application.FindFormat.Interior.ColorIndex = 19

Application.ReplaceFormat.Interior.ColorIndex = xlNone

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Interior.ColorIndex = 20

With Application.ReplaceFormat.Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Interior.ColorIndex = 24

With Application.ReplaceFormat.Interior

.ColorIndex = 11

.Pattern = xlSolid

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 2

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 11

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 3

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 5

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder _

:=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

End Sub

 

[job75]

Re : Probleme installation de macro

Bonsoir scoob67, bienvenue sur XLD,

Des retours à la ligne étaient tout simplement mal placés après SearchOrder. Vous n'avez pas dû chercher beaucoup 🙂

Sub Macro1()


Cells.Select

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 3

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 4

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 5

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 3

End With

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 19

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 2

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

Application.FindFormat.Interior.ColorIndex = 19

Application.ReplaceFormat.Interior.ColorIndex = xlNone

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Interior.ColorIndex = 20

With Application.ReplaceFormat.Interior

.ColorIndex = 15

.Pattern = xlSolid

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Interior.ColorIndex = 24

With Application.ReplaceFormat.Interior

.ColorIndex = 11

.Pattern = xlSolid

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 2

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

Application.FindFormat.Clear

Application.ReplaceFormat.Clear

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 11

End With

With Application.ReplaceFormat.Font

.Subscript = False

.ColorIndex = 3

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

With Application.FindFormat.Font

.Subscript = False

.ColorIndex = 5

End With

Selection.Replace What:="", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=True

End Sub

A+