Convertire formule en vba

[Ilino]

Bonjour Forum
je cherche a convertir ce code en VBA

=CONCATENER("Activitées de la semaine N° ";ENT((K1-SOMME(MOD(DATE(ANNEE(K1-MOD(K1-2;7)+3);1;2);{1E+99;7})*{1;-1})+5)/7);" de l'année ";ANNEE(K1))

nota: dans la cellule K1: la formule AUJOURDHUI()
MERCI PAR AVANCE

 

[vgendron]

Re : Convertire formule en vba

salut,
un coup d'enregistreur de macro. et voila
sub test()
formule = "=CONCATENER(""Activitées de la semaine N° "",ENT((K1-SOMME(MOD(DATE(ANNEE(K1-MOD(K1-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",ANNEE(K1))"

Cells(5, 1).Formula = formule
end sub

il faut noter que les
; deviennent des ,
et que les
" deviennent des ""

 

[Lone-wolf]

Re : Convertire formule en vba

Bonjour vgendron, Ilino,

@vgendron: désolé la macro affiche #Nom?.

@Ilino: si la formule est pour le numéro de la semaine, voici plus court.

Sub test()
With Cells(1, 11): .Value = Date: .Font.ColorIndex = 2: End With  'si tu ne veux pas voir la date du jour
formule = "=CONCATENER(""Hebdomadaire N° "" &"" ""& ENT(MOD(ENT((K1-2)/7)+0.6;52+5/28))+1) &"" Année: ""& ANNEE(K1)"
Cells(5, 1).FormulaLocal = formule
End Sub

A+ 😎

 

[Ilino]

Re : Convertire formule en vba

Bonjour
Merci pour la reponse mais si tu permet je joind un fichier ..a mon niveau ça fonctionne pas .
gracie

 

[vgendron]

Re : Convertire formule en vba

bonjour Lone-Wolf
effectivement. j'avais pas fait gaffe. une fois la macro terminée, il faut revalider la formule en cliquant dans la cellule..
j'ai du le faire sans y preter attention..
par contre. le pourquoi..?

 

[Ilino]

Re : Convertire formule en vba

Bonjour vgendron, Ilino,

@vgendron: désolé la macro affiche #Nom?.

@Ilino: si la formule est pour le numéro de la semaine, voici plus court.

Sub test()
With Cells(1, 11): .Value = Date: .Font.ColorIndex = 2: End With  'si tu ne veux pas voir la date du jour
formule = "=CONCATENER(""Hebdomadaire N° "" &"" ""& ENT(MOD(ENT((K1-2)/7)+0.6;52+5/28))+1) &"" Année: ""& ANNEE(K1)"
Cells(5, 1).FormulaLocal = formule
End Sub

A+ 😎

Re Bonjour Forum
Merci pour la réponse mais...
@Lone-wolf : désolé la macro affiche un message d'erreur?.

 

[MJ13]

Re : Convertire formule en vba

Bonjour à tous

Henry m'a proposé ceci 🙂:

ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(""Activitées de la semaine N° "",INT((RC[10]-SUM(MOD(DATE(YEAR(RC[10]-MOD(RC[10]-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(RC[10]))"

 

[Lone-wolf]

Re : Convertire formule en vba

Re Ilino, bonjour Michel

bizarre! J'ai ouvert ton fichier et je n'ai pas derreur. 😕

Il faut inserer la macro dans un module standard (enfin... peut-être).

A+ 😎

 

[Ilino]

Re : Convertire formule en vba

Re Ilino, bonjour Michel

bizarre! J'ai ouvert ton fichier et je n'ai pas derreur. 😕


A+ 😎

Re :
Erreur d'execution 1004
Erreur definie par par l'application ou par l'objet

 

[Lone-wolf]

Re : Convertire formule en vba

Re Ilino,

quelle version d'Excel utilise-tu?

Edit: avec la version 2010, si je met Formula, j'obtiens aussi la même erreur. Essai de mettre Formula au lieu de FormulaLocal, qui sait???.


A+ 😎

 

[Ilino]

Re : Convertire formule en vba

Re Ilino,

quelle version d'Excel utilise-tu?


A+ 😎

Re Salut
je suis sorry mais ma version est de 2007

 

[vgendron]

Re : Convertire formule en vba

@Ilino..
je suis aussi en 2007 et la macro de Lone-Wolf fonctionne très bien chez moi..

 

[Lone-wolf]

Re : Convertire formule en vba

RE,

c'est quand même bizarre?? 😕



A+ 😎

 

[Ilino]

Re : Convertire formule en vba

Re Ilino,

quelle version d'Excel utilise-tu?

Edit: avec la version 2010, si je met Formula, j'obtiens aussi la même erreur. Essai de mettre Formula au lieu de FormulaLocal, qui sait???.


A+ 😎

RE Bonjour
@ Lone Wolf : je l'ai modifié ...mais j'ai la meme erreur "1004"
@ Vgendron : bizarre! ... la je m'arrete ?????????

 

[Ilino]

Re : Convertire formule en vba

Bonjour à tous

Henry m'a proposé ceci 🙂:

ActiveCell.FormulaR1C1 = _
        "=CONCATENATE(""Activitées de la semaine N° "",INT((RC[10]-SUM(MOD(DATE(YEAR(RC[10]-MOD(RC[10]-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(RC[10]))"

RE MJ13
sorry pour le retard...
j'ai the same pblm