Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Equivalent VBA de la fonction TEXTE

5 réponses
Avatar
Vpco
Bonsoir à tous,

Existe t-il l'équivalent de la fonction TEXTE en VBA ?

Merci de vos conseils.

Cordialement.

Excel...lent

5 réponses

Avatar
h2so4
bonsoir,

essaie la fonction format()

Format Function Example
This example shows various uses of the Format function to format values
using both named formats and user-defined formats. For the date separator
(/), time separator (:), and AM/ PM literal, the actual formatted output
displayed by your system depends on the locale settings on which the code is
running. When times and dates are displayed in the development environment,
the short time format and short date format of the code locale are used.
When displayed by running code, the short time format and short date format
of the system locale are used, which may differ from the code locale. For
this example, English/U.S. is assumed.

MyTime and MyDate are displayed in the development environment using current
system short time setting and short date setting.

Dim MyTime, MyDate, MyStr
MyTime = #17:04:23#
MyDate = #January 27, 1993#

' Returns current system time in the system-defined long time format.
MyStr = Format(Time, "Long Time")

' Returns current system date in the system-defined long date format.
MyStr = Format(Date, "Long Date")

MyStr = Format(MyTime, "h:m:s") ' Returns "17:4:23".
MyStr = Format(MyTime, "hh:mm:ss AMPM") ' Returns "05:04:23 PM".
MyStr = Format(MyDate, "dddd, mmm d yyyy") ' Returns "Wednesday,
' Jan 27 1993".
' If format is not supplied, a string is returned.
MyStr = Format(23) ' Returns "23".

' User-defined formats.
MyStr = Format(5459.4, "##,##0.00") ' Returns "5,459.40".
MyStr = Format(334.9, "###0.00") ' Returns "334.90".
MyStr = Format(5, "0.00%") ' Returns "500.00%".
MyStr = Format("HELLO", "<") ' Returns "hello".
MyStr = Format("This is it", ">") ' Returns "THIS IS IT".

--

h2so4
play triogical at http://www.triogical.com
"Vpco" wrote in message
news:
Bonsoir à tous,

Existe t-il l'équivalent de la fonction TEXTE en VBA ?

Merci de vos conseils.

Cordialement.

Excel...lent




Avatar
Garette
Bonsoir,

Oui.
Format(MyTime, "h:m:s")

"Vpco" a écrit dans le message de news:

Bonsoir à tous,

Existe t-il l'équivalent de la fonction TEXTE en VBA ?

Merci de vos conseils.

Cordialement.

Excel...lent




Avatar
JB
Bonsoir,

Format(expression,format)

Voir aide en ligne avec F1

JB


On 16 mar, 22:34, "Vpco" wrote:
Bonsoir à tous,

Existe t-il l'équivalent de la fonction TEXTE en VBA ?

Merci de vos conseils.

Cordialement.

Excel...lent


Avatar
Modeste
Bonsour® Vpco avec ferveur ;o))) vous nous disiez :


Existe t-il l'équivalent de la fonction TEXTE en VBA ?


selon l'usage souhaité (mise en forme ou string)

[A1] = Format(Now, "hh:mm")
[A2].Formula = "=TEXT( Now(), ""hh:mm"")"
[A3].FormulaLocal = "=TEXTE(MAINTENANT() ; ""hh:mm"")"
--
--
@+
;o)))

Avatar
MichDenis
la fonction Format()

Exemple pour une date

Dim X as String
X = format(date, "d mmm yyyy")

Il y a aussi ceci avec les mêmes arguments de la fonction "Texte()" de la feuille de calcul

x = application.Text()



"Vpco" a écrit dans le message de news:
Bonsoir à tous,

Existe t-il l'équivalent de la fonction TEXTE en VBA ?

Merci de vos conseils.

Cordialement.

Excel...lent