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
- 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 Sony
- Chanteur blond annee 80 - Forum Musique / Radio / Clip
- Jm date avis - Forum Consommation & Internet
- Incompatibilité de type vba ✓ - Forum Programmation
- Jm date désabonnement ✓ - Forum Consommation & Internet
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
