boucle "jusqu'à la dernière ligne" [Résolu]

[tallent_e]

Bonsoir,

J'ai un petit souci avec une longueur de row / nombre max de lignes

Je fais une boucle qui passe d'une ligne à la suivante ainsi :

Code :

For i = 1 To une certaine valeur max

Mais Excel (version 2007) ne m'autorise qu'une toute petite valeur max pour ma variable i .

Çà marche avec disons 5000, mais 65535 que j'ai vu à plusieurs reprises sur internet ne fonctionne pas.

Une boîte de dialogue (je la déteste!) me dit :

Erreur d'exécution '6':

Dépassement de capacité

Et en regardant sur http://office.microsoft.com/en-us/ex...010073849.aspx, il est indiqué :

Worksheet size 1,048,576 rows by 16,384 columns

Quelqu'un veut bien démêler tout çà ?
Il y a peut-être un problème dans ma boucle pourtant toute simple ?

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub MaJolieSub()
 
Dim i As Integer, counterRow As Integer
 
counterRow = 1
 
For i = 1 To une certaine valeur max
 
    If Cells(i, 1).Value <> "" Then
        counterRow = counterRow + 1
    Else
        Exit For
    End If
Next i

Merci

[LouiMz]

Bonsoir,

Il s'agit d'un Entier signé ... Vous pouvez aller voir sa valeur Max sur le net.

Utilisez plutôt :

Code :

Dim i As Long

EDIT:

Il y a également plus simple pour votre code

Code :

1
2
3
4
5
6
7
8
Dim i As Long
 
i = 1
 
'On boucle tant que la cellule A & i n'est pas vide
While (Range("A"&i).value <> "")
      i = i + 1
Wend

Le total des lignes non vide est alors la valeur (i - 1)

[tallent_e]

Bonsoir LouiMz.

Merci de votre réponse.

Le type déclaré de ma variable ne convenait semble-t-il pas.

Comme vous le suggérer, cela fonctionne en déclarant mon i comme Long.

Je bricole plutôt avec C++ et C# où j'ai le réflexe boucle => int . Mon biais ...

Merci en tous les cas.

Édouard