Discussion :

[NulenVBA]

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 !

[SfJ5Rpw8]

bonjour,

regarde où tu as mis l'initialisation de ta variable k .... et révise le fonctionnement d'une boucle FOR

[NulenVBA]

bon ben je n'arrive pas hélas, j'ai un cerveau pas adapté à la prog! Quelqu'un a une solution? C'est pour mon taf. Merci