Discussion :

[La_Taupe]

Bonjour,

Je souhaite pouvoir intégrer une formule en dur dans le code plutôt que dans les cellules de ma colonne.
J'ai lu ici et là quelques discussions à ce sujet mais j'ai une erreur d'exécution 1004.

Voici mon code

Code :

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

1
2
3
4
5
6
 
Private Sub Workbook_Activate()
With ThisWorkbook.Worksheets("Feuil1")
 .Range("G:G").Formula = "=SI(E2=0;"""";DATE(ANNEE(E2);MOIS(E2)+1;1))"
 End With
End Sub

Quelle est mon erreur?

Merci

[Pierre Fauconnier]

Salut.

Si tu veux passer la formule en français, tu dois utiliser FormulaLocal. Tant que tu restes en version français d'Excel, tu ne rencontreras pas de soucis. Mais si ta macro doit tourner sur un Excel d'une version linguistique différente, tu rencontreras des soucis. Dans ce cas, il serait plus intéressant de passer la formule en anglais.

Tu peux récupérer la formule en anglais en la saisissant dans une cellule puis, côté VBA, en la récupérant dans la fenêtre d'exécution (CTRL+G) avec ? activecell.formula

[MarcelG]

Bonjour,

La traduction depuis le tableur Excel du point virgule en langage VBA est la virgule.

D'autre part, tu affectes la formule à 1048576 cellules (2^...).
Mieux vaut définir précisément la dernière ligne à informer et affecter la formule à la plage correspondante.

De plus,
1 - pour des raisons de clarté donc de rigueur, mieux vaut déclarer ta formule constante en début de procédure.
2 - tu peux coller les valeurs

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
Option Explicit
 
Public Sub laformule()
 
Const myformula As String = "=E2*5"
 
Dim DERLIGN As Long
 
With ThisWorkbook.Worksheets("Feuil1")
 
        DERLIGN = .Cells(.Rows.Count, 5).End(xlUp).Row
 
        With .Range("G2:G" & DERLIGN)
                .Formula = myformula
                .Value = .Value
        End With
 
End With
 
End Sub

Salut Pierre,

(nos post se sont croisés)

En effet.
Pour ma part, je préfère Formula à Formulalocal. Cette propriété est plus générale et constitue donc une marque de prudence.

[La_Taupe]

Merci à vous deux pour la clarté de vos réponses.
Alors il y a un truc qui me paraît assez étrange car ça fonctionne mais ça fonctionne même au-delà de ma demande (ce qui m'arrange totalement en même temps).
J'ai donc renseignée une date en E14. Il me calcule très justement ma date en cellule G14. Mais du coup, il me calcule aussi ma date de fin en cellule H14.
Est-ce normal que par effet de rebond, il me calcule la date de fin dans la colonne adjacente car la formule est renseignée en H2?

[MarcelG]

Salut,

Pourrais-tu retourner
1- une capture d'écran de la feuille de travail
2 - ton code intégral

[La_Taupe]

Pour ce qui est du code le voici:

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
 
Public Sub laformule()
 
Const myformula As String = "=SI(E2=0;"""";DATE(ANNEE(E2);MOIS(E2)+1;1))"
 
Dim DERLIGN As Long
 
With ThisWorkbook.Worksheets("Feuil1")
 
        DERLIGN = .Cells(.Rows.Count, 5).End(xlUp).Row
 
        With .Range("G2:G" & DERLIGN)
                .Formula = myformula
                .Value = .Value
        End With
 
End With
 
End Sub

Voici la copie écran:


Alors à savoir qu'on trouve actuellement la formule sur la plage G2:G11 mais pas au delà. Pareil pour la formule de la colonne fin abo. A compter de G12, le code VBA semble s'appliquer avec la date de fin qui s'affiche également en H12.
Là, où je dois rater quelque chose c'est quand je supprime les lignes2 à 13, le code ne semble plus fonctionner... je me suis emballé un peu vite en fait.

EDIT: la colonne F est masquée sur la copie écran