Copie formule

[badoum66]

Bonsoir,

Je veux copier une formule en macro qui se trouve dans la cellule B3 vers les cellules B4,B5 etc.
La formule doit s'arrêter lorsqu'elle a trouvé la dernière date de la colonne A.
Le fichier joint est un exemple la formule ne s'arrêtera pas obligatoirement en B12.
Pourquoi une macro ?? parceque je veux incrémmenter ce bout de programme dans une autre macro.

Merci d'avance pour vos réponses

 

[Cousinhub]

Re : Copie formule

Bonjour,
peut-être un code comme cela :

Sub Macro1()
    [B3].FormulaR1C1 = "=IF(R[-1]C[-1]<TODAY(),""Echue"",""Non échue"")"
    [B3].AutoFill Destination:=Range("B3:B" & [A65000].End(xlUp).Row)
End Sub