Extraire année ou mois
Résolu
viret1290
Messages postés
141
Date d'inscription
Statut
Membre
Dernière intervention
-
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
viret1290 Messages postés 141 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Vba année d'une date
- Chanteur blond annee 80 - Forum Musique / Radio / Clip
- Incompatibilité de type vba ✓ - Forum Programmation
- 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
- Whatsapp date incorrecte ✓ - Forum Mobile
- Airpods 3 date de sortie - Guide
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