date sur vba

[david]

bonjour
je desire recuperer par le biais d'une macro en vba le mois dans une cellule
du type 'brouillard definitif du 26 avril 2005'
je voudrais avoir seulement le mois
pour le mettre dans un autre tableau

merci d'avance

david 🙂

 

[dg62]

Bonjour David, Le forum


Sub Exdate()
Dim cell As Range
Tmois = Array('janvier', 'février', 'mars', 'avril', 'mai', 'juin', 'juillet', 'aout', 'septembre', 'octobre', 'novembre', 'decembre')

For Each cell In Selection

For i = 0 To 11
pos = InStr(1, cell, Tmois(i), 1)
If pos > 0 Then
cell.Offset(0, 1).Value = Tmois(i)
End If
pos = 0
Next i
Next

End Sub


il faut sélectionner la colonne contenant les intitulés et le mos est extrait dans la cellule adjacente

 

[david]

merci de ta reponse mais j'ai trouve pendant ce temps :

Sheets('Feuil1').Select
Range('A2').Select
chaine = ActiveCell.Value
pos = InStr(1, chaine, 'date du', 1)
datebrouillard = Mid(chaine, pos)
pos = 0
pos = InStr(7, Date, 1)

Sheets('Feuil2').Select
Range('A2').Select
ActiveCell.Value = Date
Selection.NumberFormat = 'mmmm'

🙂