Parcourir un range nommé

Bonjour,

J'ai nommé plusieurs plages dans le gestionnaire des noms. Je souhaite parcourir chacune de mes plages: si une cellule est vide, j'y mets 0. Pour l'instant, je teste sur une seule plage et mon code ne marche pas.

Citation:

---

Erreur d'exécution '1004': Erreur définie par l'application ou par l'objet

---

Pourriez-vous m'aider ?
Merci

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub test() Dim Plage As Range, Cellule As Range Set Plage = Worksheets("P1c").Names("P1_26").RefersToRange.Value 'P1c est le nom de l'onglet 'P1_26 est le nom de la plage For Each Cellule In Plage If Cellule.Value = "" Then Cellule.Value = 0 End If Next Cellule End Sub

---

Bonjour,

Remplace la ligne "Set Plage..." par celle-ci

Code:

---

Set Plage = Range("P1_26")

---

[Edit]
Ton code pourrait se limiter à ceci :

Code:

---

1 2 3 4 5 6 7 8

Sub test() Dim Cel As Range   For Each Cel In Range("P1_26") If Cel = "" Then Cel = 0 Next   End Sub

---

Tu as 2 cas de figure, si le nom se réfère à la feuille ou au classeur

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Sub test() Dim Plage As Range, Cellule As Range   'si le nom se refère à la feuille Set Plage = Worksheets("P1c").Names("P1_26").RefersToRange   'OU BIEN 'Si le nom se refère au classeur 'Set Plage = ThisWorkbook.Names("P1_26").RefersToRange   'P1c est le nom de l'onglet 'P1_26 est le nom de la plage For Each Cellule In Plage If Cellule.Value = "" Then Cellule.Value = 0 Next Cellule End Sub

---

Sinon, tu peux faire sans boucle

Edit

Salut Fring, c'est plus direct

Sinon, sans boucle

Code:

---

1 2 3 4

Sub test()   Worksheets("P1c").Range("P1_26").Replace "", 0, xlWhole End Sub

---

:ccool:

Merci à tous les 2.

Fringe t'as solution marche nickel.

Mercatog, ta solution sans boucle est top ! Par contre, la 1ère partie me génère la même erreur qu'avec mon code. Faut-il ajouter une référence pour utiliser la fonction ReferstoRange ?

Regarde comment tu as défini ton nom

Si dans Zone dans la fenêtre de définition du nom, tu as Classeur, il faudra mettre

Code:

---

Set Plage = ThisWorkbook.Names("P1_26").RefersToRange

---

Si dans Zone dans la fenêtre de définition du nom, tu as le nom de ta feuille P1c, il faudra mettre

Code:

---

Set Plage = Worksheets("P1c").Names("P1_26").RefersToRange

---

dans mon gestionnaire de noms, pour la zone P1_26, j'ai mis la formule

Code:

---

=DECALER(P1c!$AY$1;1;0;NBVAL(P1c!$AY:$AY)-1;7)

---

donc il y a le nom de l'onglet (P1c). donc j'avais testé

Code:

---

Set Plage = Worksheets("P1c").Names("P1_26").RefersToRange

---

mais ça me met le message d'erreur. C'est pour ça que j'ai fini par me demander si ce n'était pas lié à une référence manquante.

ça ne change rien

Regarde dans ton gestionnaire de noms si dans étendu tu as Classeur ou ta feuille

Question subsidiaire, as tu utilisé

Code:

---

Set Plage = ThisWorkbook.Names("P1_26").RefersToRange

---

Ah ok, j'avais pas regardé "Etendue": oui c'est écrit Classeur. Mais si je lance le code ci-dessous, j'ai quand même le message d'erreur.

Code:

---

1 2 3 4 5 6 7

Sub Test() Dim Plage As Range, Cellule As Range Set Plage = ThisWorkbook.Names("P1_26").RefersToRange For Each Cellule In Plage If Cellule.Value = "" Then Cellule.Value = 0 Next Cellule End Sub

---

Précision: je mets peut être pas le code au bon endroit :oops:, je l'ai mis dans un module

Mea Culpa

Citation:

---

Aide:Si l'objet Name ne se réfère pas à une plage (par exemple, s'il se réfère à une constante ou une formule), cette propriété échoue.

---

Donc, dans ton cas le nom se réfère à une formule

RefersToRange va échouer

OK. Merci d'avoir cherché la raison.

Et merci encore à vous 2 pour m'avoir trouvé (plusieurs) solutions !

:ccool: