Sélection plage de toutes les cellules non vides

Bonjour à toutes et tous,

Je voudrais sélectionner via une macro, une plage de toutes les cellules non vide d'une feuille. Les données de remplissage étant issue d'un export peuvent varier tant sur le nombre de ligne que de colonnes.

Ainsi dans mon classeur exemple sélectionner la plage de cellule A1:FC553

J'ai trouvé le post ci après mais je 'arrive pas à adapter et à bien comprendre le code pour obtenir ce que je souhaite.

https://forum.excel-pratique.com/viewtopic.php?f=2&t=37237

Merci

Hugues

Bonjour,

à tester,

Range("A1").SpecialCells(xlCellTypeConstants, 23).Select

'23 est égale à l'addition des constantes XlSpecialCellsValue suivante

'xlErrors 16

'xlLogical 4

'xlNumbers 1

'xlTextValues 2

Bonjour,

Pour compléter la réponse d'Isabelle (salutations au passage), la méthode SpecialCells est "capricieuse"...

Mieux vaut donc passer par une variable de type Range et de tester si elle "existe" :

Dim Rng As Range
On Error Resume Next
Set Rng = Range("A1:FC553").SpecialCells(xlCellTypeConstants, 23)
On Error Goto 0
If Not Rng Is Nothing Then
    MsgBox Rng.Address
End If

Bonjour Isabelle, Franck, toutes et tous,

Isabelle et Franck merci pour vos conseils.

Vos codes se rapprochent de mon besoin.

Mais comment modifier la partie du code suivante pour la rendre dynamique :

Set Rng = Range("A1:FC553").SpecialCells(xlCellTypeConstants, 23)

C'est à dire ne pas limiter le code sur la plage A1:FC553 (A2 dans mon cas exemple) mais faire en sorte que le code soit effectif sur toutes les cellules de la feuille et sélectionne une plage avec des bornes variables.

Je joins un nouveau classeur exemple.

Merci

cordialement

Hugues

Salut HUGOBASS,

Range("A2").Resize(Range("A:A").Find(what:="").Row - 1, Cells(2, Columns.Count).End(xlToLeft).Column).Select

A+

Bonjour à toutes et tous, Bonjour Curulis57,

Curulis57, j'ai adapté et repris ton code qui a apporté la solution.

Je t'en remercie

Bien à vous toutes et tous

Cordialement

Hugues