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

[chantalc33]

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!!

 

[job75]

Bonjour chantalc33,

Puisque vous voulez une macro pas besoin d'écrire "LastEntry" :

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]

Bonjour job75!
Ça semble très bien fonctionner. Comment je fais maintenant pour qu'il sélectionne le tableau plutôt que de me faire la msgbox ?

Merci

 

[job75]

Re,

Vous débutez en VBA ?

Tableau.Select

Mais apprenez qu'en VBA il est inutile voire nuisible de sélectionner quoi que ce soit.

A+

 

[chantalc33]

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!