Ecriture en boucle JJ/MM/AAAA HH:MM

Bonjour,

Je souhaiterais rajouter après la récupération et nettoyage de mes données dans ma feuille 'Récupération Données' en A une formule =A(ligne)+((1/24)*B(ligne)) avec un format de cellule en jj/mm/aaaa hh:mm.

Qu'elle est le code VBA pour coller une formule sur toute une ligne ? (Ou si vous avez une autre idée)

Merci par avance,

Cordialement,

Personne à des idées ?

Bonjour,

Il faut de la patience. Essaye ce code suivant :

Sub test()
    Dim derLig As Long
    derLig = Sheets("Récupération Données").Range("A" & Rows.Count).End(xlUp).Row
    Sheets("Récupération Données").Range(Cells(2, 4), Cells(derLig, 4)).FormulaR1C1 = "=RC[-3]+RC[-2]/24"
End Sub

Bonjour,

Merci pour le code j'ai rajoute

Columns("D:D").Select
Selection.NumberFormat = "m/d/yyyy h:mm"

Afin d'avoir la bonne date. et non des chiffres.

Le soucis étant que le code écrit la date en colonne D alors que je souhaites en A :/

Re,

Essaye comme ça ou adapte-le à ton besoin :

Sub test()
    Dim derLig As Long, i As Long
    derLig = Sheets("Récupération Données").Range("A" & Rows.Count).End(xlUp).Row
    For i = 2 To derLig
        Sheets("Récupération Données").Range("A" & i) = Range("A" & i) + Range("B" & i) / 24
    Next i
        Sheets("Récupération Données").Columns("A:A").NumberFormat = "dd/mm/yyyy hh:mm"
End Sub

J'ai encore fait une petite modif mais cela est bon je te remercie Raja