VBA Calcul Formel

Bonjour, je suis débutant et j'ai un projet à faire,
En ce moment je bloque à la dernière étape de mon projet, je m'explique :

Je dois crée un code en VBA qui me permettra de factoriser n'importe quelle expression comme ( a . ( b . c. d ) ) + ( a . ( e .b . f . d ) ) et je devrai trouver ( a . b . d ) . ( c + ( e . f ) ) ou bien comme ( a . b ) + ( a . c ) qui me donnera a + ( b . c ) bref les expressions sont variable.

les cellules sont décomposé ainsi :
(
Type
ET
bleu
)
OU
(
Type
ET
vert
)

Ici Il faudrait obtenir :
(
Type
)
ET
(
Bleu
ou
Vert
)


je ne sais pas du tout comment je pourrais faire , je viens donc vous demander de l'aide ...

Bonjour,
Le meilleur moyen de commencer est de trouver une définition de la factorisation --> qu'est-ce qui est constant dans toute factorisation? Quelle est la logique derrière une factorisation? Pour écrire un code, il faut trouver une logique applicable à tous les cas visé.
Tu remarques notamment : il faut qu'il y ait un élément commun dans chacune des expressions séparées par le + (ou le OU). Tu peux donc commencer par repérer les OU et ainsi obtenir les expressions séparées par les OU. Tu compares toutes ces expressions et tu cherches si elles ont des éléments communs.
C'est une idée ... il faut la travailler.

Merci pour ta réponse je me lance dans le code pour séparer l'expression quand je trouve un OU

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Sub test3()   Set DCISheet = ActiveSheet parenDeb = InStr(2, DCISheet.Cells(1, 1), "(") parenEnd = InStr(2, DCISheet.Cells(1, 1), ")") cel = Mid(DCISheet.Cells(1, 1), parenDeb, parenEnd) abc = Len(DCISheet.Cells(1, 1)) decoupe = InStr(1, DCISheet.Cells(1, 1), "OU") cel1 = Left(DCISheet.Cells(1, 1), decoupe)   cel2 = Right(DCISheet.Cells(1, 1), decoupe) MsgBox cel1 MsgBox cel2 End Sub

---

Voila j'ai commencé à découper mais je n'ai pas toute la parenthèse au complète ( par exemple dans ma cel 2, il me manque le début de ma 2e Partie après le ou, et dans ma cel1 j'ai le O de ou qui s'affiche ....

A quoi te servent les variables ParenDeb, parenEnd et cel?
Pour couper une chaine, il y a plus simple --> la méthode Split qui renvoie une liste:

Code:

---

1 2	MsgBox("la maison OU l'appartement", "OU")(0) 'renvoie "la maison " MsgBox("la maison OU l'appartement", "OU")(1) 'renvoie " l'appartement"

---

Attention aux espaces qui sont considérés comme des caractères :

Code:

---

1 2	MsgBox("la maison OU l'appartement", " OU ")(0) 'renvoie "la maison" MsgBox("la maison OU l'appartement", " OU ")(1) 'renvoie "l'appartement"

---

Ensuite tu peux réutiliser Split pour avoir chacun des éléments.
D'autres exemples de Split pour t'inspirer :

Code:

---

1 2 3 4

Msgbox Split("la maison", " ")(0) 'renvoie "la" Msgbox Split("la maison", " ")(1) 'renvoie "maison" Msgbox Split("maison", "")(0) 'renvoie "m" Msgbox Split("maison", "")(3) 'renvoie "s"

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub Sub Tableau() Set DCISheet = ActiveSheet     Fr = Split(DCISheet.Cells(1, 1), "OU")   For i = 0 To UBound(Fr)   MsgBox Fr(i)   Next i End Sub

---

Du coup j'arrive bien a séparé mais après comment je peux comparer les facteur commun ?

Ce que je te donne n'est pas du code VBA, mais l'idée qu'il y a derrière :
Split( (a ET b) OU ( a ET c), " OU " ) --> {(a ET b);(a ET c)}
Replace((a ET b), "(", "") --> a et b)
Replace(a ET b), ")", "") --> a ET b
Split(a ET b, " ET ") --> {a; b}
Split(a ET c, " ET ") --> {a; c}
Y a plus qu'à comparer les deux dernières listes.

Bon ceci est un exemple simple.
Est-il possible d'avoir de OU imbriqués dans des ET? Dans ce cas là, c'est plus compliqué ... et il faudrait réfléchir un peu plus :?

je vais essayer de le traduire en code
et oui c'est possible d'avoir des OU imbriqué dans des ET ......

Après avoir essayé de mettre en point le code, mon professeur m'a demandé de réaliser tout sa à l'aide d'un tableau :
Principe de Factorisation :
Dans ma cellule :

( A ET B ET C ET D ) OU ( A ET B ET E ET F ) OU ( A ET E)

J'éclate ma cellule et je crée des colonnes A B C D E F dans une nouvelle feuille

A	B	C	D	E	F
X	X	X	X
X	X			X	X
X					X

( A ) OU( B ET C ET D ) OU ( B ET E ET F ) OU ( E )
A étant la colonne qui le plus de croix on le met en facteur et on écrit la formule

comment je pourrai éclater ma cellule pour crée une feuille avec A B C D E F en colonne d'un tableau ?

J'ai réussi créer une variable (i) ou je pourrai mettre A B C D E F mais je bloque pour les insérer dans un tableau