fonction like

knaekes · 30 Janvier 2011

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

Code:

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 · 30 Janvier 2011

Re : fonction like

Bonjour,

regarde ceci :

Code:

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 · 30 Janvier 2011

Re : fonction like

Re,

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

Code:

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

Etienne2323 · 30 Janvier 2011

Re : fonction like

Salut knaekes,

vous pouvez également essayer quelque chose comme ceci :

Code:

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 · 30 Janvier 2011

Re : fonction like

OK super merci pour la réponse !

fonction like

knaekes

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Etienne2323

XLDnaute Impliqué

knaekes

XLDnaute Occasionnel

Discussions similaires

fonction like

knaekes

XLDnaute Occasionnel

Pierrot93

XLDnaute Barbatruc

Pierrot93

XLDnaute Barbatruc

Etienne2323

XLDnaute Impliqué

knaekes

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency