XL 2019 cellule vide

Staple1600 à dit:

Re

Ici donc, mon clavier frémira sous mes doigts avec
CTRL+FLECHE BAS
FLECHE BAS

😉

Cliquez pour agrandir...

Staple1600 à dit:

Re

[Pour infos]
Tous les commentaires ont été constructifs.
(Dont le mien, puisque tu vas joindre un fichier exemple, mais ce n'est pas utile d'ouvrir une nouvelle discussion puisque celle-ci existe)
Et tu ne peux pas fermer une discussion.
Une fois, une question posée, elle vit sa vie de question sans limites
(autre que celle la validité de l'enregistrement du nom de domaine d'XLD 😉)

Cliquez pour agrandir...

Staple1600 à dit:

Re

MOmichel
J'avais cru que tu allais joindre un fichier Excel (en guise d'exemple)
Pour qu'on puisse faire des tests sur nos PC afin de mieux te répondre.

NB: N'oublie pas de rendre anonyme avant de l'envoyer sur le forum.

Cliquez pour agrandir...

Staple1600 à dit:

Re

C'est cela que tu veux faire?

VB:

Sub test()
Dim t, x&, rVide As Range
t = Split(Range("Tsource[[#ALL],[REF_MNF]]").SpecialCells(2, 2).Address, "$")
x = t(UBound(t)) + 1
Set rVide = Range("Tsource[[#ALL],[REF_MNF]]").Item(x)
MsgBox rVide.Address
rVide.Select
End Sub

NB: Renommer Colonne1 en REF_MNT avant de lancer la macro

Cliquez pour agrandir...

Staple1600 à dit:

Re

Tu as fait ce qu'on lire en gras dans mon précédent message?
Dans le Nota Bene.

Cliquez pour agrandir...

Staple1600 à dit:

Re

C'est cela que tu veux faire?

VB:

Sub test()
Dim t, x&, rVide As Range
t = Split(Range("Tsource[[#ALL],[REF_MNF]]").SpecialCells(2, 2).Address, "$")
x = t(UBound(t)) + 1
Set rVide = Range("Tsource[[#ALL],[REF_MNF]]").Item(x)
MsgBox rVide.Address
rVide.Select
End Sub

NB: Renommer Colonne1 en REF_MNT avant de lancer la macro

Cliquez pour agrandir...

Staple1600 à dit:

Bonjour le fil

Fonctionne chez moi
(toujours sur le fichier demo.xlsm)

VB:

Sub PremièreVideDepuisBas()
Dim LObj As ListObject, premCellVideDepuisBas&
Set LObj = ActiveSheet.ListObjects("Tsource")
With LObj.Range.Columns(5)
premCellVideDepuisBas = .Cells(.Rows.Count).End(xlUp).Row + 1
End With
MsgBox premCellVideDepuisBas, vbInformation, "N°Ligne"
LObj.Range(premCellVideDepuisBas, 5).Select
End Sub

Cliquez pour agrandir...

merci à vous tous pour cette dernière solution

Cliquez pour agrandir...