Nommer une plage de cellule

Bonjour,

Je voudrais nommer une plage de cellule avec un nom prédéfini sachant que cette plage de cellule est d'une longueur variable.

Je compte d'abord le nombre de ligne du fichier :

nb_ligne = 2

While Cells(nb_ligne, 1) <> ""

nb_ligne = nb_ligne + 1

Wend

Ensuite je nomme la colonne K (c'est toujours la même) :

Range("K2:K" & nb_ligne - 1).Select

ActiveWorkbook.Names.Add Name:="LGC", RefersToR1C1:="=openprintoutputexaltotalv3suivi!R2C11:R" & nb_ligne - 1 & "C11"

ActiveWorkbook.Names("LGC").Comment = ""

Et quand la macro s'est excécuté le résultat est le suivant pour la plage "LGC"

=openprintoutputexaltotalv3suivi!'L2C11':'L22C11'

Donc à priori il nomme bien la colonne K de la ligne 2 à la ligne 22 (le nombre de ligne calculée), mais dans les valeurs de cette plage, il n'y a rien ....

Quelqu'un a une idée ???

Merci

Bonjour,

Tout d'abord, modifie ton code ainsi :

Option Explicit
Public Sub test()
Dim nb_ligne As Long
Dim rng As Range
    Application.ScreenUpdating = False
    nb_ligne = 2
    While Cells(nb_ligne, 1) <> ""
        nb_ligne = nb_ligne + 1
    Wend
   Set rng = Range("K2:K" & nb_ligne - 1)
    ActiveWorkbook.Names.Add Name:="LGC", RefersTo:=rng
    Set rng = Nothing
End Sub

Maintenant, si la plage nommée ne comporte pas de valeurs, c'est que les cellules de la plage sont vides.

Cdlt.

Merci !!

Ca marche parfait !!!