Bonjour à tous,

C'es la première fois que j'utilise Lbound et Uboud et je n'arrive pas à comprendre ce que je ne fais pas correctement. 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
15
16
17
18
19
20
21
Sub Maj_Attente_de_Réception()
 
Dim fin_export As Integer, fin_recep As Integer, i As Integer
Dim Mytab As Variant
 
    fin_export = Sheets("SAP Document Export").Cells(Rows.Count, 1).End(xlUp).Row
    fin_recep = Sheets("Attente de réception").Cells(Rows.Count, 1).End(xlUp).Row
 
    'Redimensionner le tableau
    Mytab = Range("A2:AI" & fin_export).Value
 
    'Test si dans la colone 19 il ya "en attente de reception"
    For i = LBound(Mytab, 19) To UBound(Mytab, 19)
        If Mytab(i, 19) = "En attente de reception" Then
            MsgBox (i)
 
        End If
 
    Next
 
End Sub
Un coup de main ne serai pas de refus. Merci d'avance