Bonjour Hellboy, lebardo, le forum,
Je regarde l'évolution du travail, je ne suis pas toujours diponible, mais un coup d’main par ci, par là, c’est possible, surtout si tu mets le mains dans l’cambouis (vba), ça fait gagner du temps
&&&&&&&&&&&&
Fonds Skandia donne la liste dans laquelle il faut chercher
i= 2 To Range('B2').End(xlDown).Row
OPCVM expositions donne les noms à chercher et le code insrit les noms trouvés dans la colonne E s’il n’a rien trouvé dans la liste Fonds Skandia, il inscrit 0 dans OPCVM expositions
Sub cherche()
On Error Resume Next
Sheets('OPCVM expositions').Select
'----------préparation-------------
Range('E2', Range('E2').End(xlDown)).Select
Selection.ClearContents
Range('E2').Select
'-----------
For i = 2 To Range('B2').End(xlDown).Row 'liste à trouver pour chaque ligne
Rech = Cells(i, 2).Value
With Worksheets('Fonds Skandia').Range('A2:A216') 'liste dans laquelle il faut chercher
sico = .Find(What:=Rech).Value 'sico est le nom cherché
Cells(i, 5).Value = sico 's'il est trouvé, il est inscrit en colonne E Sheets('OPCVM expositions')
If Cells(i, 5).Value <> Cells(i, 2).Value Then 's'il n'y a pas correspondance B et E
Cells(i, 5) = 0 'inscription =0
End If
End With
Next i 'recommencer pour la ligne suivante
End Sub
je ne sais pas ce que tu veux en faire dans 'présentation3', mais j'espère avoir donné des explications suffisantes pour que tu puisses t'en servir
albert