Pour les stars en vba..... - Windows & Software
Marsh Posté le 11-03-2002 à 11:59:20
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 D
et ca m'indique un runtime 13, pource ke ca veut dire
D:D))
Marsh Posté le 11-03-2002 à 12:14:19
software et reseau, c un truc pour excel, et il y a pliein d'expliaction en dessous dans ce forum>>> me semblait donc plus simple et plus logique de poster ici....
Marsh Posté le 11-03-2002 à 11:05:32
Et ouais, on m'a prpose une solution pas mal en vba, mais le probleme c ke je pige po grand chose au vba...., or le groupe de discussion ke m'a file ce truc n'est plus dispo, je sais pas pourquoi...
Vila le code :
Sub bo()
For i = 2 To Range("a65536" ).End(xlUp).Row
Do Until Cells(i, 1) <> Cells(i + 1, 1)
If Cells(i, 2).Value > maxi Then
maxi = Cells(i, 2).Value
ligne = Cells(i, 2).Row
End If
i = i + 1
Loop
Range("a" & ligne & ":B" & ligne).Interior.ColorIndex = 3
maxi = 0
Next i
End Sub
Mais j'y pige ke dalle, et il fait pas exactement ce que je veux.....
je voudrais pouvoir surligner les donnee de la colonne qui sont de 0.5 point inferieur a la valeur maximale Et mes calculs de comparaison ce font sur les colonne D et I....
Muchas gracias
---------------
Etant philosophe, j'ai un problème pour chaque solution.