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

pascal21 · 24 Avril 2017

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

Code:

 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

Code:

=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 · 24 Avril 2017

Bonjour Pascal, le forum,

Code:

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 · 24 Avril 2017

Bonjour, pascal21, le Forum,

Comme ceci ?

VB:

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 · 24 Avril 2017

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 · 24 Avril 2017

Re-bonjour,

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

pascal21 à dit:
... colonne concernée par la plage5 (colonne AE)...

Autre version :

VB:

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

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

pascal21

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

pascal21

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Discussions similaires