Format date

Bonjour le forum,

vous savez comment retranscrire cette formule

=DATE(ANNEE(F1);MOIS(F1);1)

en un code Vba. En effet je voudrais sur la colonne z avoir que le mois et l'année de la colonne F.

Le format de la colonne F est jj/mm/aaaa.

merci

Bonjour,

Est-ce-que tu veux que ta macro recopie ta formule dans la Colonne Z ...?

Si oui ... de quelle ligne à quelle ligne ...?

merci pour ton aide

je voudrais que la formule soit faite avec un code VBA

Re,

Tu peux tester

Range("Z2").FormulaR1C1 = "=DATE(YEAR(RC[-20]),MONTH(RC[-20]),1)"

En espèrant que cela t'aide ...

superr ca marche

merci

juste pour comprendre ca correspond a quoi

(RC[-20])

dernière petite question

comment je peux faire si veux jusqua la derniere ligne de F

Sub Generation()

    Dim DernLigne As Long
    Dim i As Integer

    With ActiveSheet
        DernLigne = .Cells(Rows.Count, 2).End(xlUp).Row
    End With

    For i = 1 To DernLigne
        ActiveSheet.Cells(i, 26).FormulaR1C1 = "=DATE(YEAR(RC[-20]),MONTH(RC[-20]),1)"
    Next i

End Sub

Content que cela fonctionne ...

La lettre R correspond à Row ... c'est à dire ligne ...

La lettre C correspond à Column ... c'est à dire colonne ...

et ensuite les nombres permettent d'indiquer + ou - en fonction de l'adresse de la cellule ...

Du coup ... dans ton cas ... pour faire simple ... Z -20 = F ... puisque Z = 26 et F =6 ...

J'espère que l'explication est assez claire ...

ah oui parfait merci beaucoup

juste tu saurais comment je peux faire pour que ca me prend toute la colonne

Re,

Bravo pour ta macro ... !!!

Juste une toute petite correction ...

Sub Generation()
    Dim DernLigne As Long
    Dim i As Integer
    With ActiveSheet
        ' Dernière Ligne en fonction de la Colonne F ... donc 6 '''''''''''''''''''
        DernLigne = .Cells(Rows.Count, 6).End(xlUp).Row
    End With
    For i = 1 To DernLigne
        ActiveSheet.Cells(i, 26).FormulaR1C1 = "=DATE(YEAR(RC[-20]),MONTH(RC[-20]),1)"
    Next i
End Sub

En espèrant que cela t'aide ...

ahhh ca marche trop bien

mercii beaucoup pour ton aide

aurelia22 a écrit :

ahhh ca marche trop bien

mercii beaucoup pour ton aide

De rien ...çà fait plaisir ...

Permets - moi de te féliciter ... parce que tu te débrouilles vraiment pas mal ...

Merci ... pour tes remerciements ...

ahhh ca marche trop bien

mercii beaucoup pour ton aide

Content que cela fonctionne ... comme tu le voulais ...

Félicitations ... parce que tu te débrouilles vraiment pas mal ....

Merci ... pour tes remerciements ...

J'ai une derniere petite question

voila jai 3 colonne une avec des dates en format jj/mm/aaaa et deux autres avec des valeurs qui correspond a des moi s par exemple 12,24

Sub Generation()

    Dim DernLigne As Long
    Dim i As Integer

    With ActiveSheet
        DernLigne = .Cells(Rows.Count, 6).End(xlUp).Row
    End With

    For i = 2 To DernLigne
        ActiveSheet.Cells(i, 26).FormulaR1C1 = "=DATE(YEAR(RC[-20]),MONTH(RC[-20]),1)"
        ActiveSheet.Cells(i, 27).FormulaR1C1 = "DATE(YEAR(RC[-21]),MONTH(RC[-21]+ ActiveSheet.Cells(i, 13).value + ActiveSheet.Cells(i, 18).value,1)"
        'je voudrais avoir dans la colonne 27 la somme des mois de la colonne 13 et la colonne 18 donc je pensais qu'en fesant cette formule ca marche mais non ca ne marche pas aurait tu une idée
        'par exemple
        'date colonne f    colonne 13       colonne 18
        '30/11/2013        12             et 12 et colonne 27 on a 30/11/2015
        '29/11/2013        12             et 24 et colonne 27 on a 29/11/2016

    Next i

End Sub

merciii

Re,

Pour éviter une réponse à côté de la plaque ....

Peux-tu joindre un bout de fichier ...

oui bien sur je fais ça

mercii beaucoup

ceux que je dois obtenir ces en colonne AC

Re,

Merci pour ton fichier ...

Ci-joint la petite correction demandée ...

t trop fort

merci beaucoup pour ta patience et ton aide

De rien ...

Avec les gens sympa ... comme toi ... c'est un plaisir ...!!!

aurelia22 a écrit :

Je te rends la pareille ...