Alain tech, mille pardon, mais je retrouvais plus ce post !!! si tu veux je t'envoi les donnee maintenant !!!
AlainTech
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 :bounce:
[jfdsdjhfuetppo]--Message édité par AlainTech--[/jfdsdjhfuetppo]
AlainTech
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!)
AlainTech
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)
faldorn
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 ))
