bonjour,
je souhaiterai faire un programme qui  
a partir de données bloomberg que j'ai recupérer,
j'ai plusieur colonnes :
pour chaque pays j'ai une date et un indice (un prix)
comme les jours travaillés ne sont pas les mêmes partout,
je souhaiterai garder les jours qui sont travaillé partout.
 
voila le programme que j'ai fait,
mais il n'est pas bon, car il ne s'arrete pas.
 
merçi par avance
AZ.
 
Sub TrierTab()
Dim l0 As Integer
Dim i0 As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
 
' initialisation parameters
l0 = 1
i0 = 11
m0 = 65
 
' initialise loop variables
i = i0
j = l0 + 2
k = i0
l = l0
 
 
'loop
Do While (Not (IsEmpty(Cells(k, l))))
If ((Cells(i, j).Value = Cells(k, l).Value) Or IsEmpty(Cells(i, j))) Then
        If j = m0 Then
        i = i + 1
        j = l0 + 2
            Else
            j = j + 2
        End If
    Else
    If (Cells(i, j).Value < Cells(k, l).Value) Then
     
    Cells(k, l).Delete Shift:=xlShiftUp
        Cells(k, l + 1).Delete Shift:=xlShiftUp
        j = l0 + 2
        Else
        Cells(i, j).Delete Shift:=xlShiftUp
        Cells(i, j + 1).Delete Shift:=xlShiftUp
        End If
End If
Loop
 
 
 
End Sub
 
 
 
 
 

Si le programme boucle, c''est parce que la condition de sortie de boucle n'est jamais vraie.

La cellule k,l ne deviendrait jamais vide ?

Sans doute parce qu'une cellule a plus de chances d'être Null ou VbNullString que Empty, si mes souvenirs sont bons.
Voir là pour quelques explications sur IsEmpty :
http://msdn2.microsoft.com/en-us/library/5cs4befa.aspx
http://www.w3schools.com/vbscript/func_isempty.asp