Discussion :

[Mirak87]

Quelqu'un pourrais m'expliquer comment je pourrais avoir le mois en lettre lorsque j'applique cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range("X2:X" & LastRowG).FormulaR1C1 = "=MONTH(RC[-10])"

ceci me donne pour le 01-Jul-2011 08:37 : 7
et moi je voudrais July

Merci

[jfontaine]

Bonjour,

Une autre solution à adapter à tes plages de données

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim i As Long
 
For i = 1 To Range("A:A").End(xlDown).Row
    Range("B" & i).Value = MonthName(Month(Range("A" & i).Text))
Next i

[patricktoulon]

bonjour

si ton application est en francais tu auras "Juillet"

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
dim madate as variant
 
madate = "01/07/2001" 'premier Juillet 2001
 
Range("X2:X" & LastRowG).value = "=MonthName(Format(madate, "mm"))

au plaisir

[Mirak87]

Merci jerome mais comme je ne my connai pas trés bien pour aplliquer ta formule je dois changer le i ou pas?

[jfontaine]

Je crois que dans ton cas la procedure donnera cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Sub NomMois
Dim i As Long
 
For i = 2 To Range("N:N").End(xlDown).Row
    Range("X" & i).Value = MonthName(Month(Range("N" & i).Text))
Next i
 
End Sub

le i correspondant au numéro de ligne

[mercatog]

Ou bien en utilisant la fonction TEXTE d'excel
En X2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=TEXTE(N2;"mmmm")

Et en copie vers le bas

En vba, on peut directement faire:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Dim LastRowG As Long
 
Application.ScreenUpdating = False
With Worksheets("Feuil1")              'A adapter
    LastRowG = .Cells(.Rows.Count, "N").End(xlUp).Row
    With .Range("X2:X" & LastRowG)
        .Formula = "=TEXT(N2,""mmmm"")"
        .Value = .Value
    End With
End With

[Mirak87]

Ok merci beaucoup les gars!

[patricktoulon]

sinon tu a ca

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
 
'exemple
Range("a1").Value = Format(Now, "mmmm")
 
' ca t'incrit "Aout" dans la cellule a1