J
Johanna
Guest
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
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