Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 95 To fin
    facility_ID = Cells(i, 4)
    ligne = 0
    Do Until ligne Is Error
        With Worksheets("CLO").Range("IP1:IR25000")
        Set ligne = .Find(facility_ID, LookIn:=xlValues)
        ligneLoan = ligne.Row
        Range("IS" & ligneLoan) = "=blp(IP" & ligneLoan & ",IS1)"
        Find.Next
 
        End With
     Loop
Next i
En fait j'aimerai que le programme recherche dans une plage de données une donnees et mette a cote ma formule et recherche le suivant etc... jusqu'à ce qu'il n'en trouve plus...

Un ti coup de main ?

Merchi

Mourad