Erreur de syntaxe FormulaR1C1

Bonjour

dans la cellule F1 j'ai la fonction suivante '=G1-H1'

dans la cellule A1 j'ai la fonction suivante =F1-la valeur du F1

Au début j'ai crée la variable x qui remplace la valeur du F1

et après une formule R1C1 dans A1 mais le résultat est #NOM?

Sub Macro3()
Dim x As Currency
    x = Range("F1").Value
    Range("A1").FormulaR1C1 = "=RC[5]-x"
End Sub

Svp comment je remplace le X par ça valeur dans la formule en A1

merci

Bonjour,

Je pense qu'il y a une erreur dans ton énoncé...

Ou alors vraiment je ne comprends pas l'intérêt d'une telle formule

Bonjour à tous,

Il y a une erreur de "point de vue" dans ton code

    x = Range("F1").Value
    Range("A1").FormulaR1C1 = "=RC[5]-x"    

1ère ligne = x est une valeur qui sera connue de ta macro

2ème ligne = "=RC[5]-x" fait appel à une valeur de x de ta feuille, plus exactement un nom donné (x) à une cellule de ta feuille

soit tu fais

Range("A1").FormulaR1C1 = "=RC[5]-" & x

mais dans ce cas x est fixe !

soit tu fais

Range("A1").FormulaR1C1 = "=RC[5]-R1C6"

et là tu auras la valeur variable de F1

ou bien encore

    Range("F1").Select
    ActiveWorkbook.Names.Add Name:="x", RefersToR1C1:="=Feuil1!R1C6"

pour affecter le nom x à F1

et ensuite tu peux faire

Range("A1").FormulaR1C1 = "=RC[5]-x"

@iliess

as-tu besoin encode d'aide ? as-tu compris la syntaxe et les erreurs ?

Bonsoir

et Désolé pour ce retard j’étais malade au lit.

je vous détailler plus

Mon objectif est de supprimer les même chiffre dans les deux colonnes débit et crédit

La cellule A1 est un moyenne de contrôler les erreurs

Exemple

Si je supprime la ligne 3 et la ligne 6 la valeur en A1 égale a zéro

Si je supprime la ligne 3 et la ligne 9 la valeur en A1 égale a 1 donc j'ai commis une erreurs

Et voici un fichier Démo

J'ai l'impression qu'on n'est plus du tout dans le même sujet !

Bonjour à tous,

@iliess,

pour utiliser la variable dans la formule

Sub Macro3()
Dim x As Currency
    x = Range("F1").Value
    Range("A1").FormulaR1C1 = "=RC[5]-" & x
End Sub

tu pourrais aussi écrire,

Range("A1").Formula = "=" & Range("E1") & "-" & Range("F1")

ou bien

Range("A1").Formula = "=" & Range("E1").Address & "-" & Range("F1").Address

mille merci Mr

@i20100 votre solution ça marche très bien.

Super, Merci pour ce retour, au plaisir!