Bonjour,

Voilà mon soucis :

J'ai une fonction qui s'appelle "RechercheMultSep" avec un séparateur pour chaque résultat à la formule.
Mon soucis est que si j'enlève mon séparateur et que je veux faire appelle à ma macro "CelChange" pour changer de cellule à chaque résultat ça ne marche pas !
J'aimerais savoir comment je peux faire soit pour appeler ma macro dans la fonction ou bien changer ma fonction pour que les résultats s'incrivent dans une cellule à chaque fois.
Voici ma Fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function RechercheMultSep(ValeurCherchée As String, MatriceCherche, MatriceTrouve, Optional Separator As String) As String
Dim c, i As Long
    If Separator = "" Then Separator = "; "
        For Each c In MatriceCherche
            i = i + 1
If ValeurCherchée = c Then
If RechercheMultSep = "" Then
RechercheMultSep = MatriceTrouve(i)
Else
RechercheMultSep = RechercheMultSep & Separator & MatriceTrouve(i)
End If
End If
Next c
End Function
Et voici ma macro :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
Sub CelChange()
      Rows("1:1").Select
         Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
J'aimerais au possible ne pas trop modifier ma fonction ou alourdir mon fichier...
Merci