Bonjour,
Dans un tableau, je dois, pour chaque ligne, trouver la (ou les) cellule(s) qui contien(nen)t la plus grande valeur, et cerise sur le gateau, changer la couleur de la police en rouge et la mettre en gras.
Bon, utiliser la mise en forme conditionnelle est exclus.
Le problème de ma macro : elle fonctionne, à ceci près qu'en cas de valeurs équivalentes, ce n'est que la deuxième de la ligne qui est identifiée, et uniquement celle-ci !
Mon code est le suivant :
=====================================================
For i = 1 To 11
'ici je ne traite que 11 lignes, l'idéal serait de trouver comment traiter
'la totalité d'un tableau sans avoir à mettre la valeur de la dernière ligne
Selection.FormatConditions.Delete
maxi = Application.Max(Range("$" & i & ":$" & i))
Range("$" & i & ":$" & i).Select
Selection.Find(What:=maxi).Select
Range(ActiveCell.Address).Select
Selection.Interior.ColorIndex = 37
Selection.Font.ColorIndex = 3
Next i
=====================================================
Merci à ceux qui pourront m'aider !
L.
Dans un tableau, je dois, pour chaque ligne, trouver la (ou les) cellule(s) qui contien(nen)t la plus grande valeur, et cerise sur le gateau, changer la couleur de la police en rouge et la mettre en gras.
Bon, utiliser la mise en forme conditionnelle est exclus.
Le problème de ma macro : elle fonctionne, à ceci près qu'en cas de valeurs équivalentes, ce n'est que la deuxième de la ligne qui est identifiée, et uniquement celle-ci !
Mon code est le suivant :
=====================================================
For i = 1 To 11
'ici je ne traite que 11 lignes, l'idéal serait de trouver comment traiter
'la totalité d'un tableau sans avoir à mettre la valeur de la dernière ligne
Selection.FormatConditions.Delete
maxi = Application.Max(Range("$" & i & ":$" & i))
Range("$" & i & ":$" & i).Select
Selection.Find(What:=maxi).Select
Range(ActiveCell.Address).Select
Selection.Interior.ColorIndex = 37
Selection.Font.ColorIndex = 3
Next i
=====================================================
Merci à ceux qui pourront m'aider !
L.