Discussion :

[Mou]

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

[ouskel'n'or]

Dans ton code, tu fixes la recherche sur 3 colonnes.

recherche dans une plage de données une donnees et mette a cote ma formule

Tu es sûr de vouloir faire ça ?
A+

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Edit

Désolé, j'ai mal lu, ta donnée va bien toujours sur la colonne IS.
par contre, ta recherche se fait sur 3 colonnes.

[Mou]

C'est pas ce que j'ai voulu dire.... J'ai du mal m'exprimer. J'ai un peu avancer dans mon code... Par contre j 'ai un probleme, je ne sais pas comment le faire passer à la donnée suivante..

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
For i = 95 To fin
    lChannelNum = DDEInitiate("Blp", "S")
 
    facility_ID = Cells(i, 4)
    ligne = 1
    Do
        With Worksheets("CLO").Range("IP1:IR25000")
            Set ligne = .Find(facility_ID, LookIn:=xlValues)
            ligneLoan = ligne.Row
            sRequeststr = Range("IP" & ligneLoan).Value & ",[security_type, ln_tranche]"
            Range("IS" & ligneLoan & ":IT" & ligneLoan) = DDERequest(lChannelNum, sRequeststr)
 
 
 
        End With
     Loop While Not ligne Is Nothing
 
 DDETerminate lChannelNum
 
Next i

Si j'essaie de mettre un .findnext a la place de mon .find et ben ca bug...

[ouskel'n'or]

Essaie comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RechercheSimple()
Dim facility_ID As Variant, c As Variant
Dim FlRange As Range
    facility_ID = Cells(i, 4).value
    Set FlRange = Worksheets("CLO").Range("IP1:IR25000")
    With FlRange  'plage de recherche
        Set c = .Find(facility_ID, LookIn:=xlValues)
        If Not c Is Nothing Then 'Si une donnée répondant au nom de Nom...
            Range("IS" & c.Row) = "=blp(IP" & ligneLoan & ",IS1)"
        End If
    End With
    Set c = Nothing
End Sub

[Mou]

Juste une petite question... pourquoi le next ne se fait pas dans le second code que j'ai envoyé ?

[ouskel'n'or]

Quelle valeur a ton "Fin" ?
Je pense que ça vient de là. Tu as essayé mon code ?