Formule de calcul avec valeur variable

[Windfly]

Bonjour,

Je souhaiterai faire une macro qui permette d'inserer dans une cellule une formule de calcul avec une donnée variable :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Calcul As Single
Calcul = '=2,5-' & Range('O13').End(xlToLeft).Value & '/0,5'

Range('P13').FormulaR1C1 = Calcul

End Sub



Pouvez vous me dire ce qui ne va pas dans ma macro svp?

Merci d'avance

Salut, Guillaume

 

[PascalXLD]

Bonjour

essaies ainsi

Dim Calcul As String
Calcul = '=2.5-' & Range('O13').End(xlToLeft).Value & '/0.5'

Range('P13').Formula = Calcul

Bon courage

 

[PascalXLD]

Re

Alors José sur ce coup pas top

1 - tu es à la bourre (ce qui est etonnant ces derniers temps tu es toujours le prems; m'enfin tu as du trop arrosé la barre des 2000)

2 - tu as oublié le string pour calcul en déclaration

NIARK NIARK NIARK



Bonne journée

 

[Windfly]

OUAH quelle rapidité, je vous en remercie,

Pascal, j'ai essayé tes lignes mais j'ai un message qui dit 'Erreur definie par l'application ou par l'objet' et lorsque je fait 'Débogage', VBA me met la ligne suivante en jaune :

Range('P13').Formula = Calcul

Merci d'avance

 

[Windfly]

Ca y est j'ai trouvé, pour votre information, voici la formule correcte :

Dim Calcul As String
Calcul = '=2.5-' & CInt(Range('O13').End(xlToLeft).Value) & '/0.5'
Range('P13').Formula = Calcul

Merci encore

Ciao Guillaume

 

[PascalXLD]

RE

José je ne pense pas que cela vienne de nous mais du fait que les cellules devaient être au format texte pour être obligé de les convertir avant que cela ne passe

Donc une Duvel sans ZOP