*Bonjour AborSta*,
.Range(A1:A10r)
a remplacer par .Range(A1:A10) (sans le "r")
Je n'arrive pas à faire fonctionner ceci:
f = "=loi.normale.inverse(.5;4;3)"
For Each c In Worksheets("Feuil1").Range(A1:A10r)
c.Activate
c.FormulaR1C1 = f
Next c
--
JLuc
Pensez a regarder ces sites très bien fait, ce sont des mines de trucs
et astuces !
http://www.excelabo.net
http://jacxl.free.fr/
http://dj.joss.free.fr/
C:Program FilesMicrosoft OfficeOffice1036VBALIST.XLS
f = "=loi.normale.inverse(,5;4;3)" For Each c In Worksheets("Feuil1").Range("A1:A10") c.FormulaLocal = f Next c
P.S. le ",5" le virgule 5 -> peut être point 5 c'est selon le séparateur décimale de ta feuille de calcul.
Salutations!
"AborSta" a écrit dans le message de news: Je n'arrive pas à faire fonctionner ceci:
f = "=loi.normale.inverse(.5;4;3)" For Each c In Worksheets("Feuil1").Range(A1:A10r) c.Activate c.FormulaR1C1 = f Next c
Bonjour AborSta,
Et ceci :
f = "=loi.normale.inverse(,5;4;3)"
For Each c In Worksheets("Feuil1").Range("A1:A10")
c.FormulaLocal = f
Next c
P.S. le ",5" le virgule 5 -> peut être point 5
c'est selon le séparateur décimale de ta feuille de calcul.
Salutations!
"AborSta" <AborSta@discussions.microsoft.com> a écrit dans le message de news: 351FD5D4-820D-4E51-B370-C94C3786E496@microsoft.com...
Je n'arrive pas à faire fonctionner ceci:
f = "=loi.normale.inverse(.5;4;3)"
For Each c In Worksheets("Feuil1").Range(A1:A10r)
c.Activate
c.FormulaR1C1 = f
Next c