tamtam64

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
27
28
29
30
    '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 - 1).Value = _
            criteria And .Cells(1, col).Offset(i - 1, -1).Value = "LQB TRD" Then
                res(1) = i
                Exit For
            End If
        Next
            'recherche la derniere ligne
        For i = NbL To 1 Step -1
            
            If .Cells(1, col).Offset(i - 1).Value = _
            criteria And .Cells(1, col).Offset(i - 1, -1).Value = "LQB TRD" Then
                res(2) = i
                Exit For
            End If
        Next
    End With
        'assignation
    getP_Ligne = Array(res(1), res(2))
End Function