Discussion :

[amiinaa]

bonjour!
svp lorsque je fais un msg box !il m affiche tous les resultas que je veux ! mais le probleme c'est que j'ai les instructions qui sont faites par bloc !
alors lorsqu'il passe aux autres iteratiions au lieu de les afficher dans le 2eme bloc ,il reste sur le 1er et il ecrase toute valeurs deja trouvé dans cette cellule !


voila le 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
Sub test()
 
Dim nbl, nbc As Long
nbl = Feuil2.Range("B3").End(xlDown).Row - 3
nbc = Feuil2.Range("C2").End(xlToRight).Column - 2
 
For k = 0 To nbc - 1 'colonne  parcouru c_i
 
For j = 0 To nbl - 1 'ligne fixé a_j
 
For i = 0 To nbl - 1 'ligne variable a_i
 
If i <> j Then
 
If Feuil2.Cells(i + 3, k + 3) > Feuil2.Cells(j + 3, k + 3) Then
 
Feuil5.Cells(i + 2, k + 3).Value = Feuil2.Cells(i + 3, k + 3) - Feuil2.Cells(j + 3, k + 3)
 
End If
 
End If
 
Next i
  Next j
Next k
 
End Sub