Pour les stars en vba.....

Pour les stars en vba..... - Windows & Software

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.
Reply

Marsh Posté le 11-03-2002 à 11:05:32   

Reply

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:D:D et ca m'indique un runtime 13, pource ke ca veut dire :D:D:D))


---------------
Etant philosophe, j'ai un problème pour chaque solution.
Reply

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....


---------------
Etant philosophe, j'ai un problème pour chaque solution.
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed