Discussion :

[toufik135]

Bonjour à tous,

Voici mon problème :

Je veux appliquer une formule sur toute une colonne entière,
j'ai essayé plusieurs choses mais j'obtiens une erreur à la compilation :

1004 Erreur définie par l'application ou l'objet

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With Sheets("Feuil1")
        .Range("I2:I" & .Cells(.Rows.Count, "A").End(xlUp).Row).Formula = "=SI(D2<(AUJOURDHUI()-60);F2;0)"
    End With

[Marc-L]

Bonjour,

Formula est nativement en anglais en VBA ‼

Choisir FormulaLocal …

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test()
With Sheets("Feuil1")
        .Range("I2:I" & .Cells(.Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=if(r2c4<(TODAY()-60),r2c6,0)"
    End With
End Sub

[toufik135]

Merci à vous.

[Invité]

pour info,With permet de ne pas taper Sheets("Feuil1"). à chaque instruction. dans ton cas il ne réduit pas le nombre de caractères à écrire donc pas besoin.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Sub test()
Sheets("Feuil1").Range("I2:I" & .Cells(.Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=if(r2c4<(TODAY()-60),r2c6,0)"
End Sub