Prochaine feuille

Le
Denys
Bonjour à tous,

Est-il possible de remplacer dans la formule suivante "Heather" par
"FeuilleSuivante" ?

Range("B5").Select
ActiveCell.Formula = "=SUMPRODUCT(('Heather'!$B$3:'Heather'!$B
$" & DerL & "=A3)*('Heather'!$G$3:'Heather'!$G$" & DerL & "))"

Car sinon je devrai écrire cette formule une quinzaine de fois (Je ne
peux pas me servir de Array)

Merci pour votre temps

Denys
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
isabelle
Le #4701571
bonjour Denys,

For Each f In Worksheets
Sheets(f.Name).Select
Range("B5").Formula = "=SUMPRODUCT(('" & f.Name & "'!$B$3:'" & f.Name & "'!$B" & _
DerL & "£)*('" & f.Name & "'!$G$3:'" & f.Name & "'!$G$" & DerL & "))"
Next

isabelle

Bonjour à tous,

Est-il possible de remplacer dans la formule suivante "Heather" par
"FeuilleSuivante" ?

Range("B5").Select
ActiveCell.Formula = "=SUMPRODUCT(('Heather'!$B$3:'Heather'!$B
$" & DerL & "£)*('Heather'!$G$3:'Heather'!$G$" & DerL & "))"

Car sinon je devrai écrire cette formule une quinzaine de fois (Je ne
peux pas me servir de Array)

Merci pour votre temps

Denys



isabelle
Le #4701551
ps / si c'est seulement pour la feuille suivante,

Set f = Sheets(ActiveSheet.Next.Name)
MsgBox f.Name


isabelle


bonjour Denys,

For Each f In Worksheets
Sheets(f.Name).Select
Range("B5").Formula = "=SUMPRODUCT(('" & f.Name & "'!$B$3:'" & f.Name &
"'!$B" & _
DerL & "£)*('" & f.Name & "'!$G$3:'" & f.Name & "'!$G$" & DerL & "))"
Next

isabelle


Bonjour à tous,

Est-il possible de remplacer dans la formule suivante "Heather" par
"FeuilleSuivante" ?

Range("B5").Select
ActiveCell.Formula = "=SUMPRODUCT(('Heather'!$B$3:'Heather'!$B
$" & DerL & "£)*('Heather'!$G$3:'Heather'!$G$" & DerL & "))"

Car sinon je devrai écrire cette formule une quinzaine de fois (Je ne
peux pas me servir de Array)

Merci pour votre temps

Denys





MichDenis
Le #4701541
With Worksheets("FeuilleSuivante")
.Range("c5").Formula = "=SUMPRODUCT(('" & .Name & _
"'!$B$3:'" & .Name & "'!$B$" & DerL & _
"£)*('" & .Name & "'!$G$3:'" & _
.Name & "'!$G$" & DerL & "))"
End With




"Denys"
Bonjour à tous,

Est-il possible de remplacer dans la formule suivante "Heather" par
"FeuilleSuivante" ?

Range("B5").Select
ActiveCell.Formula = "=SUMPRODUCT(('Heather'!$B$3:'Heather'!$B
$" & DerL & "£)*('Heather'!$G$3:'Heather'!$G$" & DerL & "))"

Car sinon je devrai écrire cette formule une quinzaine de fois (Je ne
peux pas me servir de Array)

Merci pour votre temps

Denys
Denys
Le #4701531
Bonjour Isabelle et Denis,

Merci beaucoup encore une fois d'être venus à mon secours....

Bonne fin de journée

Denys
Publicité
Poster une réponse
Anonyme