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.