Messages des blogs récents

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    'fonction qui trouve la ligne du debut et fin selon critere dans feuille delta
Function getP_Ligne(ByVal criteria As Variant, ByVal xlsheet As Worksheet)
        'definition des variables
    Dim i As Long
    Dim NbL: Dim res(2)
        'colone des currency
    Const col = 4
    With xlsheet
        NbL = .UsedRange.Rows.Count
        'recherche la premiere ligne
        For i = 1 To NbL
            If .Cells(1, col).Offset(i

...