Formule de calcul avec valeur variable

Windfly · 23 Mars 2006

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 · 23 Mars 2006

Bonjour

essaies ainsi

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

Range('P13').Formula = Calcul

Bon courage

PascalXLD · 23 Mars 2006

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 · 23 Mars 2006

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 · 23 Mars 2006

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 · 23 Mars 2006

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

Formule de calcul avec valeur variable

Windfly

Guest

PascalXLD

XLDnaute Barbatruc

PascalXLD

XLDnaute Barbatruc

Windfly

Guest

Windfly

Guest

PascalXLD

XLDnaute Barbatruc

Discussions similaires