Discussion :

[debdev]

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.

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

Pourriez-vous m'aider ?
Merci

Code :

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

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

[fring]

Bonjour,

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

Code :

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

Set Plage = Range("P1_26")

[Edit]
Ton code pourrait se limiter à ceci :

Code :

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

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

[mercatog]

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

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 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 :

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

1
2
3
4
Sub test()
 
Worksheets("P1c").Range("P1_26").Replace "", 0, xlWhole
End Sub

[debdev]

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 ?

[mercatog]

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 :

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

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 :

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

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

[debdev]

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

Code :

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

=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 :

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

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.

[mercatog]

ç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 :

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

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