[VBA] - Nommer des zones via un tableau de correspondance

[nat54]

Bonjour,

Je fais suite au fil "graphique selon mois de l'année".

Voilà le problème : j'ai crée un tableau où il y a
* colonne B : nom zone
* colonne C : formule de la zone

Etant donné qu'il y a 141 zones à nommer, CB60 m'a aidé à construire ce code VBA pour éviter d'avoir à copier-coller ces 141 formules dans insertion/nom/définir

Problème : cela ne crée que 127 noms (je crois) sur les 141

Pourquoi ??


Le code
Sub zoneNommee()
On Error Resume Next
Sheets("formules_nommées").Select
Range("c10").Select ' j'ai mis en C10 le nom et en c11 la formule
While ActiveCell.Value <> "" ' boucle tant que ce n'est pas vide
ActiveWorkbook.Names.Add Name:=Selection.Value, RefersToR1C1Local:=ActiveCell.Offset(0, 1).Value
ActiveCell.Offset(1, 0).Select
Wend
End Sub


Le fichier


Merci d'avance

 

[nat54]

Re : [VBA] - Nommer des zones via un tableau de correspondance

MERCI A TOUS !

C'est NICKEL

Je ferais ça lundi sur le fichier original