Saut de ligne VBA
chris
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je recherche si possible un code VBA me permettant lors d'une recherchv de sauter à la ligne aprés chaque résultat trouvé.
Le code actuel utilisé est le suivant :
Je vous remercie !!!
Je recherche si possible un code VBA me permettant lors d'une recherchv de sauter à la ligne aprés chaque résultat trouvé.
Le code actuel utilisé est le suivant :
Function VLooKupList(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 VLooKupList = VLooKupList & Chr(10) & TableDeRecherche(i, NumColonne).Value Else VLooKupList = TableDeRecherche(i, NumColonne).Value End If End If Next i End Function
Je vous remercie !!!