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