Fonction qui prélève le contenu de cellules pour le mettre dans une autre

[benode]

Bonjour à tous !
Je vous expose mon problème : je souhaite créer une fonction, de variable le contenu d'une cellule, qui parcours une colonne (en l'occurrence, la A) et qui, à chaque fois qu'elle trouve la valeur, inscrit la valeur de B correspondante dans la cellule C2. Ok vous êtes comme moi vous trouver ça compliqué comme ça mais en fait je suis sûr que c'est simple. Par contre vu que je débute vraiment, si vous pouviez me filer un petit coup de main...

Ce que j'ai fait (et qui ne marche pas...) :
Function recherche1(cel As Range)

Set plage = Range("A2:A233")
Dim res As String
For Each cellule In plage
If cellule.Value = cel.Value Then
res = res & " ; " & ici je ne sais pas comment désigné la cellule de la colonne B correspondante...
Else
End If
Next cellule
ActiveCell.Value = res
End Function


Et j'ai joint un petit exemple pour mieux comprendre :


Merci d'avance !

 

[pierrejean]

Re : Fonction qui prélève le contenu de cellules pour le mettre dans une autre

Bonsoir benode

Et bienvenue sur XLD

Vois ceci

 

[gilbert_RGI]

Re : Fonction qui prélève le contenu de cellules pour le mettre dans une autre

Bonjour

vous cherchez quoi parce que là c'est pas clair

dans votre post vous marquez que la recherche doit se faire en colonne A
et dans le code du fichier c'est dans B

qu'est-ce que res

EDIT : bonjour Pierrejean

 

[PMO2]

Re : Fonction qui prélève le contenu de cellules pour le mettre dans une autre

Bonjour,

Essayez le code suivant

Function recherche1(cel As Range)
Set plage = Range("a1:a233")
Dim res As String
For Each cellule In plage
  If cellule.Value = cel.Value Then
    If res = "" Then
      res = cellule.Offset(0, 1)
    Else
      res = res & " ; " & cellule.Offset(0, 1)
    End If
  End If
Next cellule
recherche1 = res
End Function

Cordialement.

 

[benode]

Re : Fonction qui prélève le contenu de cellules pour le mettre dans une autre

Merci pour ces réponses ! Les codes que vous m'avez envoyés marchent super bien !
@gilbert_RGI : désolé je me suis trompé entre le code et les explications, c'est bien la colonne A que je voulais parcourir. Et "res" est une variable locale dans laquelle je compte mettre la valeur de sortie de la fonction.

En tout cas bravo et merci à tous ceux qui entretiennent ce site !