XL 2016 erreur 424

M

MURET31

XLDnaute Nouveau
Bonjour,
Via la macro ci-dessous, je cherche à colorier en rouge tous les mots "toto" dans ma feuille active, cependant à chaque lancement de la macro j'ai une erreur "424 Objet requis" que je n'arrive pas à résoudre. Pourriez-vous m'aider s'il vous plaît?

L'erreur 424 souligne en jaune "With ActiveDocument.Content.Find"

VB: 
Sub ColourChange()
Application.ScreenUpdating = False
Dim arrWords, i As Long
arrWords = Array("toto", "2nd string", "3rd string")
With ActiveDocument.Content.Find
  .ClearFormatting
  .Forward = True
  .Wrap = wdFindContinue
  .Format = True
  .MatchCase = True
  .MatchWholeWord = True
  .MatchWildcards = False
  .MatchSoundsLike = False
  .MatchAllWordForms = False
  With .Replacement
    .ClearFormatting
    .Text = "^&"
    .Font.Color = wdColorRed
  End With
  For i = 0 To UBound(arrWords)
    .Text = arrWords(i)
    .Execute Replace:=wdReplaceAll
  Next
End With
Application.ScreenUpdating = True
End Sub
 
Trier par date Trier par votes
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Normalement, on n'en est plus à utiliser "If InStr(c.Value, "toto") puisque j'ai posté une macro paramétrée
(voir le message#14 -> macro MakeMe_Red)
Macro qui permet justement d'indiquer le mot recherché...

Et je viens de tester avec des cellules fusionnées: pas d'erreur chez moi.
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Histoire qu'on teste sur la même base ;)
Mode opératoire du test
1) Sur une feuille vide, tu lances la macro nommée Gribouille_Tribute
2) Tu regardes le résultat sur la feuille active
3) Tu lances ensuite la macro nommée Macro_Principale
Normalement les mots mis en paramètre dans la macro sont coloriés et mis en gras.
(en tout cas, c'est le résultat que j'obtiens sur mon PC)
VB: 
Sub Gribouille_Tribute()
Dim i&, j&
For i = 1 To 10
For j = 1 To 5
Cells(i, j) = "Ainsi donc," & _
    Choose(Application.RandBetween(1, 5), "toto", "titi", "tata", "tutu", "Staple") & _
    " est dans: " & Cells(i, j).Address(0, 0)
Next j
Next i
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
Sub Macro_Principale()
Application.ScreenUpdating = False
'ici on colorie en rouge (couleur par défaut dans la macro Colorier_Mot)
Colorier_Mot ActiveSheet.UsedRange, "toto"
'ici on colorie en vert
Colorier_Mot ActiveSheet.UsedRange, "titi", 14
'ici on colorie en violet
Colorier_Mot ActiveSheet.UsedRange, "Staple", 47
End Sub
Private Sub Colorier_Mot(Plage As Range, LeMot As String, Optional vCouleur As XlColorIndex = 3)
Dim c As Range
For Each c In Plage
If InStr(c.Value, LeMot) > 0 Then
With c.Characters(InStr(c.Value, LeMot), Len(LeMot)).Font
.ColorIndex = vCouleur: .Bold = True
End With
End If
Next c
End Sub
 
Vote positif 0 Vote négatif
M

MURET31

XLDnaute Nouveau
Staple1600 à dit:
Re

Histoire qu'on teste sur la même base ;)
Mode opératoire du test
1) Sur une feuille vide, tu lances la macro nommée Gribouille_Tribute
2) Tu regardes le résultat sur la feuille active
3) Tu lances ensuite la macro nommée Macro_Principale
Normalement les mots mis en paramètre dans la macro sont coloriés et mis en gras.
(en tout cas, c'est le résultat que j'obtiens sur mon PC)
VB: 
Sub Gribouille_Tribute()
Dim i&, j&
For i = 1 To 10
For j = 1 To 5
Cells(i, j) = "Ainsi donc," & _
    Choose(Application.RandBetween(1, 5), "toto", "titi", "tata", "tutu", "Staple") & _
    " est dans: " & Cells(i, j).Address(0, 0)
Next j
Next i
ActiveSheet.UsedRange.Columns.AutoFit
End Sub
Sub Macro_Principale()
Application.ScreenUpdating = False
'ici on colorie en rouge (couleur par défaut dans la macro Colorier_Mot)
Colorier_Mot ActiveSheet.UsedRange, "toto"
'ici on colorie en vert
Colorier_Mot ActiveSheet.UsedRange, "titi", 14
'ici on colorie en violet
Colorier_Mot ActiveSheet.UsedRange, "Staple", 47
End Sub
Private Sub Colorier_Mot(Plage As Range, LeMot As String, Optional vCouleur As XlColorIndex = 3)
Dim c As Range
For Each c In Plage
If InStr(c.Value, LeMot) > 0 Then
With c.Characters(InStr(c.Value, LeMot), Len(LeMot)).Font
.ColorIndex = vCouleur: .Bold = True
End With
End If
Next c
End Sub
Cliquez pour agrandir...

Staple1600, tu es le meilleur!!!
Cela fonctionne parfaitement chez moi!
juste un petit détail la macro "Gribouille_Tribute" a élargi mes cellules sinon tout fonctionne parfaitement bien.
Merci pour le temps consacré.
MU
 
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re,

MURET31
Tu n'as pas été assez attentif en lisant mon message... :rolleyes:
J'avais écris
Mode opératoire du test
1) Sur une feuille vide, tu lances la macro nommée Gribouille_Tribute
Cliquez pour agrandir...
Cette macro (Gribouille_Tribute) ne sert à rien d'autre que de créer des données pour faire le test ;)

Donc ce qui suit ci-dessous, heurte la sensibilité de mon œil gauche (et une larme, presque coule sur l’œil droit)
juste un petit détail la macro "Gribouille_Tribute" a élargi mes cellules sinon tout fonctionne parfaitement bien.
Cliquez pour agrandir...
Pas de sinon, palsambleu!
Tout fonctionne bien puisque c'était fait pour et testé avant soumission sur le forum
;)
 
Dernière édition:
Vote positif 0 Vote négatif
Staple1600

Staple1600

XLDnaute Barbatruc
Re

Une autre façon de faire (avec RegEx)
VB: 
Private Sub Colorier_Mot2(Plage As Range, LeMot As String, Optional vCouleur As XlColorIndex = 3)
Dim c As Range, xMC As Object, xM As Object
With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = "\b" & LeMot
  For Each c In Plage
      If .test(c.Value) Then
      Set xMC = .Execute(c.Value)
      For Each xM In xMC
      With c.Characters(xM.FirstIndex + 1, xM.Length).Font
      .ColorIndex = vCouleur: .Bold = True
      End With
      Next
      End If
  Next
End With
End Sub
Sub testZ()
Application.ScreenUpdating = False
Colorier_Mot2 ActiveSheet.UsedRange, "titi", 14
End Sub

Là aussi, cela fonctionne.

Le seul bémol qui me vient à l'esprit, c'est qu'il vaut mieux (et ce avec les deux dernières macros que je t'ai proposé) que la feuille ne contiennent pas trop de cellules à traiter
Le temps d'exécution risque d'être long ou il se peut même que la macro plante.
Donc pour être prudent, je dirai pour conclure:
[Vincent Cassel Tribute]
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Ces deux macros fonctionnent bien, mais...
[/Vincent Cassel Tribute]
;)
 
Vote positif 0 Vote négatif
M

MURET31

XLDnaute Nouveau
Staple1600 à dit:
Re

Une autre façon de faire (avec RegEx)
VB: 
Private Sub Colorier_Mot2(Plage As Range, LeMot As String, Optional vCouleur As XlColorIndex = 3)
Dim c As Range, xMC As Object, xM As Object
With CreateObject("VBScript.RegExp")
  .Global = True
  .Pattern = "\b" & LeMot
  For Each c In Plage
      If .test(c.Value) Then
      Set xMC = .Execute(c.Value)
      For Each xM In xMC
      With c.Characters(xM.FirstIndex + 1, xM.Length).Font
      .ColorIndex = vCouleur: .Bold = True
      End With
      Next
      End If
  Next
End With
End Sub
Sub testZ()
Application.ScreenUpdating = False
Colorier_Mot2 ActiveSheet.UsedRange, "titi", 14
End Sub

Là aussi, cela fonctionne.

Le seul bémol qui me vient à l'esprit, c'est qu'il vaut mieux (et ce avec les deux dernières macros que je t'ai proposé) que la feuille ne contiennent pas trop de cellules à traiter
Le temps d'exécution risque d'être long ou il se peut même que la macro plante.
Donc pour être prudent, je dirai pour conclure:
[Vincent Cassel Tribute]
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Ces deux macros fonctionnent bien, mais...
[/Vincent Cassel Tribute]
;)
Cliquez pour agrandir...

Je confirme la deuxième proposition fonctionne à merveille!!!
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...
Jusqu'ici, tout va bien...

Merci infiniment Staple1600!!!! le meilleur
Bonne fin de dimanche.
MU
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
Microsoft 365 Erreur sur mon Code VBA
Réponses
2
Affichages
349
Gégé-45550
Gégé-45550
3xceln4ute
  • Question
Microsoft 365 VBA export Excel vers Word : Bnq congé 0
Réponses
5
Affichages
613
Phil69970
Phil69970
S
  • Question
XL 2010 Ecrire d'Excel vers Word
Réponses
5
Affichages
572
stonech
S
Nicolas JACQUIN
  • Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
Nicolas JACQUIN
O
  • Question
Microsoft 365 Excel [VBA]. Erreur d’exécution 424 Objet requis sur une concaténation
Réponses
3
Affichages
402
Oneida
Oneida
halecs93
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
1 K
halecs93
halecs93
D
  • Question
XL 2021 VBA - Erreur 1004 aléatoire - Image/Logo
Réponses
10
Affichages
648
crocrocro
C
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
502
un internaute
U
R
  • Question
Word Variable de bloc with non définie
Réponses
6
Affichages
843
Staple1600
Staple1600
L
  • Question
VBA : erreur sur boucle
Réponses
2
Affichages
278
Latias
L

Membres actuellement en ligne

20 membres et 116 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 092
Messages
2 116 118
Membres
112 665
dernier inscrit
JPHD