Convertire formule en vba

Ilino

XLDnaute Barbatruc
Bonjour Forum
je cherche a convertir ce code en VBA

Code:
=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

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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.

Code:
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+ :cool:
 
Dernière édition:

Ilino

XLDnaute Barbatruc
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
 

Fichiers joints

vgendron

XLDnaute Barbatruc
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

XLDnaute Barbatruc
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.

Code:
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+ :cool:
Re Bonjour Forum
Merci pour la réponse mais...
@Lone-wolf : désolé la macro affiche un message d'erreur?.
 

Fichiers joints

MJ13

XLDnaute Barbatruc
Re : Convertire formule en vba

Bonjour à tous

Henry m'a proposé ceci :):

Code:
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

XLDnaute Barbatruc
Re : Convertire formule en vba

Re Ilino, bonjour Michel

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

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

A+ :cool:
 
Dernière édition:

Lone-wolf

XLDnaute Barbatruc
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+ :cool:
 
Dernière édition:

vgendron

XLDnaute Barbatruc
Re : Convertire formule en vba

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

Ilino

XLDnaute Barbatruc
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+ :cool:
RE Bonjour
@ Lone Wolf : je l'ai modifié ...mais j'ai la meme erreur "1004"
@ Vgendron : bizarre! ... la je m'arrete ?????????
 

Fichiers joints

Ilino

XLDnaute Barbatruc
Re : Convertire formule en vba

Bonjour à tous

Henry m'a proposé ceci :):

Code:
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
 

pierrejean

XLDnaute Barbatruc
Re : Convertire formule en vba

Bonjour a tous

A tester:

Code:
Range("A3").FormulaLocal = "=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))"
 

MJ13

XLDnaute Barbatruc
Re : Convertire formule en vba

Re

Sinon, testé sur Xl2010, oK. Après, peut-être un problème de version :confused:.

Code:
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).FormulaR1C1 = _
        "=CONCATENATE(""Activitées de la semaine N° "",INT((R1C11-SUM(MOD(DATE(YEAR(R1C11-MOD(R1C11-2,7)+3),1,2),{1E+99;7})*{1;-1})+5)/7),"" de l'année "",YEAR(R1C11))"
End Sub
 

Ilino

XLDnaute Barbatruc
Re : Convertire formule en vba

Bonjour Pier rejean , bonjour tous le monde

Super , mnt ça fonctionne …mais si vous pemettez y a-t-il une autre possibilité de
1. masquer la formule
2. lancer cette MACRO automatique
Gracie par avance
 

Ilino

XLDnaute Barbatruc
Re : Convertire formule en vba

Re MJ 13
Merci pour la réponse c'est presque la meme chose que la prposition de pierrjean
 

Ilino

XLDnaute Barbatruc
Re : Convertire formule en vba

Re bonjour Forum
Je vous sollicite encore , est ce que mon souci est réalisable ?
Gracie


Bonjour Pier rejean , bonjour tous le monde

ça fonctionne …mais si vous pemettez y a-t-il une autre possibilité de
1. masquer la formule
2. lancer cette MACRO automatique
Gracie par avance
 

Discussions similaires


Haut Bas