XL 2019 Calcul VBA sur plusieurs cellule à suivre

Stephandevendee à dit:

Bonjour,

Ca fait une semaine que j'arpente les forums et je ne trouve pas la solution.
Si vous pouviez m'aider, j'en serais heureux.
J'ai créé un tableau qui me permet d'extraire des données qui viennent d'un fichier TXT.
Mon soucis est que dans la première colonne, j'ai uniquement le jour de la semaine (27) mais j'ai besoin de la date complète (27/07/2021).
J'ai réussi à le faire sur ma première ligne mais je voudrais que le calcul se fasse jusqu'à la dernière données.
En clair, je voudrais coller la formule datevalue vers la dernière ligne.
La donnée du jour est une variable (range ("B2:B...") et l'année et le mois sont rempli grâce à un messageBox.
Voici ma formule :

Dim Annee_compt As Variant
Dim Mois_compt As Variant
Dim dernligne As Long
Dim num_ligne As Integer


Annee_compt = InputBox("Quelle année du comptage ?")
Mois_compt = InputBox("Quelle mois du comptage ?")



dernligne = Range("A" & Rows.Count).End(xlUp).Row
For num_ligne = 2 To dernligne



Range("F2:F" & dernligne).Formula = DateSerial(Annee_compt, Mois_compt, Cells(num_ligne, 2))

Next

Si quelqu'un pouvait m'aider ça serait avec grand plaisir.
D'avance merci

Cliquez pour agrandir...

Sub test()
    Dim Annee_compt&
    Dim Mois_compt&
    Dim dernligne&
    Annee_compt = InputBox("Quelle année du comptage ?")
    Mois_compt = InputBox("Quelle mois du comptage ?")
    dernligne = Range("A" & Rows.Count).End(xlUp).Row
    Range("F2:F" & dernligne).Formula = "=Date(" & Annee_compt & "," & Mois_compt & ",$a2 )"
    Range("F2:F" & dernligne).Value = Range("F2:F" & dernligne).Value ' supprime la formule
End Sub