Re,
Merci pour ton retour,
Tu remarqueras que l'extension du fichier est en .xlsm....la fonction personnalisée est donc contenu dans un module du classeur.
Fait ALT+F11 et tu trouveras la fonction.
Pour le cas 1:
Function Recherches_Multiples(ValeurRecherchee As Range, TableDeRecherche As Range, NumColonne As Integer, Separator As String) As Variant
Dim NbLignes As Integer
NbLignes = TableDeRecherche.Rows.Count
Dim CompteurValeursTrouvees As Integer
CompteurValeursTrouvees = 0
For i = 1 To NbLignes
If TableDeRecherche(i, 1).Value = ValeurRecherchee.Value Then
CompteurValeursTrouvees = CompteurValeursTrouvees + 1
If CompteurValeursTrouvees > 1 Then
Recherches_Multiples = Recherches_Multiples & Separator & TableDeRecherche(i, NumColonne).Value
Else
Recherches_Multiples = TableDeRecherche(i, NumColonne).Value
End If
End If
Next i
End Function
Pour le cas 2:
Function RechTous(v, champRech As Range, ChampRetour As Range, separateur)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & separateur
End If
Next i
RechTous = Left(temp, Len(temp) - 1)
End Function
Donc dans l'autre classeur, il faut que tu ais également cette fonction, sinon ça ne fonctionnera pas....
Donc Alt+F11 puis Insertion puis Module
Tu colles le code de la fonction dans le module.
Tu choisiras l'extension.xlsm lorsque tu enregistreras ton fichier.
Cordialement,