Discussion :

[doudou8mc]

Bonjour,

je suis débutant en vba excel, et je cherche à réaliser une macro qui parcours une colonne ("B" par exemple) d'une feuille (Feuil1 par ex) et dès qu'il trouve une valeur , il l'a renvoie dans la feuil2 dans un tableau.Puis on réitère l'opération mais en cumulant les valeurs dans la feuille 2.
Voici un exemple de code que je veux réaliser , mais sur la même feuille .Je n'arrive pas à renvoyer la valeur , et faire le cumul dans une autre feuille.

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Long, z As Byte, c As Integer
Application.ScreenUpdating = False
z = 42  
c = 0
For i = 32 To 80
If Cells(i, 13) <> "" Then
Cells(z, 25) = Cells(i, 13) + c
c = Cells(z, 25)
z = z + 1
End If: Next i

Quelqu'un peut m'aider??

Merci

[Gorfael]

Salut doudou8mc et le forum

Code :

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

1
2
3
4
5
6
7
8
9
10
Dim i As Long, z As Byte, c As Integer
Application.ScreenUpdating = False
z = 42  
c = 0
For i = 32 To 80
If Cells(i, 13) <> "" Then
Cells(z, 25) = Cells(i, 13) + c
c = Cells(z, 25)
z = z + 1
End If: Next i

Le problème pour ta macro, c'est qu'à aucun moment tu ne définis de feuille => c'est donc la feuille active qui est prise par défaut. Si j'ai bien compris, il te suffira de mettre Sheets("Feuil2").Cells(z,25), à la place de Cells(z,25) Feuil1 étant la feuille active.

Juste une remarque en passant : Je remet systèmatiquement les instructions du niveau Application à True. Même si certaines repassent à true automatiquement, elles ne le font pas toutes. Et comme ça, ça m'évite des erreurs, puisque mon code à toujours un True après un False. Mais ce n'est qu'une habitude personnelle.
A+

[laetitia]

bonjour doudou8mc le forum comme j' ai compris!!

Code :

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

1
2
3
4
5
6
7
8
9
z = 42
c = 0
With Sheets("feuil1")
For i = 32 To 80
If .Cells(i, 13) <> "" Then
Sheets("feuil2").Cells(z, 25) = .Cells(i, 13) + c
c = Sheets("feuil2").Cells(z, 25)
z = z + 1
End If: Next i: End With

edit bonjour gorfael pas rafraichi

[doudou8mc]

Merci beaucoup, ça marche . A bientôt