Re : Coller dans case sélectionné à partir de userform liste déroulante choix multipl
Le problème c'est que ce code associe le module à une feuille, donc il ne fait la recherche que dans cette feuille. J'ai modifié le code pour l'adapter à mon problème
Public Function ProduitsParPays(strPays As String) As String
Dim tbl As Variant
Dim i As Integer
Dim res As Variant
If strPays = "" Then
res = CVErr(xlErrRef)
Exit Function
Else
strPays = UCase(strPays)
With Sheets("BASE 1")
tbl = .Range("B5:C5" & .Range("H" & .Rows.Count).End(xlUp).Row).Value
End With
For i = 1 To UBound(tbl)
If InStr(1, tbl(i, 1), strPays) > 0 Then res = res & tbl(i, 2) & Chr(10)
Next i
If TypeName(res) = "String" And Right(res, 1) = Chr(10) Then
res = Left(res, Len(res) - 1)
Else
res = CVErr(xlErrNA)
End If
End If
ProduitsParPays = res
End Function
Le top du top serait que je puisse définir la feuille à laquelle s'applique cette fonction dans la formule, genre =ProduitsParPays(BASE 1!B5:C5;B4)
Ce serait juste royal
Par contre je n'arrive pas à mettre en place Application.Volatile, que j'ai bien placé en en-tête du code
Peux-tu me montrer comment faire ?...