Bonjour l' idée est de pouvoir formater plusieurs cellules en une seul donnée dans une autre cellule.
Un exemple excel pour comprendre mieux est fournie
Un macro VBA EXCEL peut le faire sans doute ?
Merci d'avance aux intéresses !
Cordialement
LUYGYS
Traduis la formule en anglais puisque apparemment celle la langue de la version Excel que tu utilises.
Ce que je viens de faire (avecc l'aide de l'enregistreur de macros) =(DAY(R[11]C9)&MONTH(R[11]C9)&RIGHT(YEAR(R12C[7]),2)&TEXT(HOUR(R[11]C10),""00"")&INT(R[11]C11))*1"
Tu n'as plus qu'à modifier la formule de JHA en mettant le nom anglais des fonctions.
NB: Attention aux références des cellules (ici elles viennent de VBA et sont donc de type R1C1), donc ne pas faire un simple copier/coller de la formule "anglaise"
sousou
OK?
Oui mais OK à quoi.
Je voulais juste indiquer pourquoi la formule de JHA ne fonctionne pas.
Je ne parlais pas de VBA.
Je ne t'ai pas froissé, j'espère?
LUYGYS
Traduis la formule en anglais puisque apparemment celle la langue de la version Excel que tu utilises.
Ce que je viens de faire (avecc l'aide de l'enregistreur de macros) =(DAY(R[11]C9)&MONTH(R[11]C9)&RIGHT(YEAR(R12C[7]),2)&TEXT(HOUR(R[11]C10),""00"")&INT(R[11]C11))*1"
Tu n'as plus qu'à modifier la formule de JHA en mettant le nom anglais des fonctions.
NB: Attention aux références des cellules (ici elles viennent de VBA et sont donc de type R1C1), donc ne pas faire un simple copier/coller de la formule "anglaise"
Bonjour.
Merci pour la traduction.
Vous avez raison il fallait écrire la formule en anglais et ça marche.
Par contre si on veut qui la formule tienne compte des minutes et des centimes on fait comment ?
Cordialement.
LUYGYS
Function concat1(c1, c2, c3)
concat1 = Format(c1, "ddmmyy") & Format(c2, "hhnn") & Replace(c3, ",", "")
End Function
Sub test()
MsgBox concat1([i12], [j12], [k12])
End Sub
Function concat1(c1, c2, c3)
concat1 = Format(c1, "ddmmyy") & Format(c2, "hhnn") & Replace(c3, ",", "")
End Function
Sub test()
MsgBox concat1([i12], [j12], [k12])
End Sub
re
Oupss!Oupss!
attention!!
j'ai peut être omis une coquille vba com excel omettant les 0 la partie replace risque de gaffer a l'entier
donc correction
VB:
Function concat1(c1, c2, c3)
concat1 = Format(c1, "ddmmyy") & Format(c2, "hhnn") & Left(Replace(c3, ",", "") & "00", 4)
End Function
Sub test()
MsgBox concat1([i12], [j12], [k12])
End Sub