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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas