Transformer le mois en cours par une lettre code

O

Orodreth

XLDnaute Impliqué

• 5 Avril 2013

• #2

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

 

Dernière édition: 5 Avril 2013

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Avril 2013

• #3

Re : Transformer le mois en cours par une lettre code

Bonjour,

Code:

Code = Chr(Month(laDate) + 64)

remplacer 64 par 96 pour les minuscules
A+

 

Vote positif 0 Vote négatif

O

Orodreth

XLDnaute Impliqué

• 5 Avril 2013

• #4

Re : Transformer le mois en cours par une lettre code

........

Je pense jamais à utiliser la table ASCII.

Bien vu Hasco 🙂

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 5 Avril 2013

• #5

Re : Transformer le mois en cours par une lettre code

Bonjour jmh1, Orodreth
Une proposition :

VB:

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

Cordialement

EDIT Bonjour Hasco 🙂

 

Vote positif 0 Vote négatif

J

jmh1

XLDnaute Occasionnel

• 5 Avril 2013

• #6

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Avril 2013

• #7

Re : Transformer le mois en cours par une lettre code

Re,

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

Code:

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+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Avril 2013

• #8

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

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 5 Avril 2013

• #9

Re : Transformer le mois en cours par une lettre code

Re,

Code:

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

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

Code:

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

A+

 

Vote positif 0 Vote négatif

Modeste geedee

XLDnaute Barbatruc

• 5 Avril 2013

• #10

Re : Transformer le mois en cours par une lettre code

Bonsour®

Hasco à dit:

Re,

Code:

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

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

Code:

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

A+

Cliquez pour agrandir...

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 ...

 

Vote positif 0 Vote négatif