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

chantalc33 · 28 Février 2018

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 · 28 Février 2018

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 · 28 Février 2018

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 · 28 Février 2018

Re,

Vous débutez en VBA ?

Code:

Tableau.Select

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

A+

chantalc33 · 28 Février 2018

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!

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

chantalc33

XLDnaute Nouveau

Pièces jointes

job75

XLDnaute Barbatruc

chantalc33

XLDnaute Nouveau

job75

XLDnaute Barbatruc

chantalc33

XLDnaute Nouveau

Discussions similaires