Discussion :

[BOU59000]

Bonjour à toutes et à tous,

Je n'utilise que très rarement (quasiment jamais en fait...) les variables tableaux.
Dans le cadre d'un projet je ne trouve pas (actuellement) d'autres alternatives.

L’idée est d'avoir un tableau de 2 colonnes et de 9 lignes.

Je commence avec un tableau vierge.
Si l'info que je balaye est dans mon tableau, je passe à autre chose.
Si l'info n'est pas dans le tableau je l'enregistre dans un emplacement vide.
J'en profite alors pour remplir la seconde colonne avec une autre information.

Ci-dessous le code (ce dernier bloque directement sur mon If Tableau...) et je me demande pourquoi...

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
31
32
33
34
35
36
 
    For j = 0 To 10 'Je parcours toutes les qualités produits par ligne par M, AM, et N
 
         Trouve = "NON"
 
         If Cel_Auto_Ligne1.Offset(0 + 1, j).Value <> "" Then
 
            For i = 0 To 8
 
                If Tableau_Ligne1(i, 0).Value = Cel_Auto_Ligne1.Offset(0 + 1, j).Value Then
 
                    Trouve = "OUI"
 
                End If
 
            Next i
 
            For k = 0 To 8
 
                If Trouve = "NON" Then
 
                    If Tableau_Ligne1(k, 0).Value = "" Then
 
                        Tableau_Ligne1(k, 0).Value = Cel_Auto_Ligne1.Offset(0 + 1, j).Value
                        Tableau_Ligne1(k, 1).Value = Cel_Auto_Ligne1.Offset(0, j).Value
                        Trouve = "OUI"
 
                    End If
 
                End If
 
            Next k
 
         End If
 
    Next j

D'avance merci pour vos suggestions :-)

[lucasgaetan]

Bonjour BOU59000,

Dans un premier temps regarde ici

Code :

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

Tableau_Ligne1(i, 0).Value à remplacer par Tableau_Ligne1(i, 0)

Sinon Comment as-tu déclaré ton tableau, normalement Dim Tableau_Ligne1(8, 1).
Autre chose, pour parcourir un tableau prends For i = 0 To Ubound(Tableau_Ligne1, dimension ) ; dimension étant en option pour spécifier quelle dimension:
Dans ton cas:
Ubound(Tableau_Ligne1) = 8
Ubound(Tableau_Ligne1, 1) = 8
Ubound(Tableau_Ligne1, 2) = 1

[BOU59000]

Bonjour lucasgaetan,

Merci pour ton aide et pour le lien!

Problème résolu.
.value enlevé
Utilisation de ubound