1004 error, code arrete sans raison suite à l'écriture d'une formule dans une cellule

Version imprimable

30/03/2020, 03h37
Bieffe

1004 error, code arrete sans raison suite à l'écriture d'une formule dans une cellule

Bonjour à tous,

J'ai fait un code afin de dupliquer une feuille et de l'utiliser avec les données de chaque nouveau bassin que j'ajoute dans ma première feuille. Mon code fonctionne bien (peut-être pas optimal, mais bon), mais depuis que j'ai ajouté la dernière ligne pour écrire une longue formule, ça me donne une erreur 1004. La formule s'écrit comme il faut dans la feuille, mais le code ne renomme plus la feuille comme voulu.

https://www.cjoint.com/c/JCEbLkVtbWO

Est-ce que quelqu'un pourrait me donner un coup de main? C'est depuis que j'ai modifié la formule pour une beaucoup plus longue que ça a fait ce bug.

Merci d'avance pour le coup de main

Citation:

Envoyé par Bieffe

Bonjour,

On ne voit pas d'où vous partez dans l'onglet Données, la ligne de code pour nommer l'onglet est neutralisée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Dim ShTemplate As Worksheet
 
    'Creation de la nouvelle feuille
    Sheets("Template_BV").Copy After:=Sheets(Sheets.Count)
    Set ShTemplate = Sheets(Sheets.Count)
 
    'Modification des donnees de la feuille pour ajuster au BV selectionne
    With ShTemplate
         .Range("A1").Formula = Adresse_Titre
         .Range("F10").Formula = Adresse_Superficie
         .Range("F11").FormulaLocal = "=SI(OU(F12=2;F12=5;F12=10);" & Adresse_10 & ";SI(F12=25;" & Adresse_25 & ";SI(F12=50;" & Adresse_50 & ";SI(F12=100;" & Adresse_100 & "))))"
 
         'Renommer la feuille avec les 12 premiers caracteres (a modifier si besoin)
        ' .Name = Left$(.Range("A1").Value, 12)
    End With
    Set ShTemplate =  Nothing

30/03/2020, 14h32
Bieffe

1 pièce(s) jointe(s)

Bonjour,

Merci pour le retour rapide! Je ne connaissais pas l'option Template, je vais étudier ça.

La cellule d'où je pars dans les données est celle sélectionnée (le titre de la surfaces, par exemple A13), ça fait partie du guide d'utilisation de ma feuille qui n'est pas inclus.

Pour ce qui est de la solution proposée, j'ai toujours la même erreur avec votre proposition. Pourtant, la formule s'écrit comme il faut, c'est ça qui me confond le plus.

Pièce jointe 550794

Merci

Citation:

Envoyé par Bieffe

Je n'ai pas de problème avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Dim ShTemplate As Worksheet
 
'Creation de la nouvelle feuille
 
    Sheets("Template_BV").Copy After:=Sheets(Sheets.Count)
    Set ShTemplate = Sheets(Sheets.Count)
 
   With ShTemplate
 
'Modification des donnees de la feuille pour ajuster au BV selectionne
    .Range("A1").Formula = Adresse_Titre
    .Range("F10").Formula = Adresse_Superficie
    .Range("F11").FormulaLocal = "=SI(OU(F12=2;F12=5;F12=10);" & Adresse_10 & ";SI(F12=25;" & Adresse_25 & ";SI(F12=50;" & Adresse_50 & ";SI(F12=100;" & Adresse_100 & "))))"
 
'Renommer la feuille avec les 12 premiers caracteres (a modifier si besoin)
    .Name = Left$(.Range("A1").Value, 12) & " " & Sheets.Count
 
 
    End With
    Set ShTemplate = Nothing

30/03/2020, 16h08
Bieffe

Merci, je n'avais pas remarqué le Local. Afin d'être sûr d'avoir bien compris, il fallait le Local afin que le code s'adapte à mon logiciel en français, sinon il ne reconnaissait pas ma formule comme une formule puisque les termes étaient en français?

Merci encore, j'avais déjà passé pas mal de temps à chercher ma solution, mais je n'avais pas pensé à cela. Les autres fonctions de mon code ne mettaient jamais une formule complète mais plutôt des références à des cellules ce qui n'était pas problématique car dans aucune "langue".