Formular1c1

[Greg]

Bonjour a tous,

Alors j'ai une ligne du style :
[A1].FormulaR1C1 = "=" & [A1].Value & "+" & P
Mon probleme c'est que la formule marche suelement si P est un entier, et comme j'utilise des virgules, ca plante.
Merci de m'aider, faut-il declarer la variable de facon specifique?

Mes autres pbs: P est un prix que je tape dans un textbox, et ca bug si je mets un "." a la place de ",", peut-on parametrer pour que les deux marchent?

Autre pb: j'ai une case avec une formule "=123*123", je souhaite recuperer la formule mais sans le "=", comment faire?

Merci beaucoup de votre aide!!!

Bonne semaine a tous!

Greg

 

[Hervé]

bonjour,

a tout hasard, comment as tu declaré P ? cela vient peut etre de là...

peux tu donner un petit exemple en fichier joint pour qu'on y regarde de plus prés?

@+Hervé

 

[Greg]

Bonjour Hervé,

En fait, je ne l'ai pas declaré du tout, comment faut-il le declarer?
Je peux t'envoyer le detail du fichier, mais il est assez long, et ne comporte que des if... ?

Merci beaucoup!

Greg

 

[Hervé]

bonjour,

oui, envoies ton fichier.
a priori, tu dois
- déclarer P comme Integer,
- lui affecter une valeur,
- faire ton calcul

en attente de ton fichier,

@+

 

[Greg]

Rebonjour,

Ci-dessus, le code du fichier. Les 2 lignes ou j'utilise des Formular1c1 plante quand je prends un parametre P1 non entier.


Merci de votre aide!

********************************************************

Private Sub CommandButton1_Click()

Dim L, Maligne, LigneTitre As Integer
Dim P1, P2, Q1, Q2, P, Q As Integer
Dim Titre, Sens, Fonds, SearchTitre, Test, NumLigne, Operation

'Recuperation des valeurs saisies
Fonds = ComboBox1.Value
Titre = ComboBox2.Value
Sens = ComboBox3.Value
Q1 = TextBox1.Value
P1 = TextBox2.Value

ComboBox1.Value = ""
ComboBox2.Value = ""
ComboBox3.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox1.SetFocus
Operation = ""
P = 0
Q = 0

Sheets(Fonds).Activate

Maligne = 2
Do Until Sheets(Fonds).Cells(Maligne + 1, "B").FormulaR1C1 = ""

Maligne = Maligne + 1
Cells(Maligne, 2).Select

If Cells(Maligne, 2).Text = Titre Then

Q2 = Cells(Maligne, 3).Value
P2 = Cells(Maligne, 4).Value

If Sens = "ACHAT" Then
Operation = "-"
Q = Q1 + Q2
Cells(Maligne, 3).Value = Q
Cells(Maligne, 4).FormulaR1C1 = "=(" & Q1 & "*" & P1 & "+" & Q2 & "*" & P2 & ")/" & Q

ElseIf Sens = "VENTE" Then
Operation = "+"
If (Q1 = Q2) Then
ActiveSheet.Rows(Maligne).EntireRow.Delete
Else
Q = Q2 - Q1
Cells(Maligne, 3).Value = Q
End If

End If

Cells(1, 1).Select
Sheets("Synthese").Select

[A3].Value = [A3].Value
[A3].FormulaR1C1 = "=" & Operation & Q1 & "*" & P1 & "+(" & [A3].FormulaR1C1 & ")"

End If

Loop


End Sub