Renvoyer a partir d'une colone la valeur d'une autre colone

pierrejean à dit:

Re

Le probleme vient de ce que j'ai omis de parametrer le fait que letableau ne commence pas necessairement a la colonne A

Voici la macro modifiée qui doit fonctionner

Code:

Function presence(nom, plage)
Application.Volatile
presence = ""
For Each cel In plage
 If Cells(plage.Row, cel.Column) = nom And cel.Value = 1 Then
   presence = presence & ActiveSheet.Cells(cel.Row,[COLOR=blue] plage.Column[/COLOR]).Value & " ; "
 End If
Next
If presence = "" Then
 presence = "rien"
Else
 presence = Left(presence, Len(presence) - 3)
End If
End Function

NB: J'ai tenu compte de tes données et remplcé Jamais par rien . j'ai egalement séparé par ; plus lisible
Par ailleurs cette macro est mieux située dans un module . N'oublie pas egalement de supprimer celle qui est dans le module de la feuille

Cliquez pour agrandir...