Itérer à travers les lignes remplies

Microsoft 365 & Office Excel & VBA
1

J’essaie d’itérer à travers une feuille de calcul dans un tableur Excel en utilisant VBA. Je veux itérer à travers chaque ligne, puis à travers chaque colonne, et malgré mes recherches Google, je n’arrive pas à trouver un moyen intuitif de le faire.

Je suppose que la première cellule d’une ligne doit être remplie ; si elle ne l’est pas, alors ce doit être la fin. Je peux imposer cela.

Mon approche actuelle est d’itérer à travers les lignes, puis d’essayer d’obtenir la valeur de la première cellule, mais je n’y arrive pas. J’ai trouvé des questions ici et ailleurs qui utilisent des plages et autres, mais rien qui m’aide à écrire du code.

L’approche actuelle est :

Set sh = ActiveSheet
RowCount = 0
For Each rw In sh.Rows
    'If Row.Cells(1, 1).Value = "" Then Exit For
    RowCount = RowCount + 1
Next rw
MsgBox (RowCount)

Maintenant, quand j’exécute cela, j’obtiens un nombre énorme, ce qui est faux car le tableau n’a qu’environ 25 lignes. J’ai mis en commentaire la première ligne car elle ne fonctionnait pas.

Que puis-je changer dans la première ligne de la boucle For pour s’arrêter correctement quand elle trouve une ligne dont la première cellule est vide ?

2

Il semble que vous ayez simplement codé en dur la ligne et la colonne ; sinon, avec quelques petits ajustements, je pense que vous y êtes :

Dim sh As Worksheet
Dim rw As Range
Dim RowCount As Integer

RowCount = 0

Set sh = ActiveSheet
For Each rw In sh.Rows

  If sh.Cells(rw.Row, 1).Value = "" Then
    Exit For
  End If

  RowCount = RowCount + 1

Next rw

MsgBox (RowCount)