Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

  • Initiateur de la discussion Initiateur de la discussion YANN-56
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

YANN-56

XLDnaute Barbatruc
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
 

Pièces jointes

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.
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…