Discussion :

[mourier]

Bonjour,

comment , en tapant par exemple " dupont" dans une boite de dialogue , je peux compléter la liste suivante dans la définition d'un nom dont la référence se compléte régulièrement ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
ActiveWorkbook.Names.Add Name:="Plage", RefersToR1C1:= _
        "={""toto"";""tutu"";""dupont""}"
 
InputBox("tapez le nom ")

Merci de votre aide

[Fvandermeulen]

Salut,
Voici une proposition, ça ne m'a pas l'air optimal mais c'est tout ce que j'ai trouvé à cet heure-ci
En fait je n'ai pas réussi avec des With donc je suis parti sur l'idée d'une boucle sur les "noms"...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub AjoutListe()
 
Dim objNom As Name
Dim MaNew As String, MonText As String
MaNew = InputBox("tapez le nom ")
 
'Boucle sur les noms du classeur
For Each objNom In ThisWorkbook.Names
    If objNom.Name <> "Plage" Then Exit Sub 'Sort de la sub si pas le bon nom
    MonText = Left(objNom.RefersTo, Len(objNom.RefersTo) - 2) & """;""" & MaNew & """}"
 
ActiveWorkbook.Names.Add Name:="Plage", RefersToR1C1:=MonText
 
Next
 
End Sub

Mais une question me taraude, pourquoi ne pas mettre cette liste dans une palge de cellule dans une feuille, ce serait plus simple non ?

A+

[Fvandermeulen]

Je suis vraiment trop débile , pas besoin de With ou de boucle, il suffisait de ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub AjoutListe()
 
Dim MaNew As String, MonText As String
MaNew = InputBox("tapez le nom ")
 
    MonText = Left(ThisWorkbook.Names("Plage").RefersTo, Len(ThisWorkbook.Names("Plage").RefersTo) - 2) & """;""" & MaNew & """}"
 
ActiveWorkbook.Names.Add Name:="Plage", RefersToR1C1:=MonText
 
End Sub

[mourier]

Génial, c'est excatement ce qu'il me fallait.
Merci beaucoup