La fonction SI en boucle

[jihane]

Bonjour à tous,

Ce petit bout de programme marche bien, mais je l'ai fait grace à l'enregistreur de macros. Je veux mettre cette formule à l'aide d'une boucle qui met ma formule de la ligne 4 jusqu'à la dernière ligne de mon tableau, la ligne 253

Macro1 Macro

Range("B4").Select
ActiveCell.FormulaR1C1 = "=IF(INT(RC1/4)=RC1/4,1,0)"
Selection.AutoFill Destination:=Range("B4:B253")
Range("B4:B253").Select
End Sub

 

[chris]

Re : La fonction SI en boucle

Bonjour

Pas besoin de boucle une seule ligne dans la procédure suffit

Range("B4:B253").FormulaR1C1 = "=IF(INT(RC1/4)=RC1/4,1,0)"

ou

Range("B4:B" & Cells(Cells.Rows.Count, 1).End(xlUp).Row).FormulaR1C1 = "=IF(INT(RC1/4)=RC1/4,1,0)"

pour le faire sur la base de dernière cellule rempli en colonne A.

Cependant il peut être utile de préciser sur quelle feuille agit le code

 

[jihane]

Re : La fonction SI en boucle

Merci Chris ça marche bien