copier coller qui foire ?

Pierrot93

XLDnaute Barbatruc

• 8 Novembre 2007

• #2

Re : copier coller qui foire ?

Bonjour Alucard

essaye peut être comme ci dessous, si j'ai bien compris :

Code:

Sheets("f1").Range("A1").Value = Sheets("f2").Range("A3").Value - Sheets("f3").Range("A3").Value

bon après midi
@+

 

Vote positif 0 Vote négatif

A

alucard_xs

XLDnaute Occasionnel

• 8 Novembre 2007

• #3

Re : copier coller qui foire ?

merci de ton idée par contre, comment faire pour appliquer cette formule sur toute une colonne ? j'ai essayé l'autofill mais sans succès

 

Vote positif 0 Vote négatif

B

Banzai64

XLDnaute Accro

• 8 Novembre 2007

• #4

Re : copier coller qui foire ?

bonsoir

Testé ici et Ok

Code:

Sub test()
Sheets("f1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "='f3'!RC[3]-'f2'!RC[3]"

Range("A1").AutoFill Destination:=Range("A1:A20")

End Sub

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 8 Novembre 2007

• #5

Re : copier coller qui foire ?

Bonjour le fil ,
Tant que tu est en macro, autant utiliser une boucle.
Soit tu connais le nombre de case à remplir (de 1 à 100 par exemple) et tu codes:

Code:

Dim I as Integer
For I = 1 to 100
Sheets("f1").Cells(I, 1).Value = Sheets("f2").Cells(I, 3).Value _
      - Sheets("f3").Cells(I, 3).Value
Next I

Si tu ne connais pas le nombre de cellules à traiter, il y a plusieurs (même beaucoup...) autres solutions, que nous pourrons t'indiquer en cas de besoin.
A +

 

Vote positif 0 Vote négatif

P

patte d'ours

XLDnaute Occasionnel

• 8 Novembre 2007

• #6

Re : copier coller qui foire ?

2 possibilités, parmi tant d'autres:

'Cas 1 on crée la formule puis on la tire
Sheets("feuil1").Range("A1").FormulaR1C1 = "=Feuil2!R[2]C-Feuil3!R[2]C"
Selection.AutoFill Destination:=Range("A3:A1000"), Type:=xlFillDefault


'cas2: on sélectionne la plage puis on la remplit
Range("A3:A1000").Select
Selection.FormulaR1C1 = "=Feuil2!R[2]C-Feuil3!R[2]C"


A mon avis, on ne peut pas par contre tirer sur toute la colonne dans la mesure où les feuilles 2 et 3 démarrent à la 3ème ligne et non pas à la 1ère comme la feuille 1

bonne soirée

 

Vote positif 0 Vote négatif

A

alucard_xs

XLDnaute Occasionnel

• 9 Novembre 2007

• #7

Re : copier coller qui foire ?

Dim I as Integer
For I = 1 to 100
Sheets("f1").Cells(I, 1).Value = Sheets("f2").Cells(I, 3).Value _
- Sheets("f3").Cells(I, 3).Value
Next I


-> incompatibilité de type ...

 

Vote positif 0 Vote négatif

A

alucard_xs

XLDnaute Occasionnel

• 9 Novembre 2007

• #8

Re : copier coller qui foire ?

Sub test()
Sheets("f1").Select
Range("A1").Select
ActiveCell.FormulaR1C1 = "='f3'!RC[3]-'f2'!RC[3]"

Range("A1").AutoFill Destination:=Range("A1:A20")

End Sub

-> la méthode select de la classe range a échoué ...

 

Vote positif 0 Vote négatif

A

alucard_xs

XLDnaute Occasionnel

• 9 Novembre 2007

• #9

Re : copier coller qui foire ?

c bon merci

 

Vote positif 0 Vote négatif

A

alucard_xs

XLDnaute Occasionnel

• 9 Novembre 2007

• #10

Re : copier coller qui foire ?

enfin là c'est l'autofill qui ne marche pas ...

 

Vote positif 0 Vote négatif