Filtrer pour ressortir des cellules contenant les mêmes caractère

[essedek]

Bonjour

Je souhaite que vous m’aidez pour faire un filtre pour ressortir des lignes qui contiennent les même caractères a savoir un mots dans une cellule.

Merci d’avance

[Jacquinot_WILL-FREAD]

Bonjour,
Un fichier nous aidera bien.
Will

[essedek]

~$Requête Parc CR au 30062024.xlsx (165 Octets)

[Jacquinot_WILL-FREAD]

Bonjour,
Changer le fichier et partager a nouveau.

[essedek]

Requête Parc CR au 30062024.xlsx (69,5 Ko)

[taz067]

C’est bien, mais quel est le mot à trouver… Sur quelle colonne faut-il filtrer, est quel est la version Excel utilisé ?

[essedek]

Excel 2016. sur la colonne nom je veux ressortir toutes les cellules contenant le mot COAPH.

[Cow18]

Sub Coaph()
     Dim UN, c0, c1, FA
     Application.ScreenUpdating = False
     t = Timer
     Set c0 = ActiveSheet.UsedRange          'la plage
     c0.Interior.Color = xlNone              'no couleur
     Set c1 = c0.Find("coaph", LookAt:=xlPart)     'trouve une cellule qui contient ce mot
     If Not c1 Is Nothing Then
          FA = c1.Address                    'adresse premiere cellule
          Set UN = c1                        'fusionner toutes ces cellule
          Do                                 'boucle
               Set c1 = c0.FindNext(c1)      'trouver le suivant
               Set UN = Union(UN, c1)
          Loop While Not c1 Is Nothing And c1.Address <> FA
          UN.Interior.ColorIndex = 4         'couleur vert
          MsgBox "prêt en " & Format(Timer - t, "0.00\s") & vbLf & UN.Cells.Count & " cells" & vbLf & UN.Address
     End If
End Sub

Requête Parc CR au 30062024.xlsm (81,5 Ko)