liste de choix sur liste modifiable

[pascalF]

Re bonjour,

J'ai dans une feuille une cellule qui contient une liste de choix. Cette liste fait référence à des données situées dans une 2eme feuille (liste articles). La référence à cette liste est faite par un nom (listeArticles). Mon problème c'est que lorsque l'on ajoute une ligne, il faut que je mette à jour la zone de référence de manière à obtenir la nouvelle ligne.

J'ai fait un enregsitrement macro en supprimant le nom pour le re-créer avec le bon nombre de ligne. Ce qui donne la macro suivante :

ActiveWorkbook.Names("listeArticles").Delete
    ActiveWorkbook.Names.Add Name:="listeArticles", RefersToR1C1:= "='liste articles'!R2C1:R14C1"

Mais je voudrais initialiser la zone de manière dynamique (en fonction du nombre de ligne réel dans "liste articles") avec quelque chose du style :

ActiveWorkbook.Names.Add Name:="listeArticles", RefersToR1C1:= plage.select

Comment fait-on ?

Merci d'avance pour vos suggestions.

PS : il y a peut etre plus simple que de supprimer puis re-creer le nom !

 

[Pierrot93]

Re : liste de choix sur liste modifiable

Bonsoir Pascal

tu peux essayer le code ci dessous :

Names.Add "ListeArticle", Sheets("Feuil1").Range("A1:A10")

bonne soirée
@+

 

[jp14]

Re : liste de choix sur liste modifiable

Bonsoir

Pour utiliser le nom de zone avec un nombre de valeur qui varie on utilse la fonction "decaler"
exemple
=DECALER(Stock!$A$2;;;NBVAL(Stock!$A:$A)-1)
Le titre de la colonne se trouve en A1, il faut donc enlever au nombre de valeur.

JP

 

[Pierrot93]

Re : liste de choix sur liste modifiable

Re, bonsoir Jp14

j'ai été trop vite une fois de plus, utilise plutôt le code ci dessous :

Sub test()
With Sheets("Feuil1")
Set maplage = .Range("A1:A" & .Range("A65536").End(xlUp).Row)
End With
Names.Add "ListeArticle", maplage
End Sub

@+

 

[pascalF]

Re : liste de choix sur liste modifiable

Merci pour ta réponse pierrot93

N y a t-il pas moyen d'utiliser la sélection active avec quelque chose du style

Names.Add "ListeArticle", Sheets("Feuil1").Range.selectionActive

Merci aussi JP14

J'essaie tout ça

a +

 

[pascalF]

Re : liste de choix sur liste modifiable

c'est dément, ce forum est tellement réactif que j'arrive plus à fournir.

Merci pour vos réponses

Ok pierrot93, je crois que tu me donnes "la" solution à mon problème...

a +

 

[Pierrot93]

Re : liste de choix sur liste modifiable

Re,

sinon pur la selection active, tu remplaces "maplage" par "selection" sur la ligne "Names.Add".

@+

 

[Bebere]

Re : liste de choix sur liste modifiable

bonsoir le fil
tu définis ta plage une ligne de plus et avant d'ajouter un nouvel item à la liste tu insères une nouvelle ligne ou cellule,le système met à jour
bonne soirée