Discussion :

[captaine93]

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

[alsimbad]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[captaine93]

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

[captaine93]

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

[alsimbad]

désolé; il fallait remettre rand a 0

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[captaine93]

merci !
En fait j me suis trompé sur la problématique...
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[captaine93]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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