Sub Tirer()
Dim I As Long
With ActiveSheet
I = .Cells(Rows.Count, 3).End(xlUp).Row 'sur colonne C
.Range("A2:A" & I).Formula = "=LEFT(C2,12)"
End With
End Sub
Alors je n'ai pas réussi à trouver de solutions pour boucler, mais ma solution était pour faire l'inverse (faire un arrondi inférieur de la dernière valeur)
Range("E1").FormulaR1C1 = _
"=IF(Feuil1!R100C1<Feuil1!R3C1,MAX(ROUNDUP(Feuil1!R100C1,1),ROUNDDOWN(Feuil1!R100C1,1)),MAX(ROUNDUP(Feuil1!R100C1,1),ROUNDDOWN(Feuil1!R100C1,1)))"
Je suis toujours intéressé pour la boucle si jamais tu trouves une solution et je n'hésiterai pas à la poster si jamais je la trouve avant.
Edit de mon post : Je viens de tomber là dessus :