Extraire année ou mois
Résolu
viret1290
Messages postés
146
Statut
Membre
-
viret1290 Messages postés 146 Statut Membre -
viret1290 Messages postés 146 Statut Membre -
Bonjour,
j'aimerai par boucle For extraire l'année (2015) d'une date complète (21.12.2015) et la mette dans une cellule et dans une autre cellule extraire le mois (12) d'une date complète (21.12.2015)
merci d'avance
j'aimerai par boucle For extraire l'année (2015) d'une date complète (21.12.2015) et la mette dans une cellule et dans une autre cellule extraire le mois (12) d'une date complète (21.12.2015)
merci d'avance
A voir également:
- Vba année d'une date
- Whatsapp date incorrecte ✓ - Forum Mobile
- Chanteur blond annee 80 - Forum Musique / Radio / Clip
- Incompatibilité de type vba ✓ - Forum Programmation
- Jm date avis - Forum Consommation & Internet
- Cette photo n’a pas été prise cette année. trouvez la date, l'heure et avec quel modèle d'appareil photo elle a été prise. - Forum Samsung
3 réponses
Bonjour
date en colonne A? plage A1:A10 ?
For Lig=1 to 10
Cells(lig,"B")=year(cells(lig,"A")
cells(lig, "C")=month(cells(lig,"A")
Next
Michel
date en colonne A? plage A1:A10 ?
For Lig=1 to 10
Cells(lig,"B")=year(cells(lig,"A")
cells(lig, "C")=month(cells(lig,"A")
Next
Michel
Bonjour Michel_m,
viret1290:
Si cellule(s) pas au format date (vu qu'il y a des points !!):
viret1290:
Si cellule(s) pas au format date (vu qu'il y a des points !!):
Sub Extraction()
Dim derlig As Integer, Plage As Range, cel As Range, Tdate
With Worksheets("feuil1")
derlig = .Range("A" & Rows.Count).End(xlUp).Row 'derniere cellule non vide colonne A
Set Plage = .Range("A2:A" & derlig) 'mise en memoire plage de cellules colonne A
For Each cel In Plage 'boucle de rcherche
If cel <> Empty And InStr(cel, ".") Then 'pas vide et "."
Tdate = Split(cel, ".") 'mise en tableau
.Range("B" & cel.Row) = Tdate(2) 'Annee
.Range("C" & cel.Row) = Tdate(1) 'Mois
End If
Next cel
End With
End Sub