attribution de rangs

Bonjour !
J ai 2 séries de données dans des colonnes A et B...je les regroupe dans une colonne C et je les trie par ordre croissant (voir ci dessous)


Je cherche a compter dans la colonne C : pour chaque a le nombre de b qui lui sont inférieurs
Merci à ceux qui pourront m'aider;)

s'il n'y a rien pour les distinguer, tu ne peux pas faire ce calcul une fois que tu as mis ces nombre en colonne C. c'est avant que tu dois le faire. une boucle suffit

Code:

---

1 2 3 4 5 6 7

for each valeur1 in range ("a1:a100") for each valeur2 in range ("B1:B100") if valeur1 > valeur2 then rang = rang + 1 next valeur2 msgbox rang next valeur1

---

en fait ce que je veux réellement c'est ça :

a < a < b < a < b < a < a < b < a < b < b
11 < 21 < 22 < 25 < 43 < 52 < 71 < 72 < 79 < 91 < 116
0 + 0 + 1 + 2 + 2 + 3

ca ne marche pas tel quel...
Les résultats obtenus ssont erronés et la msgbox plante...ctrl alt sup à chaque sfois.:cry:
merci

désolé; il fallait remettre rand a 0

Code:

---

1 2 3 4 5 6 7 8 9 10

For Each valeur1 In Range("a1:a100") rang = 0 For Each valeur2 In Range("B1:B100") If valeur1 > valeur2 Then rang = rang + 1 Next valeur2 MsgBox rang Next valeur1   End Sub

---

merci !
En fait j me suis trompé sur la problématique...:oops:
En fait je cherche à copier le contenu de la cellule D si la cellule C adjacente est écrite en rouge... j ai fait le code suivant mais je dois avoir un problème de condition...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim cDest As Range ' Cellule de destination       Set cDest = Range("H1") ' 1°Cellule destination     Set rS = Cells(3, 1).CurrentRegion ' le tableau de donnee commence en C1.. For Each rl In rS.Rows 'parcours les lignes du tableau de donnée source If rl.Cells.Font.ColorIndex = 3 Then cDest.Value = r2.Cells(4) ' Copie contenue colonne d Exit For End If   Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante Next   End Sub

---

Merci à ceux qui m'aideront ;)

Une erreur s'est glissée dans le code mais j ai toujours le même problème de conditions...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim cDest As Range ' Cellule de destination       Set cDest = Range("H1") ' 1°Cellule destination     Set rS = Cells(3, 1).CurrentRegion ' le tableau de donnee commence en C1.. For Each rl In rS.Rows 'parcours les lignes du tableau de donnée source If rl.Cells(3).Font.ColorIndex = 3 Then cDest.Value = rl.Cells(4) ' Copie contenue colonne d Set cDest = cDest.Offset(1, 0) 'Passe ligne suivante   End If Exit For Next   End Sub

---

merci