Discussion :

[VBaddict56]

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

[Daniel.C]

Bonjour,

Ça ne fonctionnera pas. Le code de la macro se comporte comme s'il était partie intégrante de la fonction. En espérant me tromper, toutefois...

[VBaddict56]

Merci Daniel pour ta réponse, en fait je m'en doutais...
Mais dans ce cas y a-t-il une autre solution, car sur mon fichier je recherche toutes mes réfenrences ayant le chiffre 1 dans une colonne et je voudrais que chaque résultat puisse s'incrire dans une cellule l'une après l'autre...
Faut-il que je revois ma fonction oubien faut-il une nouvelle macro pour obtenir ce résultat?

[Daniel.C]

Une fonction retourne une valeur. Utilise une macro.