Discussion :

[yannoch123]

Bonjour je dispose d une base de donneés qui contient des chaines de caracteres un extrait est donne ci dessous

fly 20y6y /1158 vs 20y7y 1328/ vs  20y8y /1500


+9y1y-8y1y
+20y4y-6y4y nl
+7y20y-7y30y
+10y20y-10y30y

fly -10y30y+15y30y-20y30y
fly +2y5y-3y5y+4y5y

Smile
19mar14 into 20yr 3%/ 1.92% collar   / 27 (delta  2.455%)
1y5y 50wc 8/15
9m5y 100wc 15/19
9m5y 80wc 14/16
18m20y 200wc 33/
1y30y 100wc 13/22

5y1y P+200 20/ vs 132
5y5y 200ws 263/282 vs 621
5y5y P+200 78/ vs 621
7y5y 200ws /370 vs 710
7y5y 200wc /+50
2y10y 200wc /52
10y10y 200wc 60/83
10y10y P+100 435/ vs 1490
12y10y P+200 /325 vs 1570
30y10y Rec-125 /502 vs 1940
3y20y P+125 /233 vs 1530
6y20y 200ws 895/930 vs 2030
10y30y P+100 837/ vs 3055
12y30y Rec-100 700/ vs 3175
15y30y  P+300 332/390 vs 3340

Collar spread
18m20y 100wc vs  2y20y 100wc /+10 (2y20y over)

Rec spread
12y30y Rec-100 @717 vs 3175 VS 10y20y Rec-150 /335  vs 2365


UNWIND
CS wants to  buy  24-jun-13  into 10y Rec 1.758%  vs SELL  28-jun13  into 10y straddle 1.925% vs BNP


CFS
5x10 vs6 760/773

GBP


01/03/2013

hpc

5y20y @1899
10y30y P+100 @845 clean

trades
1x2 cfs @41.5
3m3y @66
1m5y @68, 73.5
2m 5y  @97
9m5y @213
1y10y @512
10y20y @2363
3m5y @122 vs 3m1y @244
18m20y 200wc @+33

away
10y20y p+100 664/680 vs 2364 in mkt
10y5y p+200 152/159 vs  804

isda
pay 5y isda
pay 10y isda in 19.5m
pay 2s10s isda 7m
pay 5s10s isda
rec 2s20s isda
rec 8s9s isda
pay 8s9s12s isda
pay 9s10s12s
pay 10s12s15s isda
pay 20s25s30s isda

swaps
rec 30s35s
rec 30s40s

j aimerais savoir svp comment supprimer les lignes vierges
merci de votre aide

[mercatog]

Tes données sont elles enregistrées dans un fichier texte?

Si c'est affirmatif

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
Sub Test()
Dim Fichier As String, Ligne As String, Res As String
Dim N As Integer
 
Fichier = "C:\Documents and Settings\Administrateur\Bureau\MonFichier.txt"
N = FreeFile()
 
'Lecture et suppression lignes vides
Open Fichier For Input As #N
While Not EOF(N)
    Line Input #N, Ligne
    If Len(Trim(Ligne)) > 0 Then Res = Res & Chr(10) & Ligne
Wend
Close N
 
'Réecriture
Open Fichier For Output As #N
Print #N, Mid(Res, 2)
Close N
 
End Sub

[yannoch123]

Merci de votre reponse , toutefois mes données proviennent d une colonne excel , est ce le meme principe?

[mercatog]

Non, ce n'est pas la même chose

Sujet identique http://www.developpez.net/forums/d12...ignes-tableau/

[yannoch123]

merci beaucoup mercatog , ca m a aide , toutefois j aurais une derniere question , j aimerais mnt supprimer toutes les lignes dont les cellules st en fond noirs ou dont la chaine de caractere est en rouge , est ce possible??

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Sup()
Dim LastLig As Long, i As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")
    LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
    For i = LastLig To 2 Step -1
         If .Range("A" & i).Interior.Color = 0 And .Range("A" & i).Font.Color = 255 Then .Rows(i).Delete
    Next i
End With
End Sub