Discussion :

[pauline5459]

Bonjour tout le monde,

J'appelle à l'aide : J'ai codé VBA de la façon suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function RechTous(v, champRech As Range, ChampRetour As Range)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & "; "
End If
Next i
RechTous = Left(temp, Len(temp) - 2)
End Function

Et dans ma cellule où j'utilise ma fonction RechTous, j'ai inscris cette formule : =RechTous('Bon d''intervention'!H2;Clients!A3:A2001;Clients!B3:B2001)
Ma fonction marche en me renvoyant les bonnes valeurs, sauf que j'aimerais qu'il aille à la ligne du dessous après chaque valeur reportée,
comment puis-je faire ????


Merci bcp par avance!

[ptitcool]

Salut

Utilise vbcrlf

"a" & vbcrlf & "b"
donne
a
b

A+

[pauline5459]

Merci pour ta réponse rapide Par contre, j'ai essayé d'appliquer ce que tu as dit en modifiant le code comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Function RechTous(v, champRech As Range, ChampRetour As Range)
a = champRech
temp = ""
For i = 1 To champRech.Count
If a(i, 1) = v Then
temp = temp & ChampRetour(i) & " " & vbCrLf & " "
End If
Next i
RechTous = Left(temp, Len(temp) - 2)
End Function

Mais ca ne marche pas, quand j'utilise la formule dans une cellule, il me renvoie les réponses à la suite dans la même cellule séparées d'une espace, or j'aimerais que les réponses soient sur une seule colonne (et aillent à la ligne suivante).

Tu sais comment faire ?

[ptitcool]

Salut,

Décidément je me plante tout le temps quand j'essaie de comprendre un problème

Le problème c'est qu'une formule classique n'agit que sur une seule cellule. Les seules formules qui peuvent impliquer plusieurs lignes sont les formules matricielles mais j'en connais trop peu à ce sujet pour t'aider.

Après tu peux tout faire en vba avec ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub RechTous(v, champRech As Range, ChampRetour As Range)
    Dim j As Integer
    a = champRech
    j = 1
    For i = 1 To champRech.Count
        If a(i, 1) = v Then
            Range("C" & (2+j)).Value = ChampRetour(i)
            j = j + 1
        End If
    Next i
End Sub

Ensuite tu crées la macro suivante qu'il faudra lancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub Trouve()
    RechTous Worksheets("Bon d'intervention").Range("H2").Value, Worksheets("Clients").Range("A1:A9"), Worksheets("Clients").Range("B1:B9")
End Sub

Quand tu lanceras la macro Trouve ça fera ce que tu demandes. Le problème c'est que les résultats ne se mettront pas à jour tout seul comme avec les formules :/

Si vraiment tu veux que ça se fasse tout seul il faudra passer par les formules matricielles et il te faudra quelqu'un qu'y s'y connait mieux que moi.

A+

[pauline5459]

Ça va pas marcher.. Je vais trouver une solution ! Merci beaucoup pour l'info en tout cas