Discussion :

[comme de bien entendu]

Bonjour,

Alors que je redéfinie une plage nommée par le code, Excel me renvoie l'erreur suivante :

La formule que vous tapez contient une erreur.
Pour obtenir des informations sur la correction des problemes courant relatifs ...

C'est l'erreur

1004

.

Voici le code :

Code :

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

1
2
3
4
5
6
 
debut_Typo=13
Fin_Typo = Worksheets("Architecture").Range("B65536").End(xlUp).Row
 
    ActiveWorkbook.Names.Add Name:="Tableau_Liste_Typo", RefersToR1C1:= _
        "='Architecture'!R" & debut_Typo & "C2:R" & Fin_Typo & "C2"

L'erreur se déclenche sur la définition de la plage nommee (Activeworkbook...)

Fin_Typo a bien une valeur (47 dans le cas présent)
Merci d'avance de vos idées.

[Invité]

Bonjour,

Chez moi, votre macro fonctionne. Par contre quel est le type de la variable Fin_Typo chez vous ?

Ci-dessous une adaptation de votre code. NB La suppression de la zone nommée avant sa re-création n'empêche pas le fonctionnement de la macro.

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
17
18
19
Sub ZoneNommee()
 
Dim Debut_Typo As Long
Dim Fin_Typo As Long
Dim NomZone As Name
 
Debut_Typo = 13
Fin_Typo = Worksheets("Architecture").Cells(ActiveSheet.Rows.Count, 2).End(xlUp).Row
 
    For Each NomZone In ActiveWorkbook.Names
            If NomZone = "Tableau_Liste_Typo" Then ActiveWorkbook.Names("Tableau_Liste_Typo").Delete
    Next NomZone
 
    ActiveWorkbook.Names.Add Name:="Tableau_Liste_Typo", RefersToR1C1:= _
        "='Architecture'!R" & Debut_Typo & "C2:R" & Fin_Typo & "C2"
 
    MsgBox (Range("Tableau_Liste_Typo").Address)
 
End Sub

Cordialement.

[comme de bien entendu]

En rouvrant mon projet, le bug ne se reproduit pas.

Mais d'une facon générale, doit on supprimer une plage nommee avant de la redéfinir ou pas ?
(Avant que je me mette à faire cela sur les 25 plages nommées de mon appli Excel).

D'avance merci de la précision.

[issoram]

Bonjour,

Non, tu n'es pas obligé de supprimer une zone nommée avant de la redéfinir. Si la zone existe déjà il suffit de faire comme ceci:

Code :

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

tonClasseur.Names(nomdeTaZone).RefersTo = '......