Remplacer dans Formula = "=SUM(A4:A10) " par = "=SUM(.Cells (4, 1): .Cells (10, 1)"

[YANN-56]

Bonsoir à ceux qui passeront par là,

J'ai essayé plein de tucs, mais le plantage était toujours au bout.
Pour cibler la plage avec "Cells" ; ici cela fonctionne bien.
Mais quant à en faire le total !!!

J'ai certainement mal utilisé les " et les & dans mes essais.

J'ai besoin de procéder de cette façon car même si
le choix de la colonne ne change pas, Le "Row" de la
dernière ligne est variable.

Ci-après la Macro:

Private Sub CommandButton1_Click()

Worksheets("COMMANDE").Cells(20, 1).Formula = "=SUM(A4:A10)"

' Pour cibler la plage à additionner; ici cela fonctionne bien.

Range(Worksheets("COMMANDE").Cells(4, 3), Worksheets("COMMANDE").Cells(10, 3)).Select
selection = "Test"

End Sub

Ci-joint le Classeur support.

J'aime bien appendre tout seul, mais là; je patine beaucoup trop!

Un peu d'aide m'aiderait bien.

Merci d'avance.

Je vous souhaite une bonne soirée.

YANN-56

 

[YANN-56]

Re : Remplacer dans Formula = "=SUM(A4:A10) " par = "=SUM(.Cells (4, 1): .Cells (10,

A Hasco et Catrice (Entre autres) qui m'ont apporté une aide
précieuse me permettant de cesser de piétiner dans mon projet.

Voici la Macro en résultant, qui marche bien
dans le cadre de ce que je voulais faire:

Private Sub CommandButton1_Click()

With Worksheets("COMMANDE")

For i = 4 To 10

.Cells(i, 3).Formula = "=" & .Cells(i, 1).Address(1, 1) & "*" & .Cells(i, 2).Address(1, 0)

Next i

.Cells(12, 3).Formula = "=SUM(" & .Range(.Cells(4, 3), .Cells(10, 3)).Address & ")"

End With

End Sub

Je joins mon Classeur modifié au cas où il puisse servir à quelqu'un.

Je vous laisse:
Je vais me faire tatouer "La cueillette des olives en basse Provence"

Bonne fin de journée,

Et encore Grand Merci sincère à vous.

YANN-56

P.S. Je n'ai pas pigé à quoi correspondent les
.Address(1, 1) et (1,0) mais je vais chercher.