question toute bête, mais bon...

[satwaf]

Bonjour à tous,

j'utilise un code macro du genre range("A3").value=range("A1").value
ce qui fait gagner un temps plutot que de faire du copier coller, et ma question est de savoirsi il existe une equivalence pour les formules du genre:

range("a3")formule = range("a1")formule

je précise je suis novice dans la programmation vb

 

[Bebere]

Re : question toute bête, mais bon...

bonjour satwaf
ce n'est pas bête de poser des questions
range("a3").formula= Range("A1").Formula
normalement si tu tapes le point tu as un menu qui apparaît
le contenu change suivant ce que tu tapes
à bientôt

 

[satwaf]

Re : question toute bête, mais bon...

Merci Bebere , je viens d'essayer le seul truc c'est que dans la cellule A3 il me donne le resultats de la cellule A1 (exemple si je mets a1=somme(b1:c1) je lance la macro et en A3 j'ai somme(b1:c1)) j'esperai que j'aurai en a3 somme(b3:c3)
y a t-il une solution?

 

[13GIBE59]

Re : question toute bête, mais bon...

Bonjour saywaf, bebere.

satwaf, dans ton cas, si je comprends bien, il faut faire une boucle :

Sub tatata
For i = 1 To 1000 '(exemple)
Range("A"&i).Value = Range("B"&i).Value + Range("C"&i).Value
Next i
End Sub

J'espère que cela te conviendra.

 

[satwaf]

Re : question toute bête, mais bon...

Merci a tous pour la rapidité à laquelle vous avez répondu...

 

[ROGER2327]

Re : question toute bête, mais bon...

Re…

Merci Bebere , je viens d'essayer le seul truc c'est que dans la cellule A3 il me donne le resultats de la cellule A1 (exemple si je mets a1=somme(b1:c1) je lance la macro et en A3 j'ai somme(b1:c1)) j'esperai que j'aurai en a3 somme(b3:c3)
y a t-il une solution?

Pour combler votre espérance, il suffit d'écrire :

Range("A3").FormulaR1C1 = Range("A1").FormulaR1C1

​

ROGER2327
#5262

Dimanche 8 Merdre 138 (Cocuage de Monsieur le Père Ubu - fête Suprême Seconde)
6 Prairial An CCXIX, 5,6029h - mélisse
2011-W21-3T13:26:49Z

 

[Bebere]

Re : question toute bête, mais bon...

bonjour Roger,Gibe
pour ta documentation,le tout regroupé
Sub tatata
Dim L As Long

For L = 1 To 20
'Range("A1").FormulaR1C1 = "=Sum(LC(" & L & "):LC(" & L & "))"
'Range("A" & L).Value = Range("B" & L).Value + Range("C" & L).Value
'Range("A" & L).value = "= Sum(B" & L & ":C" & L & ")"'résultat
'Range("A" & L).Formula = "= Sum(B" & L & ":C" & L & ")"'formule
'Range("A" & L).FormulaLocal = "= Somme(B" & L & ":C" & L & ")"'formule
Range("A" & L).Formula = Evaluate("= Sum(B" & L & ":C" & L & ")") 'résultat
Next

End Sub