extraire année ou mois Résolu/Fermé

Question

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

michel_m · Answer

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

f894009 · Answer

Bonjour Michel_m,

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

viret1290 · Answer

Bonjour,
Merci beaucoup ça fonctionne.

Merci

Extraire année ou mois

3 réponses

Discussions similaires