Code:
For j = 0 To UBound(tab_str_temp)
If tab_str_temp(j) <> "" Then
sPremier_caractere = Mid(tab_str_temp(j), 1, 1)
sDernier_caractere = Mid(tab_str_temp(j), Len(tab_str_temp(j)), 1)
If Len(tab_str_temp(j)) > 9 Then
If sPremier_caractere = "(" Then
sLCDV_temp = Mid(tab_str_temp(j), 2) 'on récupère la formule sans la parenthèse
ElseIf sDernier_caractere = ")" Then
sLCDV_temp = Mid(tab_str_temp(j), 1, Len(tab_str_temp(j)) - 1) 'on récupère la formule sans la parenthèse
Else
sLCDV_temp = tab_str_temp(j)
End If
Else
sLCDV_temp = tab_str_temp(j)
End If
'on va rechercher dans le tableau si on a une correspondance
For k = 0 To iNbECTotal
If sLCDV_temp <> "OU" Or sLCDV_temp <> "ET" Or sLCDV_temp <> "(" Or sLCDV_temp <> ")" Or sLCDV_temp = "" Then
If sLCDV_temp = sTab_LCDV(k) Then
If Len(tab_str_temp(j)) > 9 Then
If sPremier_caractere = "(" Then
tab_str_temp(j) = "(" & sTab_F(k) 'on recopie l'EC
ElseIf sDernier_caractere = ")" Then
tab_str_temp(j) = sTab_F(k) & ")" 'on recopie l'EC
Else
tab_str_temp(j) = sTab_F(k)
End If
Else
tab_str_temp(j) = sLCDV_temp
End If
k = iNbECTotal + 100
End If
End If
Next k
End If
Next j
Bonjour j'ai un code qui me permet de récuperer ce qu'il y avant la parenthèse de fin et après la parenthese de Début
Exemple dans ma cellule j'ai :
(y=c +d
OU
a+b=c(e+f)
OU
d+f=e)
le code va me recuperer
tab_str_temp(0)=" y=c +d"
tab_str_temp(1)="OU"
tab_str_temp(2)="a+b=c(e+f"
tab_str_temp(3)="OU"
tab_str_temp(4)="d+f=e"
mais mon problème c'est que tab_str_temp(2) doit me renvoyer "a+b=c(e+f)" quelqu'un peut il m'aider a modifier mon code ?