Microsoft 365 Déterminer la dernière cellule réellement vide en B

[Aloha]

Bonjour,

Dans le fichier ci-joint je n'arrive pas à déterminer la dernière cellule de la colonne B contenant une valeur (B31), puisque les cellules B745, B753 et B768, apparemment vides, ne le sont pas pour Excel.
Comment résoudre ce problème?

Ce que je veux faire par VBA (le code est dans "Saisies" en VBA):
insérer la formule "=A3" en B32, la colonne B étant formatée en dddd et affichant ainsi le nom du jour, puis la tirer vers le bas, jusqu'à la dernière ligne avec une date en A, donc B751, puis remplacer les formules par leur valeur.

Bien à vous
Aloha

 

[Phil69970]

Bonjour @Aloha, le forum

Je propose ce code :

Sub DernierLigne()
Dim lastrowB
lastrowB = Range([B:B].Find("*", , , , xlByRows, xlPrevious).Address(0, 0)).Row

MsgBox (lastrowB)
End Sub

Merci de ton retour.

@Phil69970

 

[Aloha]

Bonjour,
Merci beaucoup! Tu m'as sauvé!
Je me suis vraiment cassé les dents à ce problème!
Et pour accomplir le reste de la tâche c'était facile. Il est vrai que dans le code (enregistré) il y a des "Select" dont je sais qu'ils ne sont pas bienvenus. Cf le fichier attaché.
Bonne journée
Aloha

 

[Phil69970]

Bonjour @Aloha, le forum

Perso j'aurais fait comme ça :

Option Explicit
Sub CopieDate()

Dim lastrowB&, lastrowA&

With Worksheets("Saisies")
    lastrowA = Range(.[A:A].Find("*", , , , xlByRows, xlPrevious).Address(0, 0)).Row
    lastrowB = Range(.[B:B].Find("*", , , , xlByRows, xlPrevious).Address(0, 0)).Row + 1
    .Range("B" & lastrowA & ":B" & lastrowB) = .Range("A" & lastrowA & ":A" & lastrowB).Value
End With

End Sub

@Phil69970

 

[Aloha]

Re,
Ce code me semble être un brin plus élégant!

 

[Phil69970]

Re @Aloha, le forum

Pense à clore ce post en Résolu si c'est fini. C'est mieux pour les lecteurs futurs.

@Phil69970