Discussion :

[Mrfreeze117]

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

[TOFatJOB]

Bonjour,

ok, mais il est où le problème ?

[Mrfreeze117]

Bonjour,

ok, mais il est où le problème ?

j'ai une erreur d'exécution 9 "l'indice n'appartient pas à la sélection. sur la ligne

Code :

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

For i = LBound(Mytab, 19) To UBound(Mytab, 19)

[Duanra21]

Bonjour


LBound(Mytab, 19) signifie la 19eme dimension de ton tableau (qui n'en a que 2 correspondant à Lignes/Colonnes


For i = LBound(Mytab, 1) To UBound(Mytab, 1) pour parcourir les lignes

[Mrfreeze117]

Bonjour


LBound(Mytab, 19) signifie la 19eme dimension de ton tableau (qui n'en a que 2 correspondant à Lignes/Colonnes


For i = LBound(Mytab, 1) To UBound(Mytab, 1) pour parcourir les lignes

Mais du coup comment je fais pour ne parcourir que les ligne sur la 19ème colonne?

[mapeh]

Bonjour,
Peut-être tout simplement ainsi :

Code :

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

1
2
3
4
5
6
7
...
For i = LBound(Mytab) To UBound(Mytab)
        If Mytab(i, 19) = "En attente de reception" Then
            MsgBox (i)
 
        End If
...

Bonne journée

[Mrfreeze117]

Bonjour,
Peut-être tout simplement ainsi :

Code :

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

1
2
3
4
5
6
7
...
For i = LBound(Mytab) To UBound(Mytab)
        If Mytab(i, 19) = "En attente de reception" Then
            MsgBox (i)
 
        End If
...

Bonne journée

Effectivement, j'y étais presque. Merci beaucoup.