Discussion :

[maymou27]

Bonjour
j'ai un tableau dans une feuille qui admet les donnée et un tableau dans une autre feuille qui va trier les donnée!
Aprés avoir verifier des conditions,je voulais trier les données d'une colonne, j'ai créer un macro qui va verifier les conditions mais mon probléme c'est d'identifier le numéro de la ligne qui verifie ces conditions, grace à ce numéro de la ligne je peu trier les données de la colonne.
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
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Sub Tempdetraitement()
 
'enlever le calcul automatique d'Excel
Application.Calculation = xlCalculationManual
 
' désactication du rafraichissement de l'écran pendant la macro
Application.ScreenUpdating = False
 
Dim m As Integer
Dim n As Integer
Dim x As Integer
m = 0
 
n = 11
While Sheets("ANALYSIS").Cells(n, 1).Value <> "F"
m = m + 1
n = n + 1
Wend
 
Dim j As Integer
m = m + 11
For k = 11 To m
For j = 2 To Sheets("ANALYSIS").Cells(7, 5).Value
If Sheets("ANALYSIS").Cells(2, 5).Value = Sheets("DATA").Cells(j, 53).Value And Sheets("ANALYSIS").Cells(5, 5).Value = Sheets("DATA").Cells(j, 54) And Sheets("ANALYSIS").Cells(6, 5).Value = Sheets("DATA").Cells(j, 51) And Sheets("ANALYSIS").Cells(11, 2).Value = Sheets("DATA").Cells(j, 34) Then
x = j
j = j + 1
End If
Sheets("ANALYSIS").Cells(k, 18).Value = Sheets("DATA").Cells(x, 48).Value
k = k + 1
Next
 
Next
'remettre le calcul automatique
Application.Calculation = xlCalculationAutomatic
 
'rafraichissement de l'écran pendant la macro
Application.ScreenUpdating = True
 
 
End Sub

[Bear the french]

Bonsoir maymou27,

Un conseil, indentes ton code (décalage des paragraphes pour faciliter la lecture).

A première vue, il te faut rajouter quelques .Value :

Code :

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

1
2
3
4
5
6
7
8
9
10
For k = 11 To m
    For j = 2 To Sheets("ANALYSIS").Cells(7, 5).Value
        If Sheets("ANALYSIS").Cells(2, 5).Value = Sheets("DATA").Cells(j, 53).Value And Sheets("ANALYSIS").Cells(5, 5).Value = Sheets("DATA").Cells(j, 54).Value And Sheets("ANALYSIS").Cells(6, 5).Value = Sheets("DATA").Cells(j, 51).Value And Sheets("ANALYSIS").Cells(11, 2).Value = Sheets("DATA").Cells(j, 34).Value Then
            x = j
            j = j + 1
        End If
        Sheets("ANALYSIS").Cells(k, 18).Value = Sheets("DATA").Cells(x, 48).Value
        k = k + 1
    Next
Next

Dans ton code ci dessus, j'ai compris qu'il faut que les 4 conditions soient vraies pour incrémenter j et modifier la valeur de x :

Code :

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

1
2
3
4
Sheets("ANALYSIS").Cells(2, 5).Value = Sheets("DATA").Cells(j, 53).Value
Sheets("ANALYSIS").Cells(5, 5).Value = Sheets("DATA").Cells(j, 54).Value
Sheets("ANALYSIS").Cells(6, 5).Value = Sheets("DATA").Cells(j, 51).Value
Sheets("ANALYSIS").Cells(11, 2).Value = Sheets("DATA").Cells(j, 34).Value

Remarque 1 : Ce qui signifie que si la boucle IF ne s'applique pas, x reste le même et tu dupliques les résultats avec

Code :

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

Sheets("ANALYSIS").Cells(k, 18).Value = Sheets("DATA").Cells(x, 48).Value

Remarque 2 : tu incrémentes deux fois ton k à travers ton FOR NEXT et k=k+1

Code :

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

1
2
3
4
5
6
For k = 11 To m
    For j = 2 To Sheets("ANALYSIS").Cells(7, 5).Value
    ...
        k = k + 1
    Next
Next

Remarque 3 : il y a quoi dans Sheets("ANALYSIS").Cells(7, 5).Value ?

Si tu peux nous joindre un classeur en exemple ?

Bertrand