Discussion :

[bastouneco]

Bonjour,

Voici ce que je cherche à faire : comparer deux variable contenant du texte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
IF Range("B" & ligne).Value LIKE Range("C" & ligne).value THEN ...

J'ai essayer ceci qui ne marche pas, suis-je sur la bonne piste ?

Code Visual Basic :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

        If InStr(1, Mid(Worksheets("Temps moyens").Range("A" & n), 2), Mid(Worksheets("Planning").Range("D" & ligneplan), 1), vbTextCompare) <> 0 Then

Pourriez vous m'aider ?

Merci d'avance,

[mercatog]

ça dépend de ce que tu cherche à comparer
l'existence de A dans B
l'existence de B dans A
l'existence d'une partie de A dans B (la partie à chercher est identifiable)
ou l'existence d'une partie de B dans A

(A et B étant les colonnes)

[bastouneco]

Merci de m'aider.

si A = Worksheets("Temps moyens").Range("A" & n)

et B = Worksheets("Planning").Range("D" & ligneplan)

Je cherche à trouver l'existence de la totalité de A dans B.

SAUF que il risque d'y avoir un problème de casse. Donc au final je veux trouver A moins le premier caractère dans B.

Exemple :
A = Bouteille
B = 1/2 bouteille de cidre

Je veux que les actions du IF soit exécutées.

Merci d'avance.

[mercatog]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If InStr(UCase(Worksheets("Temps moyens").Range("A" & n)), UCase(Trim(Worksheets("Planning").Range("D" & ligneplan)))) > 0 Then MsgBox "kuku"

[bastouneco]

Merci beaucoup ! Cela marche exactement comme je le souhaite.

Peux tu m'expliquer rapidement comment marche Ucase ?

Merci

[mercatog]

F1 (l'aide de vba) te donnera les informations nécessaires. c'est gratuit.
Ucase: rends tes données en majuscule
Trim: élimine les espaces superflus en fin ou en début de la donnée