XL 2010 fonction LiKE

fattah_5791 · 7 Juin 2018

bonjour,

Code:

Dim v$, TC$
v = wbExcel.Sheets("Data").Range("J7").Value 'valeur recupéréé est TCLSH-1
TC = Sheets("Index").Range("A7").Value 'valeur récupérée est TCLSH

If TC & "-*" Like v Then
(...)
Else

Sheet Data et Sheet index ne sont pas dans le meme classeur. le problème est que le test IF n'execute pas ce qui est entre parenthèses !!!
merci de m'aider

Lone-wolf · 7 Juin 2018

Bonjour fattah, le Forum

D'aprés ce que j'ai compris

VB:

Public Sub Recherche()
Dim WbSource As Workbook, Sh As Worksheet, v As Range, TC As Range

    Set WbSource = Workbooks.Open("nom réel du classeur(vbexcel)")
    Set Sh = ThisWorkbook.Sheets("Index")

    With WbSource
        Set v = .Sheets("Data").Range("J7")
    End With

    With Sh
        Set TC = .Range("A7")
    End With

    If TC.Value Like "*" & v.Value Then
        'le code
    Else
        'reste du code
    End If

End Sub

XL 2010 fonction LiKE

fattah_5791

XLDnaute Occasionnel

Lone-wolf

XLDnaute Barbatruc

Discussions similaires