feuille et formule

[bernardrustrel]

Bonsoir à tous

Voici mon souci: j'aimerais pouvoir appliquer uneformule:
Sheets(6).range("B2").FormulaLocal="=NBVal(B3:B100)" à mes 5 premières feuilles de mes 6 feuilles.
Hors la formule: Sheets(6).range("B2").FormulaLocal="=NBVal(Feuil1!B3:B100)
donne bien le résultat escompté.
Cependant j'aimerais pouvoir faire quelquechiose comme ce qui suit

For sh=1 to 5
Sheets(6).range("B2").FormulaLocal="=NBVal(Variable!B3:B100)
Next sh

Variable serait naturellement fonction de l'incrémentation de sh afin d'obtenir le résultat en fonction des différentes feuilles.

Merci à vous de me venir en aide
codialement

 

[nord000000]

Re : feuille et formule

Bonsoir à tous

Voici mon souci: j'aimerais pouvoir appliquer uneformule:
Sheets(6).range("B2").FormulaLocal="=NBVal(B3:B100)" à mes 5 premières feuilles de mes 6 feuilles.
Hors la formule: Sheets(6).range("B2").FormulaLocal="=NBVal(Feuil1!B3:B100)
donne bien le résultat escompté.
Cependant j'aimerais pouvoir faire quelquechiose comme ce qui suit

For sh=1 to 5
Sheets(6).range("B2").FormulaLocal="=NBVal(Variable!B3:B100)
Next sh

Variable serait naturellement fonction de l'incrémentation de sh afin d'obtenir le résultat en fonction des différentes feuilles.

Merci à vous de me venir en aide
codialement

bonjour,

ca devrait fonctionner en remplacant Variable par "Feuil" & sh

Sheets(6).range("B2").FormulaLocal="=NBVal("Feuil" & sh!B3:B100)

a tester

 

[soenda]

Re : feuille et formule

Bonsoir à tous

ou plus simplement:

Sheets(sh).Range("B2").FormulaLocal = "=NBVal(B3:B100)"

A plus

 

[bernardrustrel]

Re : feuille et formule

bonjur à tous
Désole mais j'ai essayé

Sheets(6).range("B2").FormulaLocal="=NBVal("Feuil" & sh!B3:B100)
et cela ne fonctionne pas .............
Merci encore

 

[kjin]

Re : feuille et formule

Bonjour,
1) Comme tu l'écris ça ne peut pas fonctionner
A la rigueur

Sub macro()
Dim i As Byte
For i = 1 To Sheets.Count - 1
Sheets(i).Range("B2").FormulaLocal = "=NBVal(" & Sheets(i).Name & "!B3:B100)"
Next
End Sub

Ce qui revient strictement au même que la proposition de Soenda

Voici mon souci: j'aimerais pouvoir appliquer uneformule:
Sheets(6).range("B2").FormulaLocal="=NBVal(B3:B100)" à mes 5 premières feuilles de mes 6 feuilles.
Hors la formule: Sheets(6).range("B2").FormulaLocal="=NBVal(Feuil1!B3:B100)
donne bien le résultat escompté.
Cependant j'aimerais pouvoir faire quelquechiose comme ce qui suit
For sh=1 to 5
Sheets(6).range("B2").FormulaLocal="=NBVal(Variable!B3:B100)
Next sh
Variable serait naturellement fonction de l'incrémentation de sh afin d'obtenir le résultat en fonction des différentes feuilles.

Ca mérite quelque éclaircissements; que veux tu renvoyer dans la cellule B2 de chaque feuille ? (Toutes les feuilles ?)
A+
kjin

 

[bernardrustrel]

Re : feuille et formule

Bonjour
j'ai résolu mon souci en écrivant:
For sh=1 to 5
Sheets(6).range("B2").FormulaLocal="=NBVal(" & Sheets(sh).name & "!B3:B100)
Next sh

Merci à tous pour votre aide

Cordialement

 

[kjin]

Re : feuille et formule

Bonjour,

j'ai résolu mon souci en écrivant:
For sh=1 to 5
Sheets(6).range("B2").FormulaLocal="=NBVal(" & Sheets(sh).name & "!B3:B100)
Next sh

Autant écrire simplement

Sheets(6).range("B2").FormulaLocal="=NBVal(" & Sheets(5) & "!B3:B100)

😕
A+
kjin