Selectionner la cellule contenat la valeur max [Résolu]

Signaler
Messages postés
22
Date d'inscription
mercredi 19 décembre 2007
Statut
Membre
Dernière intervention
27 octobre 2008
-
Messages postés
22
Date d'inscription
mercredi 19 décembre 2007
Statut
Membre
Dernière intervention
27 octobre 2008
-
Bonsoir,

Je voudrais pouvoir récupérer "la cellule" qui contient la valeur max ( ou la ligne où elle se situe vue que je connais la colonne à laquelle elle appartient). Mon but étant de mettre en évidence cette cellule en la colorant.

Je sais retrouver la valeur max, mais je n'arrive pas à selectionner la cellule.

L'extrait du code que j'utilise est :
For i = 7 To 16
    Sheets("RECAP").Select
    debut = Range("E" & i).Value 
    fin = Range("F" & i).Value 
    maxi = Application.Max(Range("F" & debut & ":F" & fin)) 
Next i

j'ai essayé (entre autre) d'utiliser ma valeur maxi dans un find mais ça me met une erreur sur mon find.
 V = Cells.Find(What:=maxi).Row
Range("F" & V).Select
Selection.Interior.ColorIndex = 37

Je ne comprend pas pourquoi je n'arrive pas à récupérer le numéro de la ligne. Surtout que dans le même bout de programme j'utilise N = Cells.Find(What:=num, SearchOrder:=xlByRows).Row  est ça fonctionne.

Est-ce que quelqu'un pourrais m'aider?

1 réponse

Messages postés
22
Date d'inscription
mercredi 19 décembre 2007
Statut
Membre
Dernière intervention
27 octobre 2008

Rebonjour,


j'ai trouvé quelque chose qui permet de faire ceux que je veux. Voilà le bout de code si quelqu'un avait le même "probléme". 



For i = 7 To 16
    Sheets("RECAP").Select
    debut = Range("E" & i).Value 
    fin = Range("F" & i).Value 
    maxi = Application.Max(Range("F" & debut & ":F" & fin)) 

    Range("F" & debut & ":F" & fin).Select
    Selection.Find(What:=maxi).Select
    Range(ActiveCell.Address).Select
    Selection.Interior.ColorIndex = 37

 Next i