Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Aloha

XLDnaute Accro
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
 

Pièces jointes

  • Dernière cellule occupée.xlsm
    66.6 KB · Affichages: 11

Aloha

XLDnaute Accro
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

Phil69970

XLDnaute Barbatruc
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
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…