Discussion :

[awa123]

Bonjour,

Je ne comprends pas pourquoi la boucle Do While ne fonctionne pas avec mon tableau :

Code :

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

1
2
3
4
5
6
7
8
        i = 0
        ligne_CC = 0
        If tableau_CC(i, 1) <> "" Then
             Do While (tableau_CC(i, 1) <> "")
                ligne_CC = ligne_CC + 1
                i = i + 1
             Loop
        End If

alors qu'elle fonctionne parfaitement lorsque je remplace mon tableau par des cellule comme cela :

Code :

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

1
2
3
4
5
6
7
8
        i = 0
        ligne_CC = 0
        If Cells(nb_ligne + 7 + i, 1) <> "" Then
            Do While (Cells(nb_ligne + 7 + i, 1) <> "")
                ligne_CC = ligne_CC + 1
                i = i + 1
            Loop
        End If

si quelqu'un aurait une petite idée sachant que j'ai déclaré mon tableau comme cela :

Code :

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

  Dim tableau_CC()

Merci beaucoup