Discussion :

[progami]

Bonjour,

j'ai cette ligne dans ma cellule :

=SI(OU(A1=3);"ERREUR"; ( -0,1771*A1 + 16,582))

et je veux faire un prog vba pour récupérer :

- 0,1771
16,582

j'ai trouvé des fonctions instr et dim , mais j'arrive pas à les récupérer

auriez vous des idées ?

merci

progami

[Kimy_Ire]

Bonjour progami,

Alors voici ce que je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Sub Convert()
Dim oStr As String
Dim k As Integer
Dim oVal1 As String, oVal2 As String
Dim oValFin1 As Double, oValFin2 As Double
 
oStr = Worksheets("Feuil1").Range("B4").FormulaLocal
 
k = 1
Do While InStr(k, oStr, ";") <> 0
    k = InStr(k, oStr, ";") + 1
Loop
 
oStr = Right(oStr, Len(oStr) - k)
 
k = InStr(1, oStr, "(") + 1
Do While Mid(oStr, k, 1) <> "*"
    oVal1 = oVal1 & Mid(oStr, k, 1)
    k = k + 1
Loop
 
k = InStr(1, oStr, "+") + 1
Do While Mid(oStr, k, 1) <> ")"
    oVal2 = oVal2 & Mid(oStr, k, 1)
    k = k + 1
Loop
 
oValFin1 = CDbl(Trim(oVal1))
oValFin2 = CDbl(Trim(oVal2))
 
MsgBox oValFin1 & " && " & oValFin2
 
End Sub

Je pense que je gère pas mal de cas de figure. Ca sera à toi de me dire si ça te convient !

Cordialement,
Kimy

[Marc-L]

Bonjour, bonjour !

Kimy ! Split de Split : Chrüterchraft ‼

Code :

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

1
2
3
4
5
Sub Demo()
    Const S = "=SI(OU(A1=3);""ERREUR""; ( -0,1771*A1 + 16,582))"
    MsgBox Split(Split(S, "( ")(1), "*")(0)
    MsgBox Split(Split(S, "+ ")(1), ")")(0)
End Sub

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

______________________________________________________________________________________________________

Je suis Charlie, Bardo, Sousse

[Kimy_Ire]

Bonjour Marc,

Oui, c'est vrai ! Heureusement que ta vigilance n'a pas d'égal !

Cordialement,
Kimy

[progami]

Bonjour, bonjour !

Kimy ! Split de Split : Chrüterchraft ‼

Code :

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

1
2
3
4
5
Sub Demo()
    Const S = "=SI(OU(A1=3);""ERREUR""; ( -0,1771*A1 + 16,582))"
    MsgBox Split(Split(S, "( ")(1), "*")(0)
    MsgBox Split(Split(S, "+ ")(1), ")")(0)
End Sub

j avoue que cette methode est très simple mais pourquoi t'as mis ""ERREUR"" au lieu de "ERREUR"
parce que en utilisant la chaine que j'ai posé c me donne des erreurs

[Marc-L]

Comme une chaîne de caractères est encadrée par des guillemets, si la chaîne elle-même contient des guillemets …

[Marc-L]

Code :

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

1
2
3
4
5
6
7
8
Sub Demo1()
    Const S = "=SI(OU(L(-1)C(-3)<23;L(-1)C(-3)>125);""ERREUR"";  (L(-1)C(-3)*L(-1)C(-3))/(-0,06605*L(-1)C(-3)^3 + 0,0116*L(-1)C(-3)^2 - 0,9441*L(-1)C(-3) + 68,642))"
    MsgBox Split(Split(S, "/(")(1), "*")(0)
      SP = Split(S, " + ")
    MsgBox Split(SP(1), "*")(0)
    MsgBox "- " & Split(Split(SP(1), " - ")(1), "*")(0)
    MsgBox Split(SP(2), ")")(0)
End Sub

______________________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[progami]

Bonjour progami,

Alors voici ce que je te propose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
Option Explicit
 
Sub Convert()
Dim oStr As String
Dim k As Integer
Dim oVal1 As String, oVal2 As String
Dim oValFin1 As Double, oValFin2 As Double
 
oStr = Worksheets("Feuil1").Range("B4").FormulaLocal
 
k = 1
Do While InStr(k, oStr, ";") <> 0
    k = InStr(k, oStr, ";") + 1
Loop
 
oStr = Right(oStr, Len(oStr) - k)
 
k = InStr(1, oStr, "(") + 1
Do While Mid(oStr, k, 1) <> "*"
    oVal1 = oVal1 & Mid(oStr, k, 1)
    k = k + 1
Loop
 
k = InStr(1, oStr, "+") + 1
Do While Mid(oStr, k, 1) <> ")"
    oVal2 = oVal2 & Mid(oStr, k, 1)
    k = k + 1
Loop
 
oValFin1 = CDbl(Trim(oVal1))
oValFin2 = CDbl(Trim(oVal2))
 
MsgBox oValFin1 & " && " & oValFin2
 
End Sub

Je pense que je gère pas mal de cas de figure. Ca sera à toi de me dire si ça te convient !

Cordialement,
Kimy

oui c marche comme il faut merci,

j'essaye de l'appliquer sur une ligne plus grande mais c'est un peu plus compliqué

la voila :

Code :

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

=SI(OU(L(-1)C(-3)<23;L(-1)C(-3)>125);"ERREUR";  (L(-1)C(-3)*L(-1)C(-3))/(-0,06605*L(-1)C(-3)^3 + 0,0116*L(-1)C(-3)^2 - 0,9441*L(-1)C(-3) + 68,642))

ce que je veux récupérer
-0,06605
0,0116
- 0,9441
68,642

merciiiiii