Recherche soluton Couleur&Catégorie

Fermé
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018 - 4 déc. 2017 à 09:49
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 - 6 févr. 2018 à 18:49
Bonjour à tous,

Je gère une base de données sous Excel qui me permet de réaliser un classement de course à pied. Je possède ainsi différentes colonnes, notamment :
Classement, Dossard, Nom coureurs / Catégorie / Points
j'aimerais pouvoir mettre en couleur le meilleur résultat en point par catégorie sur base d’une table de référence exemple ci joint.
Qui connait la formule VBA pour que ce soit automatique ?
Un grand merci par avance :)
A voir également:

7 réponses

gbinforme Messages postés 14946 Date d'inscription lundi 18 octobre 2004 Statut Contributeur Dernière intervention 24 juin 2020 4 684
4 déc. 2017 à 10:05
Bonjour,

Qui connait la formule VBA pour que ce soit automatique ?
Pourquoi VBA ?
une mise en forme conditionnelle devrait faire l'affaire.
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 4 déc. 2017 à 10:19
Bonjour,

tu n'as pas besoin de VBA pour ça

sélectionne ton tableau A2:F50 par exemple
Mise en forme conditionnelle
la formule pour le meilleur temps est
=$F2=GRANDE.VALEUR($F$2:$F$50;1)
Format
choisir la couleur de remplissage

recommencer l'opération pour le second temps
=$F2=GRANDE.VALEUR($F$2:$F$50;2)
et idem pour le 3éme
=$F2=GRANDE.VALEUR($F$2:$F$50;3)
A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...
0
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018
4 déc. 2017 à 10:25
merci pour la réponse, la fonction mise en forme conditionnelle je connais, je reformule ma demande :
je recherche à mettre en évidence le meilleur résultat en point par catégorie sur une base d'une table de référence couleur qui est situer sur une autre feuil.

@+
Maton-54
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 396
4 déc. 2017 à 10:11
Bonjour

en attendant VBA qui sera sans doute la meilleure option, vous pouvez avec une colonne supplémentaire masquée (ou non) détecter quels sont dans chaque catégorie les lignes qui contiennent le maxi:
par exemple en G de ligne 1 à LIGNE 1000, en plaçant la formule suivante:

=SI(MAX(SI($1:$E$1000=E1;$F$1:$F$100)=F1;E1;"")

formule matricielle à entrer avec la touche enter en maintenant les touches ctrl et shift enfoncées.
elle s'affiche automatiquement entre accolades dans la barre des formules

Vu le poids de la formule, il vaut mieux la limiter au nombre de lignes utiles (ici de 1 à 1000)

Cette formule vous renvoyant en G le nom de la catégorie en ligne avec la valeur max correspondante, il suffit de placer les MFC pour chaque couleur avec chacun des codes

crdlmnt




0
DjiDji59430 Messages postés 4036 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 25 avril 2024 646
4 déc. 2017 à 10:16
Bonjour,

Tu selectionnes ta colonne E, et comme formule de MFC, pour le gris clair :

=$e2=max(si(e2:e100="A1";f2=f100)

etc...
0
Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022 6 396
4 déc. 2017 à 11:14
Salut djidji
peux tu vérifier chez toi?
chez moi ça ne fonctionne pas... cette formule est matricielle et les MFC ne l'acceptent pas? Si elle fonctionne chez toi, ça m'intèresse de savoir pourquoi!
à te lire
crdlmnt
0
DjiDji59430 Messages postés 4036 Date d'inscription samedi 19 avril 2008 Statut Membre Dernière intervention 25 avril 2024 646 > Vaucluse Messages postés 26496 Date d'inscription lundi 23 juillet 2007 Statut Contributeur Dernière intervention 1 avril 2022
4 déc. 2017 à 16:00
C'est une formule que j'avais vérifiée avant de la mettre.
Ce n'est pas la première fois que je mets des matricielles, et pour moi, même si je valide a 3doigts (et que ça ne se voit pas), ça me paraissait naturel.
Paraissait ......
J'ai donc recommencé et la, plus de MFC !. 100 sur le métier .....
Et..... (pourquoi ?) .....elle fonctionne.
https://www.cjoint.com/c/GLeo5CAV4L7
Fichier :
https://www.cjoint.com/c/GLeo7p1wzH7
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
Modifié le 4 déc. 2017 à 11:28
Re,
je reviens sur ma proposition si cette fois j'ai bien compris
tu veux mette en forme conditionnelle la valeur Max de ta colonne F en fonction de ta catégorie colonne E

alors si c'est cela pour ta mise en forme conditionnelle pour la catégorie S
=ET($E2="S";$F2=MAX(SI($E$2:$E$50="S";$F$2:$F$50)))

et autant de règle que de catégorie

si tu veux faire référence à ta liste je crois que S est en L9
=ET($E2=$L$9;$F2=MAX(SI($E$2:$E$50=$L$9;$F$2:$F$50)))

maintenant si tu veux passer par du VBA on verra cet après midi
A+
Mike-31

Je suis responsable de ce que je dis, pas de ce que tu comprends...
0
Maton-54 Messages postés 7 Date d'inscription lundi 4 décembre 2017 Statut Membre Dernière intervention 8 février 2018
4 déc. 2017 à 16:52
Bonjours à tous, voilà je partage avec vous une proposition que j'ai reçu en privé, le tout en code VBA.

Option Explicit

Dim tabloC, i&, ln&

Sub Couleurs()

Application.ScreenUpdating = False
tabloC = Sheets("categorie").Range("B2:C" & Sheets("categorie").Range("B" & Rows.Count).End(xlUp).Row)
For i = 1 To UBound(tabloC, 1)
tabloC(i, 1) = Sheets("categorie").Range("B" & i + 1)
tabloC(i, 2) = Sheets("categorie").Range("B" & i + 1).Interior.Color
Next i
For i = 1 To UBound(tabloC, 1)
For ln = 2 To Range("D" & Rows.Count).End(xlUp).Row
If tabloC(i, 1) = Range("E" & ln) Then
Range("B" & ln & ":F" & ln).Interior.Color = tabloC(i, 2)
Exit For
End If
Next ln
Next i
End Sub

@+
Maton-54
0
cs_Le Pivert Messages postés 7903 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 11 mars 2024 728
6 févr. 2018 à 18:49
Bonjour,

Voilà une solution à adapter:

https://www.cjoint.com/c/HBgrTmhplgQ

0