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

[clementmarcotte]

Bonjour,

Et tu as quoi dans ton tableau ?

Si ce sont des nombres, ce n'est pas surprenant que cela plante en testant pour du texte.

P.S. Ton If est inutile.

[zoom61]

Salut,

Un petit tour sur ce tuto devrait peut-être te donner des pistes.

Cdlt

[Theze]

Bonjour,

Je suppose que tu affecte ta plage au tableau de cette façon :

Code :

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

1
2
 
tableau_CC = Range("A7:A30")

Tu initialise I à 0 alors que ton tableau commence à 1. Pour ton exemple avec les cellules, tu commence systématiquement à 7 donc, pas d'erreur :

Code :

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

1
2
 
Cells(nb_ligne + 7 + i, 1)

Teste ceci :

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
 
Sub Tableau()
 
    Dim tableau_CC
    Dim I As Long
    Dim ligne_CC As Long
 
    tableau_CC = Range("A7:A30")
 
    If tableau_CC(I + 1, 1) <> "" Then
 
         Do While (tableau_CC(I + 1, 1) <> "")
 
            ligne_CC = ligne_CC + 1
            I = I + 1
 
         Loop
 
    End If
 
    MsgBox ligne_CC & vbCrLf & I
 
End Sub

Hervé.