• Initiateur de la discussion Initiateur de la discussion Guigui
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Guigui

XLDnaute Occasionnel
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]
 

Pièces jointes

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]
 

Pièces jointes

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
 
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
 
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+
 
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]
 

Pièces jointes

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

Pièces jointes

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

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
6
Affichages
732
Réponses
4
Affichages
2 K
Réponses
2
Affichages
2 K
Retour