Bonjour,
En A1 la distance.
En colonne B la date.
En colonne C le temps.
En colonne D la moyenne.
Je souhaiterais avoir en motif jaune la cellule ou il y a la meilleure
moyenne.
Un petit + (si possible) faire clignoter la cellule concernée.
Merci de votre aide.
--
Cordialement
Guy
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 !!!
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
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 !!!
Guy72
Bonjour François, Non la moyenne est la plus grande vitesse au kmh. http://cjoint.com/?fBpxrGFJZ4 -- Cordialement Guy
a écrit dans le message de news:
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
Bonjour François, Non la moyenne est la plus grande vitesse au kmh. http://cjoint.com/?fBpxrGFJZ4 -- Cordialement Guy
a écrit dans le message de news:
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 !!!
francois.forcet
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
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
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
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 a écrit dans le message de news:
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
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
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 a écrit dans le message de news:
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
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
a écrit dans le message de news:
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"
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"
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
a écrit dans le message de news:
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"
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
a écrit dans le message de news:
J'oublié sur ce lien ton document avec ma dernière modification
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
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
a écrit dans le message de news:
J'oublié sur ce lien ton document avec ma dernière modification