XL 2016 erreur 424

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...

Mode opératoire du test
1) Sur une feuille vide, tu lances la macro nommée Gribouille_Tribute

Cliquez pour agrandir...

juste un petit détail la macro "Gribouille_Tribute" a élargi mes cellules sinon tout fonctionne parfaitement bien.

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu n'as pas été assez attentif en lisant mon message...:rolleyes
J'avais écris

Cette macro (Gribouille_Tribute) ne sert à rien d'autre que de créer des données pour faire le test

Cliquez pour agrandir...

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...