Discussion :

[n'anneso]

Bonjour,

Je suis embetée car je n'arrive pas a sortir de mon problème.

J'ai une feuille excel qui contient plusieurs tableaux cotes a cotes (séparés par quelques colonnes) .
Je souhaite trouver le numéro de la première ligne totalement vide.

Pour cela j'ai choisi d'utiliser le système de gestion d'erreur de vb:
dans une boucle, je me positionne dans la premiere cellule de chacune des ligne , et je selectionne la ligne avec cette méthode :

Code :

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

1
2
 
Range(Selection, Selection.End(xlToRight)).Select

lorsque la ligne est vide, excel renvoie une erreur, que je souhaite exploiter pour sortir de la boucle.

mais lors de l'exécution, meme si la ligne n'est pas vide, (t donc qu'aucune erreur n'est renvoyée), vb continue (vide=1), ce qui me fait sortir de la boucle.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
r = 4
vide = 0
Do While vide <> 1
    Cells(r, 1).Select
    On Error GoTo erreur_sortie
    Range(Selection, Selection.End(xlToRight)).Select
erreur_sortie:
    vide = 1
    Exit Do
 
r = r + 1
Loop

Quelqu'un a t-il une idée pour me sortir de là ?

merci d'avance!

[fring]

Bonsoir,

En supposant que ton premier tableau commence à la colonne A, je verrais bien un truc de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim i%
For i = 1 To Range("A65535").End(xlUp).Row
If Cells(i, 255).End(xlToLeft) = "" Then
MsgBox "La ligne " & i & " est entièrement vide"  '<-- la message box est juste là pour le test
Exit For
End If
Next
End Sub

[Qwazerty]

SAlut
Juste une remarque sur ton code n'anneso, je comprend pas ta gestion d'erreur, que ta ligne soit vide ou non tu exécute le code qui suit ta ligne "testé" donc tu arrive a Vide=1.
Je vois pas trop ce que tu cherches a faire avec cette soit disant erreur générée? je doute qu'excel génère un erreur par ce que la ligne que tu sélectionne est vide. Regarde plutot une solution comme te propose Fring, enfin avec Rows.Count a la place de 65535 et Columns.count a la place de 255


A++
Qwaz