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