extraire le mois d'une date en vba avec Application.WorksheetFunction

[pascal21]

bonjour le forum
j'essaye d'extraire le mois d'une date située en colonne A en vba
j'ai essayé avec formulelocal et avec Application.WorksheetFunction
mais je n'arrive à rien

 plage5.Value = Application.WorksheetFunction.Month(Range("a" & Y))

voila le bout de code qui pose problème
Y est la variable désignant la dernière ligne sélectionnée
en gros actuellement dans la colonne concernée par la plage5 (colonne AE)
j'ai la formule suivante
exemple en ligne 3

=mois("A3")

que j'ai tiré vers le bas
et donc j'aimerais supprimer ces formules pour les remplacer par ce code
merci de votre aide

 

[job75]

Bonjour Pascal, le forum,

Sub Mois()
Range("AE3:AE" & Rows.Count) = "" 'RAZ
With Range("AE3:AE" & Range("A" & Rows.Count).End(xlUp).Row)
  If .Row < 3 Then Exit Sub
  .Formula = "=MONTH(A3)"
  .Value = .Value
End With
End Sub

A+

 

[DoubleZero]

Bonjour, pascal21, le Forum,

Comme ceci ?

Option Explicit
Sub Mois()
    Dim c As Range
    Columns(2) = ""
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
        If IsDate(c) Then c(1, 2) = Month(c)
    Next
End Sub

A bientôt

P. S. : Bonjour, cher jb75

 

[pascal21]

bonjour à vous deux et merci pour votre aide
la solution de JOB 75 fonctionne à merveille j'y comprends rien mais elle fonctionne lol
du coup j'ai regardé la proposition de doublezero mais pas testée

 

[DoubleZero]

Re-bonjour,

N'ayant pas prêté attention à ceci :

... colonne concernée par la plage5 (colonne AE)...

Autre version :

Option Explicit
Sub Mois_en_colonne_ae()
    Dim c As Range
    Columns(2) = ""
    For Each c In Columns(1).SpecialCells(xlCellTypeConstants)
        If IsDate(c) Then c(1, 31) = Month(c)
    Next
End Sub

A bientôt