Sub test1009()
For i = 2 To Range("e65536" ).End(xlUp).Row
'trouve le max dans la plage
y = i
Do Until Cells(i, 5) <> Cells(i + 1, 5)
If Cells(i, 9).Value > maxi Then
maxi = Cells(i, 9).Value
ligne = Cells(i, 9).Row
End If
i = i + 1
Loop
'test dans la plage
For z = y To i
If Cells(z, 9) < (maxi - 0.5) Then
Cells(z, 9).Interior.ColorIndex = 4
Next z
maxi = 0
Next i
End Sub
 
est ce que kelkun voit une erreur la dessus (c pas de moi non plus     et ca m'indique un runtime 13, pource ke ca veut dire    ))

Si tu avais indenté, tu aurais vu qu'il manquait un End If.
 
Sub test1009()
  For i = 2 To Range("e65536" ).End(xlUp).Row
    'trouve le max dans la plage
    y = i
    Do Until Cells(i, 5) <> Cells(i + 1, 5)
      ' Dans la ligne suivante, tu fais un test  
      ' sur une variable non initialisée
      If Cells(i, 9).Value > maxi Then
        maxi = Cells(i, 9).Value
        ' Ici tu affecte une valeur à une variable
        ' qui ne sera pas utilisée
        ligne = Cells(i, 9).Row
      End If
      i = i + 1
    Loop
    'test dans la plage
    For z = y To i
      If Cells(z, 9) < (maxi - 0.5) Then
        Cells(z, 9).Interior.ColorIndex = 4
      End If  ' <- ICI
    Next z
    maxi = 0
  Next i
End Sub
 
Je travaille à un code un peu plus propre et je te l'envoie dès que j'ai le temps (cfr taff)

Ce qui m'ennuye, c'est de ne pas avoir les données sur lesquelles tu travaille.
Je vois que la colonne E doit être triée et que tu vas chercher ton max dans la colonne I mais il serait plus simple pour moi de ne pas devoir inventer des données.
Tu peux me les envoyer en mail privé.
alain.gerard@wanadoo.be (he, oui, une fois!)

Si la solution donnée t'a aidé, tu pourrais le dire...
Je voulais t'envoyer un exemple de code un peu modifié, mais j'ai besoin de tes données (réelles ou fictives, je m'en fous).
Je me sens frustré avec mon code qui attend des datas et ne demande qu'a tourner.
 
RSTP

[jfdsdjhfuetppo]--Message édité par AlainTech--[/jfdsdjhfuetppo]

Alain tech, mille pardon, mais je retrouvais plus ce post !!! si tu veux je t'envoi les donnee maintenant !!!