Microsoft 365 if condition que je ne parviens pas à coder

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite une belle journée

Je fais encore appel à nos ténors pour un "if" que je ne parviens pas à coder correctement :

J'ai dans ma Feuil2 en H2 le mot "coucou"
Je voudrais mettre un ok dans ma "Feuille1" si "coucou" est présent en "Feuil2 en H2"

Je suis en train de bricoler sur cette 1ère ligne de code : "If Application.CountIf(Range(Sheets("Feuil2").Range("h:h")), "*coucou*") > 0 Then"
Mais y parvenir Grrr !!!

Auriez-vous le bon code ?

Un grand merci par avance,
lionel

 

[Phil69970]

Bonjour Lionel

Voici ma version

Sub Coucou()
'Si coucoou en Feuil2 H2 alors ok en en Feuil1 H2
If Feuil2.[H2] = "coucou" Then
    Feuil1.[H2] = "ok"
Else
    Feuil1.[H2] = "Non ok" 'Optionnel si tu ne veux pas tu l'enleves
End If
End Sub

@Phil69970

 

[Usine à gaz]

lol, j'ai oublié le fichier test
le voilà

 

[Usine à gaz]

Bonjour Phil69970,
Merci, je vais tester
lionel,

 

[job75]

Bonjour Lionel,

Essaie :

If LCase(CStr(Sheets("Feuil2").[H2])) Like "*coucou*" Then

A+

 

[Usine à gaz]

Bonjour Gérard
Merci pour le code.

Mais j'ai oublié de préciser que le "coucou" peut être n'importe où dans la colonne.
D'ou le code de départ : If Application.CountIf(Range("h:h"), "*coucou*") > 0 Then

si je cherche dans la même feuille, ça fonctionne nickel.
Mais j'ai besoin de le chercher dans l'autre feuille
lionel

 

[Phil69970]

Re

Lionel tu triches tu modifies la règle après coup....

Je voudrais mettre un ok dans ma "Feuille1" si "coucou" est présent en "Feuil2 en H2"

@Phil69970

 

[Usine à gaz]

lol, non Phil, j'avais mis le code avec la recherche dans le #post1 "If Application.CountIf..." mais c'est vrai, je ne l'avais pas précisé

 

[job75]

Ben oui, pourquoi parler de H2

If Application.CountIf(Sheets("Feuil2").[H:H], "*coucou*") Then MsgBox "ox"

salut Phil69970.

 

[Usine à gaz]

Merci Gérard,
Nickel, comme d'habitude
"Ben oui, pourquoi parler de H2"
Oui, c'est vrai, car je l'avais mis en H2, et j'aurais du ^précisé qu'il pouvait être partout dans la colonne, dsl pour ça
Merci Gérard
lionel,
Merci à toi aussi Phil

 

[Phil69970]

Re
Edit :Bonjour @job75 je ne t'avais point salué

Ma proposition

Sub Coucou()
Dim Cellule As Range, RechCoucou$

RechCoucou = "coucou"

With Feuil2.Range("H:H")
    Set Cellule = .Find(RechCoucou, Lookat:=xlWhole)
    If Not Cellule Is Nothing Then
        Feuil1.[H2] = "ok sur la Feuil2 en " & Cellule.Address
    Else
        Feuil1.[H2] = "Non ok sur la Feuil2"
    End If
End With
End Sub

@Phil69970

 

[Usine à gaz]

Re
Edit :Bonjour @job75 je ne t'avais point salué

Ma proposition

Sub Coucou()
Dim Cellule As Range, RechCoucou$

RechCoucou = "coucou"

With Feuil2.Range("H:H")
    Set Cellule = .Find(RechCoucou, Lookat:=xlWhole)
    If Not Cellule Is Nothing Then
        Feuil1.[H2] = "ok sur la Feuil2 en " & Cellule.Address
    Else
        Feuil1.[H2] = "Non ok sur la Feuil2"
    End If
End With
End Sub

@Phil69970

Merci Phil,
ça marche nickel aussi
lionel,