Bonjour,

Je suis un peu novice en VBA et j'ai donc essayé un petit programme simple mais cela ne marche pas...
Je veux créer une fonction qui prend 2 valeurs en entrée. Ces 2 valeurs sont recherchés dans un tableau (la valeur 1 doit être contenue dans la colonne A et la valeur 2 doit être contenue dans la colonne B). Si ces 2 conditions sont remplies, je souhaite récupérer la valeur de la colonne 3. Je parcours ainsi tout mon tableau et je concaténe les résultats avant de les retourner.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
Function maConcatenation(valeur1 as String, valeur2 as String) as String
Worksheet("Calcul").Select
For length =1 to 100 then
if Cells(length,1)=valeur1 Then
 if Cells(length,2)= valeur2 Then
 maConcatenation=maConcatenation&" "&Cells(length,3)
End If
End If
Next length
End Function
J'ai essayé de mettre un .Value à la fin de Cells mais rien n'y change sauf le message d'erreur...

Lorsque j'aurai compris cela je m'attaquerai à ne parcourir que mon tableau et non pas les 100 premières lignes de la feuille...

En tt cas, si vous avez des idées ce serait super !
Merci à vous et bonne soirée,

Nico