Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel MFC Colonne paire/impaire

MFC Colonne paire/impaire

6 réponses
Avatar
Apitos
Bonjour,

Je cherche =E0 colorier les grandes et les petites valeurs d'une ligne
selon que la colonne est paire ou impaire :

J'ai utilis=E9 cette formule; mais =E7a n'a pas march=E9 :

Pour les plus grandes valeurs :

=3DB$6=3DOU((MOD(COLONNE();2)=3D0)*(MAX(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MAX(B$6:G$6)))

Et pour les petites valeurs :

=3DB$6=3DOU((MOD(COLONNE();2)=3D0)*(MIN(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MIN(B$6:G$6)))

Quelqu'un peut-il m'aider ?

NB : la troisi=E8me condition du MFC est utilis=E9e pour une autre
formule.

Merci.
Signaler un problème avec ce contenu

6 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
j
quelque chose comme (ligne 6, cellule a6 active)
=MOD(COLONNE();2)*(A$6=MAX($A$6:$F$6))
=(1-MOD(COLONNE();2))*(A$6=MIN($A$6:$F$6))

http://jacxl.free.fr


"Apitos" a écrit dans le message de news:

Bonjour,

Je cherche à colorier les grandes et les petites valeurs d'une ligne
selon que la colonne est paire ou impaire :

J'ai utilisé cette formule; mais ça n'a pas marché :

Pour les plus grandes valeurs :

=B$6=OU((MOD(COLONNE();2)=0)*(MAX(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MAX(B$6:G$6)))

Et pour les petites valeurs :

=B$6=OU((MOD(COLONNE();2)=0)*(MIN(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MIN(B$6:G$6)))

Quelqu'un peut-il m'aider ?

NB : la troisième condition du MFC est utilisée pour une autre
formule.

Merci.
Avatar
Apitos
Bonjour ,

Ce n'est pas vraiment ce que je voulais.

J'ai deux groupes :

1 - Groupe des colonnes paires
2 - Groupe des colonnes impaires

J'aimerais trouver la plus grande et la plus petite valeur pour chacun
des deux groupes.

Exemple en fichier joint.

http://cjoint.com/?kAmgMsmZBR
Avatar
Tatanka
Salut,

Essaie ces deux formules ( valider par Ctrl+Maj+Entrée )
Colonnes paires :
=MAX(SI(MOD(COLONNE(B4:G4);2)=0;B4:G4;""))
Colonnes impaires :
=MAX(SI(MOD(COLONNE(B4:G4);2)=1;B4:G4;""))

Serge


"Apitos" a écrit dans le message de news:
Bonjour ,

Ce n'est pas vraiment ce que je voulais.

J'ai deux groupes :

1 - Groupe des colonnes paires
2 - Groupe des colonnes impaires

J'aimerais trouver la plus grande et la plus petite valeur pour chacun
des deux groupes.

Exemple en fichier joint.

http://cjoint.com/?kAmgMsmZBR



Avatar
Apitos
Merci Tatanka.

J'ai ajouter ton code dans la MFC mais ca ne fonctionne pas comme
esperer ...

Bon, j'ai developpé ce code depuis la source de Daniel.C :

Mais ca n'a pas marché ...

'-------------------------------------------------------------------------- -------------------------------------
Sub MAX_MIN_Color()
Dim Plage As Range, PlageImpaire As Range, PlagePaire As Range

Dim c As Range
For Each c In [B4:G20]
Set Plage = Range("B" & c.Row, "G" & c.Row)
Set PlageImpaire = Range("B" & c.Row)
Set PlagePaire = Range("B" & c.Row)

For i = 2 To Plage.Columns.Count
If i / 2 = CInt(i / 2) Then
Set PlagePaire = Union(PlagePaire, Cells(c.Row, i))
Else
Set PlageImpaire = Union(PlageImpaire, Cells(c.Row,
i))

End If
Next

'PlagePaire.Select
'PlagePaire.Cells.Interior.ColorIndex = 4
'PlageImpaire.Select
'PlageImpaire.Cells.Interior.ColorIndex = 43

PMin = Application.WorksheetFunction.Min(PlagePaire)
PMax = Application.WorksheetFunction.Max(PlagePaire)


IPMin = Application.WorksheetFunction.Min(PlageImpaire)
IPMax = Application.WorksheetFunction.Max(PlageImpaire)

'-------------------------
With PlagePaire
L1 = .Find(PMin, LookIn:=xlValues, Lookat:=xlWhole).Row
C1 = .Find(PMin, LookIn:=xlValues, Lookat:=xlWhole).Column
L2 = .Find(PMax, LookIn:=xlValues, Lookat:=xlWhole).Row
C2 = .Find(PMax, LookIn:=xlValues, Lookat:=xlWhole).Column
End With

Cells(L1, C1).Interior.ColorIndex = 12
Cells(L2, C2).Interior.ColorIndex = 19

'-----------------

With PlageImpaire
iL1 = .Find(PMin, LookIn:=xlValues, Lookat:=xlWhole).Row
iC1 = .Find(PMin, LookIn:=xlValues,
Lookat:=xlWhole).Column
iL2 = .Find(PMax, LookIn:=xlValues, Lookat:=xlWhole).Row
iC2 = .Find(PMax, LookIn:=xlValues,
Lookat:=xlWhole).Column
End With

Cells(iL1, iC1).Interior.ColorIndex = 12
Cells(iL2, iC2).Interior.ColorIndex = 19


Next

End Sub

'-------------------------------------------------------------------------- -------------------------------------

Merci.
Avatar
Patrick BASTARD
Bonjour, *Apitos*

Sub Minimax()
Range("B4:G21").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(B4=MAX($B4;$D4;$F4);B4=MAX($C4;$E4;$G4))"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 3
End With
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=OU(B4=MIN($B4;$D4;$F4);B4=MIN($C4;$E4;$G4))"
With Selection.FormatConditions(2).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
End Sub
colorie bien les mini/max en ligne des colonnes paires ou impaires, mais
pour ce qui concerne le fond une ligne sur 2... ???

Sauf, bien sûr :
http://www.xldynamic.com/source/xld.CFPlus.Download.html
Mais attention : seulement 30 formats conditionnels possibles (lunettes de
protection obligatoires !!!).

--
Bien amicordialement,
P. Bastard

Avant d'imprimer ce mail, ayez une pensée pour les arbres.




Bonjour,

Je cherche à colorier les grandes et les petites valeurs d'une ligne
selon que la colonne est paire ou impaire :

J'ai utilisé cette formule; mais ça n'a pas marché :

Pour les plus grandes valeurs :

=B$6=OU((MOD(COLONNE();2)=0)*(MAX(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MAX(B$6:G$6)))

Et pour les petites valeurs :

=B$6=OU((MOD(COLONNE();2)=0)*(MIN(B$6:G$6));(MOD(COLONNE();
2)<>0)*(MIN(B$6:G$6)))

Quelqu'un peut-il m'aider ?

NB : la troisième condition du MFC est utilisée pour une autre
formule.

Merci.


Avatar
Apitos
Bonsoir Patrick BASTARD"

Je m'excuse du retard pour te répondre.

Ton code marche très bien.

Merci.