Aller à la ligne VBA Excel

Bonjour tout le monde,

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

Code:

---

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!

Salut

Utilise vbcrlf

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

A+ ;)

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:

---

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 ? :)

Salut,

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

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:

---

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:

---

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+;)

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