Abréviations des mois

Bonjour à tous,

Avec ce code, j'aimerais obtenir les abreviations des mois en trois lettres :

Sub mois()
    For Each cel In Range("A1:A12")
        MsgBox "Cel : " & cel
        Range("B" & cel.Row) = Format(cel, "mmm")
    Next
End Sub

Mais pas encore arriver au résultat voulu !

Merci.

Bonjour

Ton code prends les nombre pour des jours et de 1 à 12, c'est janvier

remplace par:

Sub Mois()
 For Each Cel In Range("A1:A12")
        MsgBox "Cel : " & Cel
        Range("B" & Cel.Value) = Application.WorksheetFunction.Proper(Format("01/" & Cel, "mmm"))
    Next
End Sub

Cordialement

Bonsoir Amadéus,

Merci pour le code.

Question :

Ne peut-on pas avoir ces abréviations de mois :

Jan

Fév

Mars

Avr

Mai

Jui

Juil

Août

Sep

Oct

Nov

Déc

Merci.

Bonjour

C'est Excel qui décide

Cordialement

C'est Excel qui décide

Ok et merci pour le fichier.

Bonjour

Tu avais demandé en 3 lettres

Voir fichier

Cordialement

Bonsoir Amdéus,

Ca pose un problème lors d'une recherche pour le mois de juin ou de juillet.

Les deux abréviations sont similaires : "Jui"

Bonsoir à tous,

sinon il faut te construire ta propre liste :

Dim mois() As Variant, m As Long
mois = Array("Jan", "Fév", "Mars", "Avr", "Mai", "Jui", "Juil", "Août", "Sep", "Oct", "Nov", "Déc")
m = 3
MsgBox mois(m - 1) ' (0 à 11)

Mais à ta place je mettrai 4 car. partout, ça fait plus propre.

eric