Transformer le mois en cours par une lettre code

[jmh1]

Bonjoiur à tous,

J'ai un tableau dans lequel je récupère la date du jour.

J'aimerai convertir le mois de cette date par une lettre (Janvier = A, Février = B, ...)

Comment puis-je procéder en VBA ?

Merci de votre aide.

 

[Orodreth]

Re : Transformer le mois en cours par une lettre code

Bonjour,

Public Function monFormatMoisAlpha (LaDate as Date)as string
Dim moisCourant as integer
moisCourant = Month(LaDate)
Dim formatAlpha as string
Select case moisCourant
case 1
formatAlpha = "A"
case 2
formatAlpha = "B"
case 3
formatAlpha = "C"
case 4
...
...
End Select

monFormatMoisAlpha = formatAlpha

end function

Cordialement,
Orodreth

 

[Guest]

Re : Transformer le mois en cours par une lettre code

Bonjour,

Code = Chr(Month(laDate) + 64)

remplacer 64 par 96 pour les minuscules
A+

 

[Orodreth]

Re : Transformer le mois en cours par une lettre code

........

Je pense jamais à utiliser la table ASCII.

Bien vu Hasco 🙂

 

[Efgé]

Re : Transformer le mois en cours par une lettre code

Bonjour jmh1, Orodreth
Une proposition :

Sub test()
Dim DateDuJour As String
DateDuJour = Split(Cells(1, CLng(Format(Date, "m"))).Address, "$")(1)
MsgBox DateDuJour
End Sub

Cordialement

EDIT Bonjour Hasco 🙂

 

[jmh1]

Re : Transformer le mois en cours par une lettre code

Bonjour à tous,

Merci pour votre aide, la solution de Hasco me convient parfaitement par sa simplicité (1 seule ligne de programme).

Cordialement

 

[Guest]

Re : Transformer le mois en cours par une lettre code

Re,

Autres possibilités plus 'lisibles' en une seule ligne:

Code = Mid("ABCDEFGHIJKL", Month(laDate), 1)
 Code = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")(Month(laDate) - 1)
    Code = Choose(Month(laDate), "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L")

A+

 

[Modeste geedee]

Re : Transformer le mois en cours par une lettre code

Bonsour®

Function JourCodeAn(target)
JourCodeAn = Day(target) & Mid("ABDCEFGHIJKL", Month(target), 1) & Year(target)
End Function

ou plus simplement
Function Codemois(target)
Codemois = Mid("ABDCEFGHIJKL", Month(target), 1)
End Function

 

[Guest]

Re : Transformer le mois en cours par une lettre code

Re,

Codemois = Mid("ABDCEFGHIJKL", Month(target), 1)

N'est-il pas égal à la première des propositions alternatives proposées précédement?

Code = Mid("ABCDEFGHIJKL", Month(laDate), 1)

A+

 

[Modeste geedee]

Re : Transformer le mois en cours par une lettre code

Bonsour®

Re,

Codemois = Mid("ABDCEFGHIJKL", Month(target), 1)

N'est-il pas égal à la première des propositions alternatives proposées précédement?

Code = Mid("ABCDEFGHIJKL", Month(laDate), 1)

A+

Oupsss...
😎 oui en effet, lecture trop rapide ou rafraichissement tardif ...
ou bien abusé par le fait qu'il y avait 3 propositions dans la même bulle

😛 la solution est finalement allée à Thouars ...