Couleur plage de cellules selon extrait de texte Résolu/Fermé

Question

Bonjour, 

J'essaie de réutiliser une macro mais je crois que j'ai raté quelque chose.

Dans la colonne C de mon tableau, j'ai parfois le terme "...Annulé le ....".
J'ai besoin de mettre en couleur la plage de données de la ligne correspondant au terme "Annulé" trouvé dans la colonne C.

Exemple : s'il trouve le mot Annulé en C10, il applique couleur de fond à la plage (A10:J10). Il faut répéter cette action jusqu'à toutes les valeurs trouvées de la colonne C soient trouvées.
En effectuant des recherches, j'ai constaté qu'il fallait mettre xlPart et non xlWhole dans FIND (pour une partie de texte et non l'intégralité)
La macro d'origine fonctionnait pour une autre action (merci à vous d'ailleurs) mais je n'ai pas réussi à l'adapter pour autre chose. Je pensais avoir trouvé...
Merci à qui voudra bien m'aider

Si joint le fichier :
https://we.tl/t-rvPFnTiv1W

Option Explicit

Sub Cherche_Couleur()
  Dim Trouve As Range, PlageDeRecherche As Range, Plage As Range
  Dim Valeur_Cherchee As String
  
  Valeur_Cherchee = "Annulé"
  Set PlageDeRecherche = ActiveSheet.Columns(3)
  Set Trouve = PlageDeRecherche.Cells.Find(what:=Valeur_Cherchee, LookAt:=xlPart)

If Not Trouve Is Nothing Then
    On Error GoTo Fin 'si aucune cellule vide évite l'erreur 1004 : pas de cellules correspondantes
    Set Plage = Range("C1:C" & Trouve.Row).SpecialCells(xlCellTypeBlanks)
    Plage.Select.Interior.ThemeColor = xlThemeColorAccent2
    Plage.Select.Interior.TintAndShade = 0.799981688894314

Else
    MsgBox "Pas trouvé " & Valeur_Cherchee
  End If
  
Fin:

End Sub




Configuration: Windows / Firefox 63.0

f894009 · Answer

Bonjour,

une autre façon de faire:  https://www.cjoint.com/c/HJzfHR0jUkf

Sur que vous voulez la plage de cellules 2 a la dernière trouvée avec Annulé??

Erratum:

Probleme fichier modifie avec excel2011 MAC, je recommence sur PC Windows

pijaku · Answer

Bonjour,

Une légère modification (que tu aurais pu trouver seule) du code de l'ami f894009 :
 
Sub Cherche_Couleur()
Dim Trouve As Range, PlageDeRecherche As Range, Plage As Range
Dim Valeur_Cherchee As String
Dim Lig As Long, n As Long, Nb As Long

Valeur_Cherchee = "*Annulé*"
   With ActiveSheet
      Set PlageDeRecherche = .Columns(3)
      Nb = Application.CountIf(PlageDeRecherche, Valeur_Cherchee)
      If Nb > 0 Then
         Lig = 1
         For n = 1 To Nb
            Lig = .Columns(3).Find(Valeur_Cherchee, .Cells(Lig, 3), , xlPart).Row
            Set Plage = .Range("A" & Lig & ":J" & Lig)
            With Plage
               .Interior.ThemeColor = xlThemeColorAccent2
               .Interior.TintAndShade = 0.799981688894314
            End With
         Next n
      Else
         MsgBox "Pas trouve " & Valeur_Cherchee
      End If
   End With
End Sub

Evedll · Answer

Merci à vous deux pour votre aide,
Ce fonctionne
Cordialement
Evelyne

f894009 · Answer

Salut Pijaku,
Ca flotte??

Couleur plage de cellules selon extrait de texte

4 réponses

Discussions similaires