Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Appli_Rajouter_Click()
For j = 5 To 14
compteur = 1
For i = 3 To 86
k = 2
If Worksheets("calculs").Cells(i, j).Value > 0 Then
compteur = compteur + 1
Cells(compteur + 1, j - k - 1) = Worksheets("calculs").Cells(i, j - k - 2).Value
k = k + 1
End If
Next i
Next j
End Sub
Bonjour à vous amis Vébéistes,

Mon problème dans ce programme est que le K ne s'incrémente pas et reste fixé à 4 (k=2+2) , j'ai beau le bouger, rien ne change. Vous pouvez m'aider ?

Merci !