Problème Macro réalisant "F9"

Bonjour,

Je viens d'enregistrer une macro qui pour une ligne, remplace une formule par son résultat, c'est une action que je réalise en sélectionnant la formule et en appuyant sur F9 (elle copie/colle ensuite une ligne mais cela ne pose pas de problème).

Mon problème c'est quand je crée la macro, le résultat de ma formule est " " alors la macro remplace la formule par " " et non pas par son résultat lorsque celui-ci existe.

Voici le code que excel à enregistrer:

Sub Macro1()

'

' Macro1 Macro

'

'

ActiveCell.Offset(0, -4).Range("A1").Select

ActiveCell.FormulaR1C1 = ""

ActiveCell.Offset(0, 2).Range("A1").Select

ActiveCell.FormulaR1C1 = ""

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

Selection.AutoFill Destination:=ActiveCell.Rows("1:2").EntireRow, Type:= _

xlFillDefault

ActiveCell.Rows("1:2").EntireRow.Select

End Sub

Quelqu'un aurait-il une idée de correction à apporter pour que cela fonctionne?

Merci d'avance.

J'ai trouvé la solution que je donne au cas ou quelqu'un revienne un jour sur ce sujet.

ActiveCell.Offset(0, -4).Range("A1").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

ActiveCell.Offset(0, 2).Range("A1").Select

ActiveCell.FormulaR1C1 = ActiveCell.Value

ActiveCell.Offset(1, 0).Rows("1:1").EntireRow.Select

Selection.AutoFill Destination:=ActiveCell.Rows("1:2").EntireRow, Type:= _

xlFillDefault

ActiveCell.Rows("1:2").EntireRow.Select

End Sub

Rechercher des sujets similaires à "probleme macro realisant"