OVH Cloud OVH Cloud

macro

4 réponses
Avatar
mic3812
Bonjour,
Par une macro je cherche à faire, selectionner la cellule qui a la
plus grande valeur et la colorier en rouge.
Merci de votre aide
michel

4 réponses

Avatar
garnote
Bonjour Michel,

Il y a peut-être plus court, mais ça semble fonctionner.

Sub RougeMax()
Set ici = Selection
m = WorksheetFunction.Max(ici)
For Each c In ici
If c.Value <> "" And c.Value = m Then _
c.Interior.ColorIndex = 3
Next
End Sub

Serge

a écrit dans le message de news:

Bonjour,
Par une macro je cherche à faire, selectionner la cellule qui a la
plus grande valeur et la colorier en rouge.
Merci de votre aide
michel


Avatar
JièL Goubert
Bonjour Michel

a écrit:
Bonjour,
Par une macro je cherche à faire, selectionner la cellule qui a la
plus grande valeur et la colorier en rouge.


Question : pourquoi par une macro quand la fonctionnalité existe sans ?
Sélectionne ta plage, menu Format, Mise en forme conditionnelle, choisir
"La formule est", taper re_cellule_sans_les_$=MAX(plage_avec_les_$),
Format, Motifs, Rouge, ok, ok

Merci de votre aide


--
JièL, membre actif du club des AMIS
(Anti Macroteurs Inutilement Superfétatoire)

Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro Application
http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm

Avatar
mic3812
Merci à tous michel

Le Sun, 02 Nov 2003 17:28:45 +0100, JièL Goubert
écrit:

Bonjour Michel

a écrit:
Bonjour,
Par une macro je cherche à faire, selectionner la cellule qui a la
plus grande valeur et la colorier en rouge.


Question : pourquoi par une macro quand la fonctionnalité existe sans ?
Sélectionne ta plage, menu Format, Mise en forme conditionnelle, choisir
"La formule est", taper re_cellule_sans_les_$=MAX(plage_avec_les_$),
Format, Motifs, Rouge, ok, ok

Merci de votre aide




Avatar
Clément Marcotte
Oups!!!! Les AMIS (anti macros inutilement superfétatoires) tentent
une percée. ;-)


"JièL Goubert" a écrit dans le
message de news:
Bonjour Michel

a écrit:
Bonjour,
Par une macro je cherche à faire, selectionner la cellule qui a la
plus grande valeur et la colorier en rouge.


Question : pourquoi par une macro quand la fonctionnalité existe
sans ?

Sélectionne ta plage, menu Format, Mise en forme conditionnelle,
choisir

"La formule est", taper
re_cellule_sans_les_$=MAX(plage_avec_les_$),

Format, Motifs, Rouge, ok, ok

Merci de votre aide


--
JièL, membre actif du club des AMIS
(Anti Macroteurs Inutilement Superfétatoire)

Co-auteur de "Internet + de 1 000 trucs de pros" chez Micro
Application


http://faq.outlook.free.fr/livreMA/internet_plus_de_1000_trucs_de_pros.htm