Fonction "+" dans Macro?

Efgé

XLDnaute Barbatruc

• 28 Décembre 2009

• #2

Re : Fonction "+" dans Macro?

Bonjour,
Peut être:
.Cells(9 + i, 4).Formula = "=" & Z & "!A41" & "+" & Z & "!A42"& "+" & Z & "!A43"& "+" & Z & "!A45"
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2009

• #3

Re : Fonction "+" dans Macro?

Bonjour



Essayes

Code:

.Cells(9 + i, 4).FormulaLocal = "=SOMME(" & Z & "!A41:A45)"

edition: bonjour Efgé

edition 2:
Perso j'écrirai ton code comme ceci

Code:

Sub test()
With Worksheets(1)
For i = [COLOR=Red]1[/COLOR] To Worksheets.Count
Z = Worksheets(i).Name
If Z Like "Feuille1" Then
.Cells(9 + i, 1) = Z
.Cells(9 + i, 2).Formula = "=" & Z & "!A55"
.Cells(9 + i, 3).Formula = "=" & Z & "!A53"
.Cells(9 + i, 4).FormulaLocal = "=SOMME(" & Z & "!A41:A45)"
ElseIf Z <> "Feuille1" Then
.Cells(9 + i, 1) = Z
.Cells(9 + i, 5).Formula = "=" & Z & "!J3"
End If
Next i
End With
End Sub

 

Dernière édition: 28 Décembre 2009

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 28 Décembre 2009

• #4

Re : Fonction "+" dans Macro?

Bonjour Staple1600,
Le piège est qu'il ne faut pas prendre A44...😉
Ce qui peut ce faire avec votre formule par
.Cells(9 + i, 4).FormulaLocal = "=SOMME(" & Z & "!A41:A43)" & "+" & Z &"!A45"
Cordialement

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 28 Décembre 2009

• #5

Re : Fonction "+" dans Macro?

Re

Exact Efgé
dans ce cas

Code:

.Cells(9 + i, 4).FormulaLocal = "=SOMME(" & Z & "!A41:A43;A45)"

😉

 

Vote positif 0 Vote négatif

K

kikim

Guest

• 28 Décembre 2009

• #6

Re : Fonction "+" dans Macro?

Re le forum,
Impecable Efgé, Staple1600,
je vous remercie infiniment
Crdt,

 

Vote positif 0 Vote négatif