Rech tous mais Multicol

bonjour

je cherche a faire marcher la fonction perso Rech tous sur plusieurs colonnes ; mais ................

merci cordialement

Bonsoir

Je te propose un autre code à améliorer

Function RechTous(v, champRech As Range, ChampRetour As Range, Separateur As String)
Dim Msg As String
Dim J As Long, I As Integer

  Application.Volatile

  ' Vérification des données entrées
  ' code à faire

    For J = 1 To champRech.Rows.Count
    For I = 1 To champRech.Columns.Count
      If champRech.Cells(J, I) = v Then
        Msg = Msg & Separateur & ChampRetour.Cells(J, 1)
        Exit For
      End If
    Next I
  Next J
  RechTous = Mid(Msg, Len(Separateur) + 1)
End Function

re

merci elle est archivée avec sa soeur

je me disais bien qu'il manquait une variable ; mais je ne savais pas comment ............

une fois de plus tu sauves la mise

je m'empresse de la partager

cordialement