K
kevinch
Guest
Bonsoir le forum,
J'ai une macro qui est censée effectuer une somme (sur la feuille synthèse) sur une plage de données indéterminée (feuille satisfaction client). J'ai réussi à la faire tourner une fois mais depuis que j'ai modifié le code je ne comprends pas le problème.
Voilà le code que j'ai en ce moment :
Public tempo7
Public m
Sub somme_valeurs_tabs()
Worksheets("Satisfaction_client").Activate
ActiveCell.SpecialCells(xlLastCell).Activate
derniereligne = ActiveCell.Row
For i = 4 To derniereligne Step 1
Cells(i, 1).Select
If ActiveCell = "" Then
End
Else
tempo7 = 0
For m = 4 To (derniereligne - 4) Step 1 ' je suis pas certain de mon "derniereligne - 4 " car ça marchait sans le " - 4" au tout début...
Cells(m, 1).Select
tempo7 = ActiveCell + tempo7
Next m
End If
Worksheets("Synthèse").Activate
Cells(3, 11) = tempo7
Next i
'
End Sub
voici le lien de mon fichier:http://cjoint.com/?hBuVe0NG4o
Merci de votre aide
A+
J'ai une macro qui est censée effectuer une somme (sur la feuille synthèse) sur une plage de données indéterminée (feuille satisfaction client). J'ai réussi à la faire tourner une fois mais depuis que j'ai modifié le code je ne comprends pas le problème.
Voilà le code que j'ai en ce moment :
Public tempo7
Public m
Sub somme_valeurs_tabs()
Worksheets("Satisfaction_client").Activate
ActiveCell.SpecialCells(xlLastCell).Activate
derniereligne = ActiveCell.Row
For i = 4 To derniereligne Step 1
Cells(i, 1).Select
If ActiveCell = "" Then
End
Else
tempo7 = 0
For m = 4 To (derniereligne - 4) Step 1 ' je suis pas certain de mon "derniereligne - 4 " car ça marchait sans le " - 4" au tout début...
Cells(m, 1).Select
tempo7 = ActiveCell + tempo7
Next m
End If
Worksheets("Synthèse").Activate
Cells(3, 11) = tempo7
Next i
'
End Sub
voici le lien de mon fichier:http://cjoint.com/?hBuVe0NG4o
Merci de votre aide
A+