MFC mais en VBA ...

[Guigui]

Bonsoir tous le monde,

J'ai petit probleme de condition à gerer,
On m'avais proposé une solution avec des mises en forme conditionnel, mais il me faudrait quelque chose en VBA ...
Je vous joint un exemple concret.
Merci d'avance pour votre aide

A+
Merci [file name=MFCcode.zip size=10441]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MFCcode.zip[/file]

 

[thri]

Bonsoir Guigui
Je pense que la macro excellente de MyDearFriend est exactement ce qu'il te faut.
Pour une multitude de MFC.
Elle est très facile à appliquer l'explication est dans le fichier A+ [file name=mDF_MFCmultiples_v2_20060323190232.zip size=19846]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_MFCmultiples_v2_20060323190232.zip[/file]

 

[Guigui]

Re le forum, thri,

Merci pourta proposition, j'ai jetté un oeil ...
mais je vois pas comment l'adapter à mon fichier.

Je ne vois pas quoi modifier ...
Peux tu me donner un ptit coup de main ...

N'y a t-il pas un moyen en VBA pur ?

Merci encore
A+
Guillaume

 

[Marc_du_78]

Bonsoir Guigui, thri,

Est-ce que le fichier joint répond à ton attente ?
Bon courage pour la suite, et bonne soirée. [file name=MFCcode_20060323193916.zip size=34434]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MFCcode_20060323193916.zip[/file]

 

[Marc_du_78]

re,
J'ai juste mis en forme la cellule B18; voyant avec retard que tu demande en vba voici le code obtenu à partir de l'enregistreur de macros :

Sub MisEnFormCondi()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=SI(A18=''AZ'';OU(B18=11;B18=12;B18=13;B18=15))'
Selection.FormatConditions(1).Interior.ColorIndex = 45
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
'=SI(A18=''AZ'';OU(B18=31;B18=32;B18=33;B18=34;B18=38))'
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 2
End With
Selection.FormatConditions(2).Interior.ColorIndex = 3
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:='=''AZ'''
With Selection.FormatConditions(3).Font
.Bold = True
.Italic = False
.ColorIndex = 1
End With
Selection.FormatConditions(3).Interior.ColorIndex = 3
End Sub

 

[Guigui]

Re tous le monde, Marc du 78,

Merci pour ta solution, mais ca ne fonctionne pas, je n'arrive pas au résultat que j'ai mit en exemple ...

Je remet les conditions, me suis peut etre mal exprimé..
si LG(ou autre) ET 11 12 13 15 31 32 33 34 38
>> ROUGE

SI LG(ou autre) ET autre code que 11 12 13 15 31 32 34 38
>> ORANGE

Si AZ et 31 32 33 34 38
>> ROUGE

Si AZ et autre code que 31 32 33 34 38
>> ORANGE

Ou bien explique moi si pour toi la solution est ce que tu a proposé.

Merci encore
A+

 

[thri]

Voilà avec la Mfc de MDF
Si ça te convient........
Essaye en changeant les valeurs du 1°tableau
A+ bonsoir à tous [file name=mDF_MFCmultiplescode.zip size=22385]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mDF_MFCmultiplescode.zip[/file]

 

[Guigui]

re tous le monde,
Ok thri, je commence à saisir, merci .
Mais regarde pour le code 15 (par exemple)
Si la compagnie est AZ je voudrais ORANGE
Si la compagnie autre je voudrais ROUGE

Mais la c'est rouge peut importe la compagnie ...
Vois tu ce que je veut dire .

*Les 31.32.33.34.38 sont rouge avec AZ
>>tous les autres code orange
*les 11.12.13.15.31.32.33.34.38 sont rouge avec une autre compagnie
>> tous les autres code orange


A+
Merci
Guillaume

 

[thri]

RE excuse j'ai bien compris
Pourquoi tu ne veux pas une MFC
Peut-on changer tes codes, par exemple AZ15,LG1 pour les saisies!!A+

 

[Guigui]

Re,

En faite ca risque d'etre un peut bazar aprés.
Je te joint mon projet (reduit pour le zip)
Tu vas voir :

Lance le truc en cliquant sur un rond sur le coté.
Si vol à l'heure, la couleur est bleue
et si vol retardé, orange pour code ne mettant pas en cause ma societé et rouge si oui (uniquement pour les 11.12.13.15.31.32.33.34.38 ...

(le code = DR)

Merci A+ [file name=ExempleForummoi.zip size=45882]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ExempleForummoi.zip[/file]

 

[thri]

Je regarde avec une MFC
Il y a des personnes trés caler en VBA
je pense que tu vas trouver ton bonheur, en VBA je suis + que débutant...A+

 

[Guigui]

Re
Ok merci Thri

J'attend alors ...
En esperant qu'une personne trés caler en VBA passe par la ... :unsure:

Merci encore
A+
Guillaume

 

[Robert]

Bonsoir le fil, bonsoir le forum,

Désolé Guigui, pas de solution à ton problème mais juste de la curiosité. Pourquoi veux-tu impérativement du code VBA alors qu'on te propose une superbe solution en MFC ?

D'autre part, je t'avais répondu Ce lien n'existe plus et tu n'as pas donné suite...

 

[thri]

Re
Bonsoir Robert
Le fichier marche avec une mfc
Robert a raison une mfc fait l'affaire comme celle de Marc.
Enfin je pense qu'elle fonctionne........a+
La mfc marche sur la valeur du 1°code, tu vois si ça te convient!!A+ [file name=mfcvol.zip size=45815]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/mfcvol.zip[/file]

 

[Marc_du_78]

Bonjour à tous,
Voici une nouvelle mouture.
En espérant que ca te convienne.
Bonne journée à vous tous. [file name=MFCcode2.zip size=36796]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/MFCcode2.zip[/file]