Microsoft 365 nommer une plage de cellules jusqu'à dernière ligne

[Usine à gaz]

Bonjour à toutes et à tous,
Je vous souhaite un beau WE 🙂

Je bute (comme d'hab lol) sur ce qui suit :
J'ai fait ce code :

Sub plage()
With ActiveWorkbook.ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
With .Range("a2:a" & .Range("a65536").End(xlUp).Row).Select
End With
End With
End Sub

ça fonctionne 'euréka 🙂)

Je voudrais donner un nom de plage et je n'y arrive pas malgré mes recherches et tests 😡
Auriez-vous la solution ?
Je vous remercie ... une fois de plus et je ne les compte plus lol
Amicalement,
lionel,

 

[CHALET53]

Bonjour,
Peut-être :

Sub plage()
Dim plage, cel, a
With ActiveWorkbook.ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
Set plage = .Range("a2:a" & .Range("a65536").End(xlUp).Row) '.Select
With plage
For Each cel In plage
a = cel.Value
Next
End With
End With
End Sub

a+

 

[chris]

Bonjour

    With Worksheets("SuivisAppels")
        ActiveWorkbook.Names.Add Name:="LeNom", RefersTo:="='" & .Name & "'!$A$2:$A$" & .Range("A" & .Rows.Count).End(xlUp).Row & ""
    End With

Nom donné à la plage à adapter

Mais pourquoi ne pas utiliser un tableau structuré ?

Ton pseudo est une profession de foi ?

Edit : bonjour Chalet53. Nous n'avons pas compris la même chose...

65536 est dépassé depuis 13 ans...

 

[Usine à gaz]

Bonjour CHALET53, chris,

Merci à vous pour m'avoir répondu 🙂
J'ai du mal m'expliquer lol

Mon code fonctionne très bien mais simplement je voudrais remplacer mon code par une plage nommée dans le gestionnaire de noms et que ça sélectionne les lignes non vides comme le fait le code.

@chris : utiliser un tableau structuré m'obligerait à refaire tous mes classeurs de travail que j'utilise depuis bientôt 10 ans et vu les complexités de mes fichiers, je n'aurai ni le temps et ni (peut-être) le courage de le faire 🙂
lionel,

 

[job75]

Bonjour Lionel, CHALET53, chris,

Très classiquement :

Sub plage()
With ActiveSheet 'With Worksheets("SuivisAppels") 'Nom feuille au besoin
    With .Range("A2", .Range("A" & .Rows.Count).End(xlUp))
        .Select
        .Name = "MaPlage"
    End With
End With
End Sub

A+

 

[Usine à gaz]

Bonjour Gérard,
Mais c'est sûr, j'aurais dû trouver seul 😡
Encore merci à toi 🙂
lionel,