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

[zandru]

Bonjour,

k va se remettre à 2 à chaque bouclage de ta boucle for sur j.
Donc il ne peut augmenter.

Pour que cela ne se produise plus il faut remonter la ligne

Code :

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

k = 2

avant la boucle for.

PS : tu va surement rencontrer le même problème avec compteur.

[NulenVBA]

Merci, c'est comme si tu venais d'ouvrir une porte dans mon esprit car je comprends désormais !

Ha oui, même si je l'ai noté résolu, j'ai une question subsidiaire: est-ce que le k+1 est bien place. Si je mets le k+1 après l'incrémentation du j, cela veut dire que dès qu'on a un j supplémentaire on a une incrémentation de 1 sur k ? Et si je mets le k+1 après le i, c'est dès que i augmente de 1 ?
Merci encore à toi (à vous?)

[zandru]

Bonjour,

Dans la partie de code qui est dans la discussion, le k ne n'incrémente que si ta condition est vrai (vu que l'incrémentation est entre le if et le endif).

par contre si tu le sort du if en le laissant dans le for, il s'incrémentera autant que j.

pour voir ce qui se passe quand tu execute ton code fait une execution en pas à pas.
Debuggage >> pas à pas détaillé puis F8 pour passer d'une ligne à l'autre.
en passant ta souris sur les variable de ton code tu aura leur valeur à un instant T.

[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()
k = 2
For j = 5 To 14
compteur = 1
 For i = 3 To 86
  If Worksheets("calculs").Cells(i, j).Value > 0 Then
  compteur = compteur + 1
  Cells(compteur + 1, j - k - 1) = Worksheets("calculs").Cells(i, j - k).Value
  End If
 Next i
k = k + 1
Next j
End Sub

Resalut,

Pour moi le code correct est celui-là, avec k incrémenté à chaque j, qui fait que pour chaque j on a les i qui sont défilés, k augmente de un, et on décale le tout d'une colonne. Sauf que j'ai tout qui s'écrit dans une seule colonne, et je ne vois pas pourquoi.

Quand je fais le pas à pas détaillé, le jaune ne va pas au-delà du next i, la boucle j est comme rendue muette. une histoire d'avopir appuyé sur Entrée ?

Désolé de vous déranger encore pour des choses si simples...

[zandru]

Désolé de vous déranger encore pour des choses si simples...

C'est en comprenant les choses simples que l'on peut faire des choses compliquées.

Pour ton problème il est normal que ce soit toujours dans la même colonne, vu que j et k sont incrémenté en même temps, donc j-k-1 donne toujours le même résultat (2 si je ne me trompe).
Dans cette configuration k est inutile, et j-k-1 peut être remplacé par j-3.

Pour réaliser ton code, pose toi bien la question de ce que tu veux avoir par rapport à ce que tu a et la réponse devrait venir d'elle-même.
(Je peux difficilement t'aider pour trouver la bonne formule qui te donne la colonne vu que je ne sais pas ce que tu as en entré et ce que tu veux en sortie )

[NulenVBA]

Ha oui bonne méthode, je vais poser les choses à plat façon CP, ça a marché and ... i made it!!!, merci, je me sens trop fier de moi d'avoir trouvé la solution, avec ton aide, mais sans que tu la fournisses en entier :-)