fonction like

[knaekes]

bonjour,

je souhaite verifier qu'une chaine de caractere inscrite dans une cellule1 contienne l'ensemble de la chaine de caractere contenue dans une cellule2

exemple:
si cellule1 = ABCDE et cellule2 = BC alors "OK"
si cellule1 = ABCDE et cellule2 = CB (ou autre chose <> BC) alors "pas OK"

comment faire? merci

Sub essai()

Dim cible1 As Variant
Dim cible2 As Variant

cible1 = Cells(1, 1).Value
cible2 = Cells(1, 2).Value

If cible1 Like "*cible2*" Then
MsgBox "yesss"
Else: MsgBox "merde"
End If


End Sub

 

[Pierrot93]

Re : fonction like

Bonjour,

regarde ceci :

Dim c1 As String, c2 As String
c1 = "ABCDE"
c2 = "BC"
If c1 Like "*" & c2 & "*" Then MsgBox "trouvé" Else MsgBox "non trouvé"

bon après midi
@+

 

[Pierrot93]

Re : fonction like

Re,

A noter que l'on peut également utiliser la fonction "InStr" :

Dim c1 As String, c2 As String
c1 = "ABCDE"
c2 = "BC"
If InStr(c1, c2) > 0 Then MsgBox "trouvé" Else MsgBox "non trouvé"

 

[Etienne2323]

Re : fonction like

Salut knaekes,

vous pouvez également essayer quelque chose comme ceci :

Sub Test()

Dim Valeur_Reference As String, Valeur_Recherche As String
Dim Col As Variant

Valeur_Reference = Cells(1, 1).Value
Valeur_Recherche = Cells(1, 2).Value

Set Col = Range("A1").Find(Valeur_Recherche, LookIn:=xlValues, LookAt:=xlPart)
If Not Col Is Nothing Then
    MsgBox "yesss"
Else
    MsgBox "merde"
End If

End Sub

Cordialement,

Étienne

 

[knaekes]

Re : fonction like

OK super merci pour la réponse !