Formule par macro à descendre

[zeltron24]

Bonjour le forum,

Y a t il une macro me permettant d’inscrire une formule (=B3-B2) dans une cellule (C3) et via un bouton (sur formulaire) de la faire inscrire en (C4) incrémenté de 1 rangée. (C4) serait alors (=B4-B2) et ainsi de suite.
Pour etre clair, je souhaite obtenir la différence entre le résultat en (B3 - B2) , (B4-B2).......dans les cellules C3,C4,C5.... par macro.
Ceci afin d'avoir l'écart entre le premier et les suivants.

 

[Paf]

Re : Formule par macro à descendre

Bonjour

avec la méthode AutoFill de l'objet Range ( voir Aide vba)

Private Sub CommandButton1_Click()
 With Worksheets("Chrono")
    DerLig = .Range("B" & .Rows.Count).End(xlUp).Row
    .Range("C3").Formula = "=B3-B2"
    Set SourceRange = .Range("C3")
    Set fillRange = .Range("C3:C" & DerLig)
    SourceRange.AutoFill Destination:=fillRange
 End With
End Sub

A+

 

[Efgé]

Re : Formule par macro à descendre

Bonjour zeltron24, Paf

Ou xomme ceci:

Sheets("Chrono").Range("C3:C42").FormulaLocal = "=SI(B3="""";"""";B3-$B$2)"

Cordialement

 

[Paf]

Re : Formule par macro à descendre

Re et bonjour Efgé

correction à apporter :
au lieu de :.Range("C3").Formula = "=B3-B2" écrire .Range("C3").Formula = "=B3-B$2"

Mais la solution de Efgé est bien plus synthétique .

A+

Edit : finalement la méthode AutoFill ne présente pas d'intérêts !

 

[Staple1600]

Re : Formule par macro à descendre

Bonsoir à tous

ou comme ceci

Sheets("Chrono").Range("C3:C42").FormulaR1C1 = "=REPT(RC[-1]-R2C2,RC[-1]<>"""")"

voir comme cela

Sheets("Chrono").Range("C3:C42").FormulaLocal = "=REPT(B3-$B$2;B3<>"""")"

Paf
AutoFill peut présenter un intérêt pour recopier le format de la cellule

 

[zeltron24]

Re : Formule par macro à descendre

Bonsoir Paf et Efgé

Merci à vous deux cela à l'air de fonctionné seul petit souci Paf, la formule s'inscrit en C2 et me donne une erreur "#VALEUR!" car B2-B1) est faux étant donné que B1 comprend le titre.

 

[Staple1600]

Re : Formule par macro à descendre

Bonsoir aussi à toi zeltron64 !


Décidément, mon dentifrice est vraiment défectueux...
Tellement je pue de la g.... que le zeltron y me zappe dare dare
(Pourtant j'ai bien brossé plus de 3 minutes comme recommandé)

(je suppose que si tu m'as pas vu, tu n'as pas vu non plus ma formule ? )
(voir message précédent)

 

[zeltron24]

Re : Formule par macro à descendre

Bonsoir Staple1600,

J'avais comme senti une mauvaise odeur chez moi, le temps de trouver d'ou cela venait excuse mon retard à te répondre.
effectivement j'ai jappé ton message.Mille excuses mon cher ami, j'ai fait les modifs et cela fonctionne.
Bonne soirée à vous tous.
PS: J'ai acheté des jumelles afin de mieux voir les messages ;-)

 

[Paf]

Re : Formule par macro à descendre

re bonjour à tous

A ZELTRON

la formule s'inscrit en C2 et me donne une erreur "#VALEUR!" car B2-B1) est faux étant donné que B1 comprend le titre.

ben .... c'est pas possible !

.Range("C3").Formula = "=B3-B2"

A STAPLE 1600

merci pour l'info

A+

 

[zeltron24]

Re : Formule par macro à descendre

Re,

L'erreur venait de moi en changeant la formule j'avais mis C2 au lieu de C3 Tout va correctement.
Encore merci.
PS: voir fil 8 les jumelles seront vraiment utiles