Bonjour a tous
j'ai récupéré un module de code VBA windows et je souhaite l'utiliser dans mon Mac,malheureusement il ne m'affiche pas les valeurs souhaitées mais #VALEUR!.
quelqu'un peut-il m'aider
merci
je joint le fichier et je copie aussi les lignes de code
a très bientôt
Option Explicit
Function Rechercher(Nom As Range) As String
Application.Volatile
Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
Set WsS = Worksheets("Patch DMX")
With Worksheets("Patch Multi")
If Not IsEmpty(Nom) Then
Tablo = Split(Nom, "/")
For i = 0 To UBound(Tablo)
Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
If Not C Is Nothing Then
Valeur = Valeur & C.Offset(0, 1) & "/"
End If
Next i
Rechercher = Left(Valeur, Len(Valeur) - 1)
Valeur = ""
End If
End With
End Function
j'ai récupéré un module de code VBA windows et je souhaite l'utiliser dans mon Mac,malheureusement il ne m'affiche pas les valeurs souhaitées mais #VALEUR!.
quelqu'un peut-il m'aider
merci
je joint le fichier et je copie aussi les lignes de code
a très bientôt
Option Explicit
Function Rechercher(Nom As Range) As String
Application.Volatile
Dim WsS As Worksheet
Dim Cel As Range, C As Range
Dim Tablo
Dim i As Integer
Dim Valeur As String
Set WsS = Worksheets("Patch DMX")
With Worksheets("Patch Multi")
If Not IsEmpty(Nom) Then
Tablo = Split(Nom, "/")
For i = 0 To UBound(Tablo)
Set C = WsS.Columns(1).Find(Tablo(i), , xlValues, xlWhole)
If Not C Is Nothing Then
Valeur = Valeur & C.Offset(0, 1) & "/"
End If
Next i
Rechercher = Left(Valeur, Len(Valeur) - 1)
Valeur = ""
End If
End With
End Function
