Repérer la meilleur moyenne

Salut Guy
Je suppose que dans ton exemple la meilleure moyenne est la valeur la
plus petite
Feuil1 colonne D à traiter je te propose ce code :

Moyenne = Range("D1").Address
For Each c In Worksheets("Feuil1").Range("D1", "D" &
Range("D65535").End(xlUp).Row)
If c < Range(Moyenne) Then
Moyenne = c.Address
End If
Next
Range(Moyenne).Interior.ColorIndex = 6

Le résultat coloré en jaune fixe

Je n'ai pas la solution pour faire clignoter mais des Post dans ce
forum sur le sujet existe
Tu peux les consulter

Fais des essais et dis moi !!!

Bonjour François,
Non la moyenne est la plus grande vitesse au kmh.
http://cjoint.com/?fBpxrGFJZ4
--
Cordialement
Guy

<francois.forcet@wanadoo.fr> a écrit dans le message de news:
9752b81d-6087-40f6-ac9e-d31cfe780373@a1g2000hsb.googlegroups.com...
Salut Guy
Je suppose que dans ton exemple la meilleure moyenne est la valeur la
plus petite
Feuil1 colonne D à traiter je te propose ce code :

Moyenne = Range("D1").Address
For Each c In Worksheets("Feuil1").Range("D1", "D" &
Range("D65535").End(xlUp).Row)
If c < Range(Moyenne) Then
Moyenne = c.Address
End If
Next
Range(Moyenne).Interior.ColorIndex = 6

Le résultat coloré en jaune fixe

Je n'ai pas la solution pour faire clignoter mais des Post dans ce
forum sur le sujet existe
Tu peux les consulter

Fais des essais et dis moi !!!

Rebonjours Guy
Avec ta précision ce nouveau code :

Moyenne = Range("D3").Address
For Each c In Worksheets("Petite boucle").Range("D3", "D" &
Range("D65535").End(xlUp).Row)
If c > Range(Moyenne) Then
Moyenne = c.Address
End If
Next
Range(Moyenne).Interior.ColorIndex = 6

Sur ce lien ton document modifié ainsi :

http://www.cijoint.fr/cjlink.php?file=cj200805/cijR1DLYV4.xls.

Fais des essais et dis moi !!!!

Re bonjour,
Excuse je n'est pas mis de titre à la macro, car je souhaitais que cela
s'affiche à l'ouverture du fichier.(est-ce possible).
Par contre si la moyenne change, le motif de l'ancienne moyenne ne s'efface
pas.
--
Cordialement
Guy
<francois.forcet@wanadoo.fr> a écrit dans le message de news:
7070a24b-79f2-46e4-958a-22ecffa60955@e53g2000hsa.googlegroups.com...
Rebonjours Guy
Avec ta précision ce nouveau code :

Moyenne = Range("D3").Address
For Each c In Worksheets("Petite boucle").Range("D3", "D" &
Range("D65535").End(xlUp).Row)
If c > Range(Moyenne) Then
Moyenne = c.Address
End If
Next
Range(Moyenne).Interior.ColorIndex = 6

Sur ce lien ton document modifié ainsi :

http://www.cijoint.fr/cjlink.php?file=cj200805/cijR1DLYV4.xls.

Fais des essais et dis moi !!!!

Rebonjour Guy
Pour enlever la couleur rajoute en début de code cette ligne :

Columns("D:D").Interior.ColorIndex = xlNone

Pour activer le code à l'ouverture du document :
Appelle ta macro "Auto_Open"

Sur ce lien ton document ainsi modifié

http://www.cijoint.fr/cjlink.php?file=cj200805/cijXbIjHCE.xls.

Fais des essais et dis moi !!!!

Bien jouer François.
Ça me convient, mais quand je rajoute un temps meilleur, donc une moyenne
meilleure, je suis obligé de mettre un bouton qui change mon motif de place.

Est-il possible que cela change automatiquement dès que la moyenne est
meilleure ?
--
Cordialement
Guy

<francois.forcet@wanadoo.fr> a écrit dans le message de news:
1eecfa53-777f-45d2-bc63-4ee994a7d0a4@59g2000hsb.googlegroups.com...
Rebonjour Guy
Pour enlever la couleur rajoute en début de code cette ligne :

Columns("D:D").Interior.ColorIndex = xlNone

Pour activer le code à l'ouverture du document :
Appelle ta macro "Auto_Open"

Sur ce lien ton document ainsi modifié

http://www.cijoint.fr/cjlink.php?file=cj200805/cijXbIjHCE.xls.

Fais des essais et dis moi !!!!

Rebonjour Guy
Avec Excel beaucoup de chose sont possible
Dans le VBA de ta feuille mets ce bout de code :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 Then
Run ("Auto_Open")
End If
End Sub

Fait des essais et dis moi !!!!

J'oublié sur ce lien ton document avec ma dernière modification

http://www.cijoint.fr/cjlink.php?file=cj200805/cijMcgiTzD.xls.

Non ça ne fonctionne pas.
Si je mets 0:10:56 dans C9 cela donne 12.896, ça n'enlève pas le motif de
l'ancienne pour le mettre sur la nouvelle.
--
Cordialement
Guy

<francois.forcet@wanadoo.fr> a écrit dans le message de news:
fca1c546-b726-46ab-aa76-1f9ede410b45@e39g2000hsf.googlegroups.com...
J'oublié sur ce lien ton document avec ma dernière modification

http://www.cijoint.fr/cjlink.php?file=cj200805/cijMcgiTzD.xls.

Bonsour® Guy72 avec ferveur ;o))) vous nous disiez :

Non ça ne fonctionne pas.

;o)))

une solution sans macro,
qui affiche instantanement la meilleure moyenne
en fait les 3 meilleures moyenne !!!
et tient compte des ex-aéquos éventuels

http://cjoint.com/?fBtl0NZ5Nc

pour cela j'utilise :
la plage nommée "Moyennes" ($d$3:$d$500)
la fonction Rang
la mise en forme conditionnelle avec 3 conditions


--
--
@+
;o)))