Nommer des zones automatiquement Excel 2007

Résolu
PhilFrQc Messages postés 7 Statut Membre -  
PhilFrQc Messages postés 7 Statut Membre -
Bonjour,

J'ai une liste de zones que je voudrai nommer (par VBA) en fonction de la cellule en titre.

Je peux le faire facilement avec un nom fixe :
ActiveWorkbook.Names.Add Name:="Ressource", RefersTo:=f.Cells(ligne + 1, colListe)

Mais pas avec un nom variable:
NomListe = Cells(ligne, 8)
ActiveWorkbook.Names.Add Name:=NomListe.Value, RefersTo:=f.Cells(ligne + 1, colListe).Resize(mondico.Count)

Avez-vous une solution pôur m'aider?

Merci et bonne journée.

3 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonjour,

    essaie avec :
    ActiveWorkbook.Names.Add Name:=NomListe, RefersTo:=f.Cells(ligne + 1, colListe).Resize(mondico.Count)

    Sinon autre syntaxe plus simple :
    f.Cells(ligne + 1, colListe).Resize(mondico.Count).name = NomListe

    eric
    1
  2. PhilFrQc Messages postés 7 Statut Membre
     
    Merci Éric, mais, tes deux solutions ne fonctionnent pas.
    J'Ai un message d'erreur
    "Erreur d'exécution '1004';
    Erreur définir par l'application ou par l'objet"

    PAr contre, en reprenant ta 2e solution et en remplaçant NomListe par "Tototo", ma liste s'appelle bien "Tototo".

    Je travaille avec Excel 2007.
    Est-ce qu'il y aurait une incidence?
    0
    1. lermite222 Messages postés 9042 Statut Contributeur 1 199
       
      Bonjour,
      La formule d'Eric (Bonjour) fait référence a une variable, et non un nom en "dur". 
      Dim NomList As String 
NomList = "Tototo"

      Et ensuite la formule...
      A+
      0
    2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Je n'ai pu tester complètement n'ayant pas de classeur exemple mais c'est bien (au moins) le .value qui est en trop dans ta formule (.value c'est pour une cellule, pas pour une variable).
      De plus j'avais typé NomListe en String

      eric
      0
  3. PhilFrQc Messages postés 7 Statut Membre
     
    Question à Éric et Lermite,
    Comment fait-on pour se donner un coup de pied au c... ?

    Vos réponses sont tout à fait correctes, ça fonctionne parfaitement.

    Mon problème venait simplement du fait que la valeur de NomListe contenait une virgule! ("Nom, Prénom").

    Merci encore!
    0