Donner un nom à une liste de cellules

[chameau45]

Bonjour,
Je voudrais créer une macro qui donne le nom "liste" à une liste de cellules qui peut évoluer dans le sens de la colonne (le nom de la feuille est "liste TP").
Ma première cellule est toujours en b1 la deuxième en b2 ........
Donc j'ai essayé cette sub mais ça ne marche pas :

Range("B1").Select
Range(Selection, Selection.End(xlDown)).Select
compt = Selection.Rows.Count
ActiveWorkbook.Names.Add Name:="liste", RefersToR1C1:="='Liste TP'!R1C2:R & compt & C2"
Range("B1").Select

Merci d'avance pour votre aide.

 

[Compte Supprimé 979]

Re : Donner un nom à une liste de cellules

Salut Chameau45

Pourquoi une macro !?

Essaye => Menu Insertion -> Nom -> Définir

Et saisi

=DECALER('liste TP'!$B$1;;;NBVAL('liste TP'!$B:$B))

En général dans un tableau il y a toujours une ligne d'entête et là du coup la formule est

=DECALER('liste TP'!$B$1;1;;NBVAL('liste TP'!$B:$B)-1)

A+

 

[chameau45]

Re : Donner un nom à une liste de cellules

je suis obligé d'utiliser une macro car la liste de cellules provient d'une macro qui me récupére le nom de tous mes onglets et me les affiche. Ensuite j'utilise le nom de cette liste dans une combobox, ce qui me permet d'avoir une liste déroulante avec le nom de tous mes onglets. Et si je rajoute un onglet je voudrais pouvoir avoir ce nouvel onglet dans ma liste déroulante. D'ou mon besoin de donner un nom à ma liste via une macro. J'espère avoir été suffisemment clair.

 

[job75]

Re : Donner un nom à une liste de cellules

Bonsoir chameau45, salut Bruno,

Pas trop compris, mais pourquoi pas :

ActiveWorkbook.Names.Add Name:="liste", RefersToR1C1:="='Liste TP'!R1C2:R & compt

A+

 

[chameau45]

Re : Donner un nom à une liste de cellules

Bonsoir job75,

Je viens de tester ta commande dans ma macro mais ca ne me donne toujours pas de nom à ma liste ?

 

[Compte Supprimé 979]

Re : Donner un nom à une liste de cellules

Re,

Ok, par macro :

compt = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next
ActiveWorkbook.Names("liste").Delete
On Error GoTo 0
ActiveWorkbook.Names.Add Name:="liste", RefersToR1C1:="='Liste TP'!R1C2:R" & compt & "C2"

A+

 

[job75]

Re : Donner un nom à une liste de cellules

Re,

Bon, je pense que j'étais à coté de la plaque.

Pourtant je savais que RefersToR1C1 fonctionne mal.

Utilisez donc la méthode plus classique :

ActiveWorkbook.Names.Add "liste", Sheets("Liste TP").Range("B1:B" & compt)

A+

 

[chameau45]

Re : Donner un nom à une liste de cellules

SUPER ca marche merci bruno pour ta macro. Maintenant ma combobox se met à jour automatiquement.
Vous êtes des boss

 

[chameau45]

Re : Donner un nom à une liste de cellules

Par contre job75, je viens d'essayer ta ligne de commande et il me met un message d'erreur : "Erreur de compilation : attendu parametre nommé " et il me surligne le mot sheets dans ta ligne de commande ?

 

[job75]

Re : Donner un nom à une liste de cellules

Re,

Toujours pas compris*, mais peut-être :

ActiveWorkbook.Names.Add "liste", Range("B1:B" & compt)

Bien sûr compt doit être défini correctement.

* surtout pas compris la nécessité de supprimer le nom "liste" comme l'a fait Bruno 😕

A+

 

[chameau45]

Re : Donner un nom à une liste de cellules

ok job75 ce coup ci ca marche nickel encore merci pour ton aide