Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Probleme installation de macro

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion scoob67
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

scoob67

XLDnaute Nouveau
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
 
Trier par date Trier par votes
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 🙂

Code: 
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+
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
  • Résolu(e)
Microsoft 365 Problème interférences entre macros
Réponses
14
Affichages
271
Phil69970
S
  • Question Question
XL 2016 Inversion jour / mois
Réponses
2
Affichages
451
dysorthographie
F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
474
Francky79
F
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
465
de_hanstrapp
D
T
  • Question Question
Microsoft 365 Modification formules via VBA
Réponses
1
Affichages
281
Dudu2
N
  • Résolu(e)
XL 2019 transformation de cordonnée GPS
Réponses
14
Affichages
1 K
sylvanu
B
  • Question Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
627
Eric KERGRESSE
E
M
  • Question Question
XL 2016 Problème avec fonction VBA
Réponses
7
Affichages
649
MCOTTEND
M
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
716
Gestionnaire_rh
G
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
556
albuqs
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
540
job75
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
645
Francky79
F
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
544
Phillip
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
C
  • Résolu(e)
XL pour MAC Recherche Date
Réponses
12
Affichages
866
Phil69970
A
  • Question Question
XL 2016 Remplacer des valeurs dans toutes une feuilles VBA
Réponses
8
Affichages
787
Robert
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
499
youguybass
Y
A
  • Question Question
XL 2010 Correction macro supprimant les lignes avec '' 0 '' en début de tableau
Réponses
2
Affichages
480
Acritas
A
  • Résolu(e)
XL 2019 [Résolu] Problème VBA Find
Réponses
6
Affichages
2 K
lebarbo
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…