Copie formule

badoum66 · 27 Avril 2008

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 · 27 Avril 2008

Re : Copie formule

Bonjour,
peut-être un code comme cela :

Code:

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

Copie formule

badoum66

XLDnaute Nouveau

Pièces jointes

Cousinhub

XLDnaute Barbatruc

Discussions similaires