Discussion :

[yasse87]

Bonjour,

Je souhaite sommer des cellules d'une feuille nommée "RM&C Production" une fois que l'utilisateur clic sur le bouton "Results" se trouvant dans une autre feuille "Use and Disposal".
J'ai essayé plusieurs codes qui ne marchent pas, ci-aprés ma derniére tentative.

Code :

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

1
2
3
4
5
6
Private Sub Results_Click()
'Calculs
ligne1 = Sheets("RM&C Production").Range("A65536").End(xlUp).Row + 1
Sheets("RM&C Production").Cells(ligne1, 9).Value = "Total"
Sheets("RM&C Production").Cells(ligne1, 10).Value = Application.WorksheetFunction.Sum(Range(Sheets("RM &C Production").Cells("J16"), Sheets("RM&C Production").Cells(ligne1 - 1, 10)))
End Sub

Pour plus de précision, j'ai un classeur composé de plusieurs feuilles. Dans chaque feuille, l'utilisateur doit rentrer un certain nombre d'information. Une fois toutes les informations renseignées, un clic sur le bouton "Results" doit faire la somme des cellules adequat dans chaque feuille. Ici, je veux sommer le premiére cellule remplie de la colonne J (J16) à la dernière cellule remplie de la colonne (Cells(ligne1 - 1, 10) .
A la compilation j'ai l'erreur "Argument ou appel de procedure incorrect". Je suis archi-débutant, pour les besoins d'un stage j'ai du me former dans le tas... Je suis incapable de trouver l'ereur même aprés plusieurs heures de recherche qui n'ont fait que m'embrouiller encore plus.

Merci de votre aide !

Trés bonne journée

[Daniel.C]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
Private Sub Results_Click()
'Calculs
With Sheets("RM&C Production")
    ligne1 = .Range("A65536").End(xlUp).Row + 1
    .Cells(ligne1, 9).Value = "Total"
    .Cells(ligne1, 10).Value = Application.WorksheetFunction.Sum(.Range("J16", .Cells(ligne1 - 1, 10)))
End With
End Sub