Microsoft 365 if condition que je ne parviens pas à coder

Phil69970

XLDnaute Barbatruc

• 9 Novembre 2021

• #2

Bonjour Lionel

Voici ma version

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #3

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

 

Pièces jointes

• mot dans colonne.xlsm

  19.8 KB · Affichages: 15

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #4

Bonjour Phil69970,
Merci, je vais tester
lionel,

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2021

• #5

Bonjour Lionel,

Essaie :

VB:

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

A+

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #6

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Novembre 2021

• #7

Re

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

Usine à gaz à dit:

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

Cliquez pour agrandir...

@Phil69970

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #8

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é

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Novembre 2021

• #9

Ben oui, pourquoi parler de H2

VB:

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

salut Phil69970.

 

Vote positif 0 Vote négatif

Solution

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #10

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 9 Novembre 2021

• #11

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

Ma proposition

VB:

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

 

Vote positif 0 Vote négatif

Usine à gaz

XLDnaute Barbatruc

• 9 Novembre 2021

• #12

Phil69970 à dit:

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

Ma proposition

VB:

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

Cliquez pour agrandir...

Merci Phil,
ça marche nickel aussi
lionel,

 

Vote positif 0 Vote négatif