Karim

Bonjour,

J'ai un fichier avec une cellule non vide, plusieurs cellules vides puis a nouveau une cellule non vide.
Ce que je veux faire, c'est connaitre l'adresse de la cellue non vide qui se trouve après les cellules vides.

A1=200
A2=
A3=
A4=
A5=150

sacahnt que le nombre decellules vides entre deux cellules pleines n'est pas constant, ça peut etre une fois 3 cellules vides, une fois 4...
J'ai essayé de faire ça:

Sub test()

Dim art As Range, ver As Integer, art2 As Range

Set art = Range("a2")
ver = 0

Do Until art.Offset(ver) <> ""
ver = ver + 1
Set art2 = art.Offset(1)
Loop

MsgBox art2

End Sub

Mais avec ça; la variable art2 est tjs vide alors qu'elle devrait avoir 150 comme valeur!

Si vous avez des idées, vous me sauvez la vie!
Merci d'avance!