Fonction "+" dans Macro?

[kikim]

Bonjour le forum,
En faisant l'extraction de données de la feuille1 vers Feuille2 je doir rectifier la ligne 8 de façon d'afficher "=somme de !A41+!A42+!A43+!A45"
là où j'ai ecrit ???????????

With Worksheets(1)
For i = 2 To Worksheets.Count
Z = Worksheets(i).Name
If Left(Z, 17) = "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).Formula = ???????????
ElseIf Left(Z, 17) <> "Feuille1" Then
.Cells(9 + i, 1) = Z
.Cells(9 + i, 5).Formula = "=" & Z & "!J3"
End If
Next i
End With

Priere m'aider merci

 

[Efgé]

Re : Fonction "+" dans Macro?

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

 

[Staple1600]

Re : Fonction "+" dans Macro?

Bonjour



Essayes

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

edition: bonjour Efgé

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

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

 

[Efgé]

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

 

[Staple1600]

Re : Fonction "+" dans Macro?

Re

Exact Efgé
dans ce cas

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

 

[kikim]

Re : Fonction "+" dans Macro?

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