Discussion :

[banane87]

Bonjour le forum,

J'ai bien l'impression d'être fatigué, mais rien y fait, je suis en train de perdre mon temps pour une erreur qui sautera à vos yeux experts.
J'essaye de nommer une plage dynamique après la création d'une feuille avec une formule de type DECALER. Apparemment, ça ne plait pas trop à excel qui me dit que ma formule contient une erreur, J'ai beau chercher, je ne trouve pas, un idée?

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
Dim Prgm As String
Dim Wb As Workbook
Dim D As Integer
 
 
 
Set Wb = ActiveWorkbook
 
 
 
Prgm = InputBox("Quel programme souhaitez-vous créer?")
 
 
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Prgm
    ActiveCell.FormulaR1C1 = "Liste des activités liées à " & Prgm
 
   Wb.Names.Add Name:=Prgm, RefersTo:= _
        "=DECALER('" & Prgm & "'!$A$1;1;0;NBVAL('" & Prgm & "'!$A:$A)-1)"

[NVCfrm]

bonjour,

essaye d'avoir la syntaxe correcte de ta formule avec l'enregistreur macro.

[banane87]

Bonjour NVCfrm,

C'est pourant bien ce que j'ai fait. Quand je teste l'expression obtenue par la ligne

Code :

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

"=DECALER('" & Prgm & "'!$A$1;1;0;NBVAL('" & Prgm & "'!$A:$A)-1)"

en faisant une Msgbox, l'expression me semble correcte. Est-ce que je fais une bonne utilisation des opérandes de concaténation?

Merci pour votre aide.

Banane

[banane87]

Rebonjour le forum,

Il fallait enlever le "=" dans le code de ma formule pour empêcher l'erreur!
Cependant, un problème persiste. Quand le programme nomme ma plage, la valeur est mise entre guillemets de cette manière :

="DECALER('herty'!$A$1;1;0;NBVAL('herty'!$A:$A)-1)"

Comment retirer les guillemets avant Decaler et après la parenthèse?

Je vous remets le code corrigé :

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
 
Sub Creer_Prgm()
'
' Macro de création d'un programme
'Dim ws As Worksheet
Dim Prgm As String
Dim Wb As Workbook
Dim D As Integer
Dim SyntaxeN As String
 
 
Set Wb = ActiveWorkbook
 
 
 
Prgm = InputBox("Quel programme souhaitez-vous créer?")
 
 
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Name = Prgm
    ActiveCell.FormulaR1C1 = "Liste des activités liées à " & Prgm
    Cells(2, 1).Value = "Activité-modèle"
SyntaxeN = "DECALER('" & Prgm & "'!$A$1;1;0;NBVAL('" & Prgm & "'!$A:$A)-1)"
MsgBox (SyntaxeN)
   Wb.Names.Add Name:=Prgm, RefersTo:=SyntaxeN
    Wb.Sheets("Liste des programmes en cours").Activate
    D = ActiveSheet.UsedRange.Rows.Count + ActiveSheet.UsedRange.Row - 1
    Cells(D + 1, 2) = Prgm
    Cells(D + 1, 3) = Now
    Cells(D + 1, 4) = Environ("USERNAME")
    Sheets("Accueil").Select
End Sub

Merci

[SfJ5Rpw8]

Bonjour,

Déjà est est ce que sans utiliser de macros tu arrive à utiliser décaler dans la référence d'un champ nommé ?

[banane87]

Bonjour Bbil,

oui, cela fonctionne sans problème. La formule est exactement la même. D'ailleurs, en retirant les guillemets, ça fonctionne parfaitement.

La question devient donc : "Comment retirer ces satanés guillemets?"

Merci de ton aide.

Banane