Trouver le maximum sur une sélection dans une feuille Excel

[Johanna]

Bonjour,
Je vous explique le topo ;-)
Je dois programmer en VB mais je ne connais rien. Je dois écrire une procédure qui chercher et met en gras ou en rouge la cellule qui possède la plus grande valeur.
J'ai essayé de programmer quelque chose mais il y a un petit problème d'exécution. Voici mon code :

Sub Maximum()

Dim Cel As Range
Dim Val As Integer
Dim Adr As String


Val = -32767

Range("F2:N16").Select
'je dois chercher le maximum sur la plage F2:N16

For Each Cel In Selection

If Val < Cel Then
Val = Cel 'Valeur de la cellule
Adr = Cel.Address 'Adresse de la cellule
End If
Next

Range(Adr).Font.Bold = True
'La plus grande valeur est contenu dans la variable Val

End Sub

Mais bon ça ne marche pas trop, j'arrive pas à trouver ma faute... Merci pour votre aide.
A bientôt,
Johanna

 

[Lord Nelson]

Salut Johanna,

Voici une proposition de correctif :

Sub Maximum()
Dim Cel As Range
Dim ValMax As Integer
Dim Adr As String
ValMax = -32767
Range("F2:N16").Select
'je dois chercher le maximum sur la plage F2:N16
For Each Cel In Selection
If IsNumeric(Cel) Then
If ValMax < Cel Then
ValMax = Cel 'Valeur de la cellule
Adr = Cel.Address 'Adresse de la cellule
End If
End If
Next
Range(Adr).Font.Bold = True
'La plus grande valeur est contenu dans la variable Val
End Sub

J'ai remplacé Val par ValMax car Val est le nom d'une fonction VB et j'ai ajouté un test IsNumeric pour ignorer les éventuelles cellules de texte.

A+
Horatio

 

[Johanna]

Ca marche !!!!!!!!
Merci bcp