Equivalent "*" VBA

Version imprimable

Equivalent "*" VBA

Bonjour,
Quel serait l'équivalent de "*" en VBA dans la formule:

Code:

=SI(A5<>"";DECALER(EPLE;EQUIV("*"&A5&"*";EPLE;0)-1;;SOMMEPROD((STXT(EPLE;1;NBCAR(A5))=TEXTE(A5;"0"))*1));EPLE)

.

Je voudrais l'utiliser dans le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
 
 
  Dim Lig As Long, Nom As String, Line As Long, Col As Long, LignSel As Long
 
Nom = InputBox("Saisie de votre NOM : ", "NOM")
If Nom = "" Then
Exit Sub
Else
 
With Sheets("RECUP").Range("a1:a500")
 
 
    Set C = Sheets("RECUP").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns)
 
    If Not C Is Nothing Then
        Do
 
        Set C = .FindNext(C)
        C.Activate
 
        MsgBox Range("" & "A" & ActiveCell.Row & "").Value & " H: " & Range("" & "ED" & ActiveCell.Row & "").Value & " E: " & Range("" & "EE" & ActiveCell.Row & "").Value & vbCr & vbCr & Range("" & "EG" & ActiveCell.Row & "").Value
        Exit Sub
 
        Loop While Not C Is Nothing
 
    End If
End With
End If
End If
End Sub

Au niveau de:

Code:

Set C = Sheets("RECUP").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns)

Pour pouvoir effectuer une recherche sans entrer tous les caractères du nom à chercher.

MERCI D'AVANCE

05/11/2015, 14h54
Invité

Code:

ActiveCell.FormulaLocal="=SI(A5<>"""";DECALER(EPLE;EQUIV(""*""&A5&""*"";EPLE;0)-1;;SOMMEPROD((STXT(EPLE;1;NBCAR(A5))=TEXTE(A5;""0""))*1));EPLE)"
05/11/2015, 15h06
Igloobel

Bonjour,

Perso j'utiliserai la fonction VBA "Instr()"

A+
05/11/2015, 15h09
Igloobel

Ou encore mieux "like"

tiré de l'aide en ligne

Citation:

Like, opérateur, exemple
Cet exemple utilise l'opérateur Like pour comparer une chaîne à un modèle.

Dim MyCheck
MyCheck = "aBBBa" Like "a*a" ' Renvoie True.
MyCheck = "F" Like "[A-Z]" ' Renvoie True.
MyCheck = "F" Like "[!A-Z]" ' Renvoie False.
MyCheck = "a2a" Like "a#a" ' Renvoie True.
MyCheck = "aM5b" Like "a[L-P]#[!c-e]" ' Renvoie True.
MyCheck = "BAT123khg" Like "B?T*" ' Renvoie True.
MyCheck = "CAT123khg" Like "B?T*" ' Renvoie False.

A+
05/11/2015, 16h40
Kestion100

J'aime bien la

Code:

like

je tente de l'intégrer dans mon code

J'avoue avoir un peu de mal à l'intégrer dans:

Code:

Set C = Sheets("RECUP").Range("A2:A200").Find(What:="" & Nom & "", LookAt:=xlWhole, SearchOrder:=xlByColumns)

Bonjour.

Voici comment utiliser INSTR

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub tt2()
 Set r = Range("eple")
 txt = Range("a5").Value
 For Each c In r
 
 If c.Value <> "" Then
  If InStr(c.Value, txt) = 1 Then
   MsgBox c.Value & " " & c.Address & " " & c.Row & " " & c.Column
   Exit For
  End If
  End If
 
 Next
End Sub

05/11/2015, 22h49
mercatog

Code:

LookAt:=xlPart

au lieu de xlWhole
06/11/2015, 08h22
Kestion100

Parfait la solution de Docmarti mais fait quand même gaffe au pommeau de la canne de Beef ;)!!!!!