Discussion :

[corinthien]

Bonjour tout le monde, je viens solliciter votre aide à propos d'une macro qui crée une erreur d'exécution '1004': La formule que vous avez tapée contient une erreur.

Cette macro se déroule sans aucun problème en y ajoutant un point d'arrêt avant l'instruction 'fautive' mais doit être poursuivie par l'appui de F5.

Voici une partie du code qui bloque sur l'avant dernière ligne.

Merci pour vos futures réponses.

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
 ' Récupère les coordonnées de la fin de la zone
            Colonne2 = Cells(I, Col - Cible + 1).Column
            Ligne2 = Cells(I, Col - Cible).Row
 
            ' Fichier suivant
            Fichier = Dir
 
          Loop
          I = I + 1
 
          Nom = "Zone_" & Right("000" & Z, 4)
          Ref = "=Listing!R" & Ligne1 + 1 & "C" & Colonne1 & ":R" & Ligne2 & "C" & Colonne2
 
          ActiveWorkbook.Names.Add Name:=Nom, RefersToR1C1:=Ref
          ListeReps SubFolder.path, True, Recherche

[curt]

Bonsoir corinthien,

c'est un peu court pour trouver l'erreur.
Peux-tu mettre le module complet ?

Curt

[corinthien]

Merci Curt, je suppose qu'il faut mettre le classeur en pièce jointe

[corinthien]

Bonjour tout le monde, si ça peut vous rassurer sur le contenu du zip, voici les modules servant pour mon classeur.

Merci d'avance pour vos réponses.

[corinthien]

Merci pour vos nombreuses réponses, j'ai trouvé la solution sur d'autres forums.

[BenjGe]

cette formule est bizarre

Code :

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

Ref = "=Listing!R" & Ligne1 + 1 & "C" & Colonne1 & ":R" & Ligne2 & "C" & Colonne2

c surtout "ligne1+1 qui me chiffonne, j'aurai plutôt écrit:

Code :

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

Ref = "=Listing!R" & (Ligne1 + 1) & "C" & Colonne1 & ":R" & Ligne2 & "C" & Colonne2

pourrai tu ajouter

Code :

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

msgbox Ref

avant activeworkbook.names et nous donner le résultat?

[corinthien]

Merci Benjîle de t'y intéresser, le Ligne+1 ou (Ligne+1) ne change rien au résultat.

C'est la seule méthode que j'aie trouvé pour ajouter des range nommés avec les références absolues.

J'utilise la version x64, je l'ai testé sur un x86 et miracle, elle va jusqu'au bout.

Merci encore.