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

Phil69970

XLDnaute Barbatruc

• 18 Mars 2021

• #2

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

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 18 Mars 2021

• #3

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

 

Pièces jointes

• Dernière cellule occupée avec macro.xlsm

  70.3 KB · Affichages: 8

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 18 Mars 2021

• #4

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

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 18 Mars 2021

• #5

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

 

Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc

• 18 Mars 2021

• #6

Re @Aloha, le forum

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

@Phil69970

 

Vote positif 0 Vote négatif

Solution