MACRO renvoie le mois d'une date

[chris6999]

Bonjour

J'ai une macro qui doit renvoyer dans la colonne Y, la valeur du mois correspondant à une date saise dans la colonne 5 (ouE).

If Target.Column = 5 Then
Range("y" & Target.Row) = Range("e" & Target.Row)

Pour l'instant la macro renvoie la date. Ce que j'aimerais c'est qu'elle me renvoie le nom du mois
'Format(Date, "mmmm")

J'ai du mal à rédiger le code
QQ pour m'aider?

Merci d'avance
Bonne soirée

 

[JCGL]

Re : MACRO renvoie le mois d'une date

Bonjour à tous,

Peux-tu essayer dans le code de la feuille :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cel As Range
    For Each Cel In Target
        If Cel.Column = 5 Then Range("Y" & Cel.Row) = Format(Range("E" & Cel.Row), "mmmm")
    Next
End Sub

A + à tous

 

[Si...]

Re : MACRO renvoie le mois d'une date

salut tous

ou encore

Private Sub bWorksheet_Change(ByVal Target As Range)
  Dim C As Range
  For Each C In Target
    If IsDate(C) And C.Column = 5 Then C.Offset(, 20) = MonthName(Month(C))
  Next
End Sub

 

[JCGL]

Re : MACRO renvoie le mois d'une date

Bonjour à tous,

Si... Tu enlèves le b devant Worksheet, cela fonctionne plus facilement :

Option Explicit


Private Sub Worksheet_Change(ByVal Target As Range)
  Dim C As Range
  For Each C In Target
    If IsDate(C) And C.Column = 5 Then C.Offset(, 20) = MonthName(Month(C))
  Next
End Sub

A+ à tous