date sur vba

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

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'

🙂