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

Aloha · 18 Mars 2021

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 · 18 Mars 2021

Re @Aloha, le forum

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

@Phil69970

Phil69970 · 18 Mars 2021

Bonjour @Aloha, le forum

Je propose ce code :

VB:

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 · 18 Mars 2021

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 · 18 Mars 2021

Bonjour @Aloha, le forum

Perso j'aurais fait comme ça :

Code:

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 · 18 Mars 2021

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

Phil69970 · 18 Mars 2021

Re @Aloha, le forum

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

@Phil69970

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

Aloha

XLDnaute Accro

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Aloha

XLDnaute Accro

Pièces jointes

Phil69970

XLDnaute Barbatruc

Aloha

XLDnaute Accro

Phil69970

XLDnaute Barbatruc

Discussions similaires