Discussion :

[Yaone]

Bonjour,

J'aimerais savoir si il est possible de parcourir une colonne à l'infini ?
Je parcours une colonne dont je ne sais pas combien elle a de ligne. Je sais juste quand est-ce que je sors de ma boucle (première cellule vide)

Voici le code que j'ai :

Code :

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

1
2
3
4
5
6
7
8
 
For Each maCellule In ActiveSheet.Range("A2:A" & valeurInconnue)
    ---instructions---
    If maCellule.Value = empty Then
        ---instructions---
        Exit For
    End If
Next maCellule

Qu'est-ce que je dois mettre à la place de valeur inconnue ?
Ou dois-je modifier la boucle ?

Merci.

[SfJ5Rpw8]

sans aller bien loin crois tu qu'excel te permette de faire des tableaux avec un nombre de lignes infinis.... (va jusqu'en bas...)

[chmod777]

X = Cells(65535, 1).End(xlUp).Row ' 1 pour colonne a
valeur inconnue = x

[Yaone]

Je m'en doute mais il y avait peut-être une fonction qui me retournait cette valeur ^^"

En tout cas, merci.

*Yaone partie se pendre* lol

[AlainTech]

Une petite correction de ton code:

Code :

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

1
2
3
4
5
6
7
8
9
  Dim MaCellule As Range
 
  For Each MaCellule In ActiveSheet.Range("A:A")
 
      If IsEmpty(MaCellule) Then
          MsgBox MaCellule.Address
          Exit For
      End If
  Next MaCellule