Discussion :

[elombre]

Bonjour,
J'ai un problème avec des chaînes. Je veux que mon programme récupère une chaîne de ce type:

m / 100 * (1.2 + 0.0899 * V + 0.00044 * V ^ 2)

, et après avoir récupéré les valeurs de m et V qu'il exécute le calcul.
Pour V et m c4est bon, par contre je calepour la formule. Avec Cint(string) ça ne marche pas!!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub CalculCycle()
'on exploite les données de dernierecolonne
Dim V As Integer, m As Integer, fw  As Variant
'temporairement on exécute dernierecolonne pour regarder comment marche la sub
Dernierecolonne = Cells(LIDEBCYC, 1).End(xlToRight).Column
V = Feuil2.Cells(3, Dernierecolonne).Value
m = Feuil2.Cells(4, Dernierecolonne)
fw = Feuil2.Cells(6, Dernierecolonne).Value
'forw = Val(fw)
forw = CInt(fw)
 
End Sub

J'ai ce message d'erreur:

Erreur d'exécution '13':
incompatibilité de type

ça bug à cause de m et V, je pense q'il faudrait que je les remplace par leur valeurs avant defaire la transfo stringinteger, mais je sais pas comment faire...

[Krovax]

regarde la valeur de Dernierecolonne et des cellule correspondant a

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fw = Feuil2.Cells(6, Dernierecolonne).Value

Je n'ai aucun problème quand je fais ce genre de chose a condition que ma cellule contienne bien un entier (tu peux directement déclarer fw comme entier dailleur et te passer de la convertion Cint)

[elombre]

Pour dernierecolonne j'ai la bonne valeur.J'avais d'ailleurs déjà corriger des problèmes avec la procédure qui le renvoit.
Quand je déclare fw comme integer, il me renvoit ce message:

Erreur '13' incompatibilité de type

si je déclare en variante, ça passe, mais dans la fenêtre de variables locales, il me met

Vaiant/String

, donc chaine de caractère et pas un entier.
Le problème c'est que les formules que j'utilise contiennent des lettre, et sont donc considérées comme des chaînes de caractères...
Est ce que je pourrais pas faire une boucle pour isoler les "éléments numériques" (chiffres, et symboles: /, *, +, =)des lettres, pour ensuite attribuerles valeurs numériques à V et m, les réinsérerdans la chaines de charactère, puis la transformer en integer....
Tiré par les cheveux? Vous en penser quoi?

[DeaD78]

Bonjour,

Et pourquoi ne pas déclarer fw en String ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

fw = Feuil2.Cells(6, Dernierecolonne).Value

devrait alors marcher. Et tu pourrais alors virer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

forw = CInt(fw)

EDIT : j'ai rien dit, je viens de comprendre...

[Krovax]

Je croi que je viens de comprendre

Tu as dans une cellule une chaine de caractère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

m / 100 * (1.2 + 0.0899 * V + 0.00044 * V ^ 2)

sauf que m et v sont des valeurs numériques

Et tu veux les récupérer c'est bien ca?

Ou alors une autre facon que j'ai de comprendre ce que tu as écrit
Tu as cette chaine de caractère d'un coté
de l'autre tu récupère la valeur de v et m et tu veux le remplacer dans la formule.
Je croix que c'est cette solution la bonne

donc essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim formule As String, m As Double, V As Double, resultat As Double
formule = "m / 100 * (1.2 + 0.0899 * V + 0.00044 * V ^ 2)"
m = 10
V = 12.5
 
formule = Replace(formule, "m", m)
formule = Replace(formule, "V", V)
 
Range("A1").Formula = "=" & formule
resultat = Range("A1").Value
Range("A1").ClearContents
MsgBox resultat

Je magouille un peu pour transformer ta chaine de caractère en une valeur il y a peut etre une fonction qui permet d'éviter de passer par une cellule

[DeaD78]

Heureusement que j'ai rafraîchi, sinon on était parti pour un tricot

J'allais poster quelque chose dans ce goût là. C'est fonctionnel. Tu peux te fier au code de Krovax les yeux fermés

[Krovax]

Tu peux te fier au code de Krovax les yeux fermés

ouais enfin, c'est pas moi qui le dit , fait juste attention a ce que la cellule A1 ne soit pas utilisé ou alors ecrit dans une autre cellule qui sera toujours vide

[elombre]

Merci les gars, ça marche!!! J'étais en train de réfléchir à une boucle sur ma formule pour isoler les V et m, puis les remplacer, et convertir la formule en integer. Bref un truc super compliqué, alors qu'avec replace, c'est plus simple!!!