Test recherche d'un mot spécifique et connu dans une chaîne de caractère

Bonjour à tous,

Dans mon tableau tb1 (colonne 4), je souhaite vérifier si "PG54" est présent dans cette cellule pour pouvoir ensuite incrémenter une variable, le problème c'est que parfois on retrouve des chaîne de caractères comme : "PG54 2020" ou "2021 PG54 Paris"...

Je voulais donc savoir s'il n'y avait pas un moyen d'identifier toutes les chaînes de caractères comprenant "PG54"

Merci d'avance.

Bonjour CBoran, le forum,

Essaies avec "*PG54*" .....

La prochaine fois, au lieu de poster une photo, poste un fichier où à défaut ton code sous balises,

Cordialement,

Bonjour Xorsankukai,

Merci pour ton aide ça me t'as réponse me semble logique mais malheureusement ça ne fonctionne pas :/

(Ici j'ai juste remplacé PG54 par SIPPEREC mais le principe reste le même)

En testant j’obtiens :

Puis un F5 plus tard :

Le programme n'entre pas dans le If.

Très bien c'est noté prochaine fois je mets le macro à disposition, merci.

Re,

Et si tu remplaces = par like ?

Option Compare Text
Sub Bouton1_Cliquer()
 Dim tbl, nbrsipperec%, nbrsdesm%, nbrsigeif%
 Dim i%, dl%
  Set tbl = Range("A1").CurrentRegion
        dl = Range("A" & Rows.Count).End(xlUp).Row
         nbrsipperec = 0: nbrsdesm = 0: nbrsigeif = 0

   For i = 2 To dl
     If tbl(i, 3).Value Like "*SIPPEREC*" Then
       nbrsipperec = nbrsipperec + 1
     ElseIf tbl(i, 3).Value Like "SDESM 2021" Then
       nbrsdesm = nbrsdesm + 1
     ElseIf tbl(i, 3).Value Like "*SIGEIF*" Then
       nbrsigeif = nbrsigeif + 1
     End If
   Next i
    MsgBox "Nb SIPPEREC :  " & nbrsipperec & Chr(10) & _
      "Nb SDESM 2021 : " & nbrsdesm & Chr(10) & _
      "Nb SIGEIF : " & nbrsigeif
End Sub

Cordialement,

Re,

Super merci beaucoup ça fonctionne