Problème de formattage de date

[juju05]

J'ai créé une macro. qui renseigne un champ depuis un autre champ de la feuille par vba excel.

Via l'enregistreur de macro., j'ai récupérer cela :

 ActiveCell.FormulaR1C1 = "=WEEKNUM(RC[-3])"

Cela fonctionne très bien sur mon poste.

Sur un autre pc équipé d'un excel 2003, je dois remplacer weeknum par no.semaine.

Que dois-je faire sur mon poste pour pouvoir utiliser weeknum ?

Merci d'avance.

Julien.

 

[Bebere]

Re : Problème de formattage de date

bonjour juju
bienvenue
ActiveCell.FormulaR1C1Local = "=WEEKNUM(RC[-3])"

 

[Modeste geedee]

Re : Problème de formattage de date

bonsour®

bonjour juju
bienvenue
ActiveCell.FormulaR1C1Local = "=WEEKNUM(RC[-3])"

😎


es_tu sûr ???
l'option Local vaut pour des postes non US(langage natif VBA)

Cette propriété renvoie ou définit la formule de l'objet, en utilisant les
notations de style R1C1 dans la langue de l'utilisateur.

c-a-d que sur un poste US
FormulaR1C1 et FormulaR1C1Local sont équivalent

sur un poste FR l'instruction devrait etre :
ActiveCell.FormulaR1C1Local = "=NO.SEMAINE(LC(-3))" ' langue et syntaxe locale FR
ou bien
ActiveCell.FormulaR1C1= "=WEEKNUM(RC[-3])" ' langue et syntaxe US

 

[Bebere]

Re : Problème de formattage de date

bonjour Modeste
erreur sur toute la ligne

 

[juju05]

Re : Problème de formattage de date

Je viens de mettre cette expression mais cela ne fonctionne plus sur mon poste:

Worksheets("DONNEES").Range("O" & lig).FormulaR1C1Local = "=TEXT(RC[-1],""aaaa"")&""-""&TEXT(WEEKNUM(RC[-1]),""00"")"

 

[Modeste geedee]

Re : Problème de formattage de date

Bonsour®
ces 4 instructions sont équivalentes

Worksheets("DONNEES").Range("B1").Formula="=TEXT(A1,""aaaa"")&""-""&TEXT(WEEKNUM(A1),""00"")"

Worksheets("DONNEES").Range("B1").FormulaLocal = "=TEXTE(A1;""aaaa"")&""-""&TEXTE(NO.SEMAINE(A1);""00"")"

Worksheets("DONNEES").Range("O" & lig).FormulaR1C1 = "=TEXT(RC[-1],""aaaa"")&""-""&TEXT(WEEKNUM(RC[-1]),""00"")"

Worksheets("DONNEES").Range("O" & lig).FormulaR1C1Local = "=TEXTE(LC(-1);""aaaa"")&""-""&TEXTE(NO.SEMAINE(LC(-1));""00"")"

en Local (FR): les séparateurs d'arguments "," deviennent ";"
en R1C1 : RC devient LC, les "[ ]" deviennent "( )"

ce qui est entre double double quote ""xxxx ""
est du texte et reste dépendant du langage local

 

[Bebere]

Re : Problème de formattage de date

bonjour juju,modeste
modeste tu es doué pour donner des leçons🙂

 

[Modeste geedee]

Re : Problème de formattage de date

Bonsour®

modeste
modeste tu es doué pour donner des leçons🙂

un petite fonction à glisser dans votre classeur Perso

Function LireFormule(target As Range, Notype As Integer)
' Usage =LireFormule(A1;3)
' target une reference cellule , une seule cellule !!
' Notype est un entier
   If target.Count = 1 Then 
      Select Case Notype
               Case 1: Lireformule = "'" & target.Formula  'US
               Case 2: Lireformule = "'" & target.FormulaLocal 
               Case 3: Lireformule = "'" & target.FormulaR1C1 'US
               Case 4: Lireformule = "'" & target.FormulaR1C1Local
               Case Else: Lireformule = "'" & target.Formula
          End Select
   Else
    Lireformule = "selectionner une seule cellule"
   End If
End Function