Discussion :

[babou466]

bonjour à tous, je n'arrive pas à obtenir par exemple "mai-08" à partir d'une valeur de cellule:"01/05/08" quelqu'un connaîtrait il une façon de faire? j'ai essayé avec:

Code :

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

ActiveCell.FormulaR1C1 = "=MONTH(R[9]C)"

mais sans succés...merci à vous et bonne journée, cordialement

pardon, voici plutôt mon code:

Code :

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

1
2
        Cells(9, ColonneDonnee2).Select
        ActiveCell.FormulaR1C1 = "=MONTH(R[9]C)" & "-" & "=YEAR(R[9]C)"

qui ne fonctionne pas...

[AnneCa]

Que penses-tu de cette solution?

Code :

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

1
2
3
4
5
6
7
Sub Macro1()
Dim mois As String
Dim annee As String
   mois = Month(Range("A9"))
   annee = Year(Range("A9"))
   ActiveCell.Value = mois & "-" & annee
End Sub

[erfindel]

Je rajoute juste un tit truc en plus

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
Dim mois As String
Dim annee As String
   mois = Month(Range("A9"))
Select case mois
Case "1"
mois = "JANVIER"
case "2"
mois = "FEVRIER"
case "3"
mois = "MARS"
....
End select
 
 
   annee = Year(Range("A9"))
   ActiveCell.Value = mois & "-" & annee
End Sub

[ucfoutu]

Bonjour,

regarde ce que fait :

Code :

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

MsgBox Format("01/05/08", "mmm-YY")

ou (à tout hasard car par manquez de chance mai est composé de 3 caractères et tu pourrais vouloir le mois en entier) :

Code :

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

MsgBox Format("01/12/08", "mmmm-YY")

[babou466]

merci à tous pour vos réponses