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

XL 2016 Sélection jusqu'à dernière ligne vide

chantalc33

XLDnaute Nouveau
Bonjour à tous,

J'ai des données dans une colonne A à D sur un nombre X de lignes.
Par contre, certaines lignes sont vides et doivent le rester.
J'ai besoin d'une formule pour sélectionner de A1 à Dx, en considérant que Dx doit être la dernière ligne dans laquelle il y a une donnée (cette dernière donnée peut être en A, B, c ou D...)

Vu qu'il y a des lignes vides, je galère... Une suggestion?
Sinon, il serait toujours possible pour moi de mettre une donnée dans ma dernière ligne en A, par exemple "LastEntry" = Dans ce cas, il faudrait que ma formule puisse sélectionner toutes les lignes de A1 à Dx, Dx étant la ligne juste au-dessus de la ligne avec la donnée LastEntry...

Bref, je vous mets un exemple... Merci de votre aide toujours apprécier!!
 

Pièces jointes

  • Exemple.xlsx
    8.9 KB · Affichages: 20

job75

XLDnaute Barbatruc
Bonjour chantalc33,

Puisque vous voulez une macro pas besoin d'écrire "LastEntry" :
Code:
Sub DefinirTableau()
Dim c As Range, Tableau As Range
With [A:D] 'adapter les colonnes éventuellement
    Set c = .Find("*", , xlValues, , xlByRows, xlPrevious)
    If c Is Nothing Then Exit Sub 'si A:D est vide
    Set Tableau = .Resize(c.Row)
End With
MsgBox "Adresse du tableau => " & Tableau.Address(0, 0) 'pour tester
End Sub
A+
 

chantalc33

XLDnaute Nouveau
On peut dire çà, j'imagine...
J'avoue que si j'avais mieux pris le temps de réaliser qu'on a définit la variable tableau, j'aurais su quoi faire...
Je vais éviter de le sélectionner et plutôt faire Tableau.Copy, ce qui me permettra de le déplacer directement où je le veux par la suite.

Merci encore!
 

Discussions similaires

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