[VBA-E]Petit souci avec une boucle

**Mou** · 17/04/2007, 11h28

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** · 17/04/2007, 12h30

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

Envoyé par Par ailleurs, tu

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** · 17/04/2007, 12h35

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** · 17/04/2007, 12h47

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** · 17/04/2007, 12h48

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

**ouskel'n'or** · 17/04/2007, 12h52

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

**Mou** · 17/04/2007, 12h55

Je n'ai pas encore essayé.... ca me fait reprendre pas mal de choses quand meme. Donc je cherche encore un peu avec mon code et prendrait le tien si je n'y arrive pas.

**Mou** · 17/04/2007, 13h04

Bon merci je vais le voir de suite.... c'est juste que ca m'enerve de ne pas comprendre pourquoi l'autre truc ne marche pas. Je dois avoir un probleme de raisonnement dans le code et ca va se reproduire... Voila

mais merci m'sieur !

**ouskel'n'or** · 17/04/2007, 13h06

Tu as vérifié la valeur de Fin ? Je fais une fixation mais essaie en mettant un point d'arrêt sur la ligne suivant ton for i = 95 to fin et vérifie la valeur.

**Mou** · 17/04/2007, 13h08

Oui la valeur de mon fin est correct elle correspond d'ailleurs dans ce cas à 203.

**ouskel'n'or** · 17/04/2007, 13h11

Ok, allons tant mieux.
J'ai adapté

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
Sub RechercheDe95àFin()
Dim facility_ID As Variant, c As Variant, i as long
Dim FlRange As Range
    For i = 95 To Fin
        lChannelNum = DDEInitiate("Blp", "S")
        facility_ID = Cells(i, 4)
        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
    Next
End Sub

... j'espère que c'est bien ce que tu veux faire... ce coup-ci

**Mou** · 17/04/2007, 13h16

Ah ben non ... lol Ca marche pas !

Le code que tu m' as filé ne me permet pas de chercher toutes les cellules...... En fait des qu il en trouve une, il zappe !

En fait j ai un facility_ID, le but est qu'il recherche dans une table de correspondance tous les Loans_ID correspondant et que juste à cote il me mette les formules que je veux....

Une idee ?

Merci

**ouskel'n'or** · 17/04/2007, 13h32

Si je comprends bien le problème, tu peux avoir à trouver plusieurs fois la même occurence (facility_ID) ?
Effectivement, je n'ai pas traité ça dans mon code
Tu dis

**ouskel'n'or** · 17/04/2007, 13h37

Je réponds avant d'avoir ta réponse, je suis obligé "d'y aller "
Teste ça (pas testé...)

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
Sub RechercheDe95àFin()
Dim facility_ID As Variant, c As Variant, i As Long
Dim FlRange As Range
    For i = 95 To Fin
        lChannelNum = DDEInitiate("Blp", "S")
        facility_ID = Cells(i, 4)
        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...
                Do While Not c Is Nothing
                    Range("IS" & c.Row) = "=blp(IP" & ligneLoan & ",IS1)"
                    Set c = .FindNext
                Loop
            'End If
            Set c = Nothing
        End With
    Next
End Sub

Tu dis quand même que je ne meure pas idiot

**Mou** · 17/04/2007, 15h07

Bon rien ne marche et tout fout le camps....

**ouskel'n'or** · 17/04/2007, 15h29

Et si tu mettais toute la macro, là j'ai l'impression qu'on n'a qu'un bout.
Essaie ça... à tout hasard

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
22
23
Sub RechercheDe95àFin()
Dim facility_ID As Variant, c As Variant, i As Long
Dim FlRange As Range
Dim OldNoLigne
    For i = 2 To 50
        'lChannelNum = DDEInitiate("Blp", "S")
        facility_ID = Cells(i, 1)
        Set FlRange = Worksheets("feuil1").Range("A2:A50")
        With FlRange  'plage de recherche
            Set c = .Find(facility_ID, LookIn:=xlValues)
            OldNoLigne = c.Row
            If Not c Is Nothing Then 'Si une donnée répondant au nom de Nom...
                Do While Not c Is Nothing
                    Range("IS" & c.Row) = "=blp(IP" & ligneLoan & ",IS1)"
                    Set c = .FindNext
                    If c.Row <= OldNoLigne Then Exit Do
                    OldNoLigne = c.Row
                Loop
            End If
            Set c = Nothing
        End With
    Next
End Sub

La difficulté est de ne pas pouvoir tester

**Mou** · 17/04/2007, 15h41

Ah frustration .... ben oui je sais que c est pas evident de ne pas pouvoir le tester... En tout cas merci d ton coup de main !

**Mou** · 17/04/2007, 15h54

J ai utilisé une tite astuce pour contourner le probleme en redefinissant la plage à tester....

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
22
23
24
25
26
 
For i = 95 To fin
    lChannelNum = DDEInitiate("Blp", "S")
 
    facility_ID = Cells(i, 4)
 
    ligneLoan = 0
    Do
 
    With Worksheets("CLO").Range("IP" & ligneLoan + 1 & ":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)
 
                On Error Resume Next
 
    End With
 
 
   Loop While Not ligne Is Nothing
 
 DDETerminate lChannelNum
 
Next i

Merci en tout cas pour les conseils...

**alsimbad** · 17/04/2007, 16h06

salut, j'ai ce petit bout de code qui traine, flemme de reprendre tes termes, mais il marche tres bien. il inscrit + dans la cellule a coté quand il trouve *inc, et il traite toutes les occurences. yapuka adapter

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub remp2()
With Worksheets("Boucle").Range("a:a")
    Set c = .Find("*INC", LookIn:=xlValues)
 
If Not c Is Nothing Then
    firstaddress = c.Address
       Do
            c.Offset(0, 1) = "+"
            Set c = .FindNext(c)
       Loop While Not c Is Nothing And Not firstaddress = c.Address
End If
End With
End Sub

**Mou** · 17/04/2007, 16h15

Set c = .FindNext(c)

tu es oblige de mettre le c apres le findnext ?

Merci

[VBA-E]Petit souci avec une boucle

Macros et VBA Excel

Discussions similaires

Partager

Partager