Discussion :

[arno21600]

Bonjour,
j'espère que vous pourrez m'aider, j'ai un problème de recherche. En effet, je souhaite rechercher, la valeur maximum de ma plage sans me soucier du signe. Une fois ceci fait, je souhaites mettre la case où se trouve le max en police GRAS et ROUGE.
J'ai fais le code suivant, seulement il ne tient pas compte du signe. J'ai essayé avec Application.WorksheetFunction.Max(Abs(.....)) mais ça ne fonctionne pas.
De plus, avec mon code, une fois que ceci marchera, je pense avoir un soucis pour effectuer la mise en couleur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub MaxTab()
compteur = Application.WorksheetFunction.CountA(Range("Feuil2!B22:Feuil2!B65536"))
compt = 21 + compteur
compta = compt + 9 + 3
comptC = compta - 3
 
   'Selection de la plage de recherche
 
   For i = 8 To 48
   Range(Cells(31, i), Cells(comptC, i)).Select
  Selection.Font.Bold = False
    With Selection.Font
        .ColorIndex = xlAutomatic
        .TintAndShade = 0
    End With
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorAccent5
        .TintAndShade = 0.599993896298105
        .PatternTintAndShade = 0
    End With

'--------- C'EST ICI QUE JE BLOQUE ---------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
'ValMax = Application.WorksheetFunction.Max(Abs(...)))) FONCTIONNE PAS
 
         ValMax = Application.WorksheetFunction.Max(Range(Cells(31, i), Cells(comptC, i)))
 
       ligne = Application.Match(ValMax, Range(Cells(31, i), Cells(comptC, i)), 0)
        If IsError(ligne) Then
        MsgBox "Impossible de trouver la valeur"
        Else
        End If
 
       Range(Cells(ligne + 30, i), Cells(ligne + 30, i)).Select
 
       With Selection.Font
        .Name = "Calibri"
        .FontStyle = "Gras"
        .Size = 11
        .Strikethrough = False
        .Superscript = False
        .Subscript = False
        .OutlineFont = False
        .Shadow = False
        .Underline = xlUnderlineStyleNone
        .Color = 255
        .TintAndShade = 0
        .ThemeFont = xlThemeFontMinor
    End With
      Next i
End Sub

Merci par avance.
Bien cordialement.

[LouiMz]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
With Selection.Font 'Concerne la cellule active
    .Bold = True       'Mettre en gras
    .ColorIndex = 3   'Mettre en rouge
End With

De plus essayez ceci pour la fonction MAX:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ActiveCell.Formula = "=MAX(A1:A10)" 'Renvoie la valeur Max de la plage de cellule A1:A10 dans la cellule active

Cordialement

[arno21600]

Bonjour, et merci pour votre réponse.
J'ai bien pensé à utiliser ActiveCell.Formula, cependant, ce n'est pas possible,
car moi je veux ajouter l'option Abs pour pouvoir ignorer les signes "-" lors de la recherche du max et par exemple. Et l'ajout de Abs dans le max me donne une erreur.
D'autre part, dans un second temps, je veux colorer la cellule correspondante. Ce que vous avez marqué est juste, mais sachant que "Abs" enlève le signe, la position de la cellule n'est pas facile à retrouver. Sauf si le code s'arrête à l'emplacement où le max est trouvé. Et c'est là mon erreur.

Je modifie dans un premier temps mon code avec votre simplification de mise en forme du texte.

Salutations

[LouiMz]

Re,

A essayer cette méthode

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Range("F13").Formula = "=MAX(A1:A10)" 'On applique la formule MAX afin de trouver la valeur la plus elevée puis on la note dans la cellule F13
Range("F14").Formula = "=MIN(A1:A10)" 'On applique la formule MIN afin de trouver la valeur la plus petite puis on la note dans la cellule F14
 
If (Range("F13").value > -Range("F14").value) Then'On recupere la cellule la plus grande  (F13 > -F14)
    Cells.Find(What:=Range("F13"), After:=ActiveCell).Activate 'Puis on cherche la valeur dans la plage de cellules
Else 'Sinon la cellule F14 est la plus grande
    Cells.Find(What:=Range("F14"), After:=ActiveCell).Activate
End If
 
With Selection.Font 'Puis on effectue la mise en forme
    .Bold = True
    .ColorIndex = 3
End With

Tenez-moi au courant

Cordialement

[arno21600]

Ahhhh!!!!! C'est excellent ! Merci beaucoup ! Je voulais éviter la copie de valeur, mais ça ira bien.

Merci encore! Vous m'enlevez une sacré épine du pied.

[mercatog]

Une proposition avec la MFC à adapter

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test()
Dim MaxPos As Double, MaxNeg As Double, MaxAbs As Double
 
With Sheets("Feuil2") 'à adapter vau nom de ta feuille
    MaxPos = Application.Max(.Range("B:B")) 'J'ai pris la colonne B comme colonne de recherche
    MaxNeg = Application.Min(.Range("B:B"))
    MaxAbs = IIf(Abs(MaxNeg) > MaxPos, MaxNeg, MaxPos)
    .Range("B:B").FormatConditions.Delete
    .Range("B:B").FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=" & MaxAbs
    With .Range("B:B").FormatConditions(1)
        .Interior.Color = 255
        .Font.Bold = True
    End With
End With
End Sub