Discussion :

[Kalvin_20]

Bonjour à tous

Je dois effectuer un tri par valeur afin d'avoir un top5 de mes produits
j'ai ecris ce bout de code mais sa me renvoi une erreur d'execution de type '1004' La methode 'Range' de l'objet '_WoorkSheet' a echoué

voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim temp As String
Dim i, j As Integer
For i = 15 To 31
   For j = i + 1 To 31
    If (Feuil9.Range("T", i).Value < Feuil9.Range("T", j).Value) Then   'ERREUR
      Feuil9.Range("Z100").Value = Feuil9.Range("T", j).Value
      Feuil9.Range("T", j).Value = Feuil9.Range("T", i).Value
      Feuil9.Range("T", i).Value = Feuil9.Range("Z100").Value
      temp = Feuil9.Range("S", j)
      Feuil9.Range("S", j) = Feuil9.Range("S", i)
      Feuil9.Range("S", i) = temp
    End If
   Next j

Si vous pouvez m'expliquer la cause de cette erreur et si possible svp comment la resoudre

Merci à vous

[Godzestla]

Salut,

essaie ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim temp As String
Dim i, j As Integer
For i = 15 To 31
   For j = i + 1 To 31
    If (Feuil9.Range("T" & i).Value < Feuil9.Range("T" & j).Value) Then   'ERREUR
      Feuil9.Range("Z100").Value = Feuil9.Range("T" & j).Value
      Feuil9.Range("T" & j).Value = Feuil9.Range("T" & i).Value
      Feuil9.Range("T" & i).Value = Feuil9.Range("Z100").Value
      temp = Feuil9.Range("S" & j)
      Feuil9.Range("S" & j) = Feuil9.Range("S" & i)
      Feuil9.Range("S" & i) = temp
    End If
   Next j

Cordialement.

Thierry.

[Kalvin_20]

Merci

c ok