Problème au niveau d'une enregistrement macro

Bonjour à tous,

j'ai besoin de mettre en place une formule de calcul qui ne doit s'afficher que si la colonne N n'est pas vide. J'ai donc fait un enregistrement de macro avec la mention si. Le problème est que j'ai un message d'erreur à cause de la ligne surligné. (ligne 2)

Quelqu'un pourrait-il m'éclairer sur la raison et la manière de résoudre le problème ? Merci par avance.

ActiveCell.FormulaR1C1 = "=IF(RC[-4]="""","""",(RC[-4]*RC[-2])/1000)"

Selection.AutoFill Destination:=Range("R2:R2739"), Type:=xlFillDefault

Range("R2:R2739").Select

ActiveWindow.ScrollRow = 2700

ActiveWindow.ScrollRow = 2689

ActiveWindow.ScrollRow = 2678

ActiveWindow.ScrollRow = 2385

ActiveWindow.ScrollRow = 2132

ActiveWindow.ScrollRow = 1831

ActiveWindow.ScrollRow = 500

ActiveWindow.ScrollRow = 361

ActiveWindow.ScrollRow = 71

ActiveWindow.ScrollRow = 42

ActiveWindow.ScrollRow = 31

ActiveWindow.ScrollRow = 27

ActiveWindow.ScrollRow = 24

ActiveWindow.ScrollRow = 20

ActiveWindow.ScrollRow = 16

ActiveWindow.ScrollRow = 13

ActiveWindow.ScrollRow = 9

ActiveWindow.ScrollRow = 2

End Sub

Bonjour,

Peux-tu joindre le fichier?

Tu peux réduire ta macro:

ActiveCell.FormulaR1C1 = "=IF(RC[-4]="""","""",(RC[-4]*RC[-2])/1000)"
Selection.AutoFill Destination:=Range("R2:R2739"), Type:=xlFillDefault

bonjour

au plus simple

Sub Test()
    Range("R2:R2739").FormulaR1C1 = "=IF(RC[-4]="""","""",(RC[-4]*RC[-2])/1000)"
End Sub

A+

Maurice

Bonjour, merci de m'avoir lu.

Le problème persiste pour la première et pour la deuxième réponse, il ne se passe rien.

Il faudrait que tu envois le fichier pour mieux analyser le problème.

Bonjour toutes et tous

@Prety

pourtant cela fonctionne testé sur la version d'Excel 2007 ci-joint code d'Archer et Heliosx mercis

*Feuil1 avec un bouton faisant appel à la macro

*Feuil2 avec Worksheet selection_change()

crdlt,

André