K
Karim
Guest
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!
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!