Discussion :

[Vins75]

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 ...

[riaolle]

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.

[Vins75]

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

[Vins75]

Code :

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

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 ....

[riaolle]

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 :

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

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 :

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

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 :

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

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"

[Vins75]

Code :

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

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 ?