Formule intégrée dans code VBA

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:

---

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

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

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:

---

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.

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?

Salut,

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

Pour ce qui est du code le voici:

Code:

---

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:
Pièce jointe 523801

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