Modifier une formule dans une cellule

Résolu
ttcpp78180
Messages postés
2
Date d'inscription
mardi 3 novembre 2020
Statut
Membre
Dernière intervention
3 novembre 2020
- Modifié le 3 nov. 2020 à 20:07
ttcpp78180
Messages postés
2
Date d'inscription
mardi 3 novembre 2020
Statut
Membre
Dernière intervention
3 novembre 2020
- 3 nov. 2020 à 12:21
Bonjour à tous,

j'ai un problème concernant une modification d'un cellule. Le but est faire afficher 0 si la valeur est supérieure à 0, en faisant l'opération suivante :
la valeur de la cellule *0 (ceci afin de garder une trace du montant à l'origine).
Mon code ci-dessous fonctionne très bien tant que la valeur est un entier par contre cela ne fonctionne pas si j'ai une décimale.

 x = Range("" & Letr_R & "" & i & "").Value
                            If x > 0 Then
                                'Modififie la valeur de la période
                                'x = Range("" & Letr_R & i & "").Value
                                Range("" & Letr_R & i & "").Select
                                ActiveCell.FormulaR1C1 = "=" & x & "*0" 


si la valeur est 1 alors j'ai la formule suivante =1*0
si la valeur est 1,5 alors j'ai 1,5 comme formule , le *0 n’apparaît pas .

J'ai déclaré x en single/double mais cela ne change rien.
C'est surement un problème de format entre vba et Excel mais je n'arrive à trouver la façon de faire pour que cela fonctionne.

merci pour votre aide

Cdlt

ttcpp78180

1 réponse

ttcpp78180
Messages postés
2
Date d'inscription
mardi 3 novembre 2020
Statut
Membre
Dernière intervention
3 novembre 2020

3 nov. 2020 à 12:21
Problème résolu,
il fallait juste mettre FormulaLocal au lieu de FormulaR1C1
0