Copier une cellule pendant X lignes

[Sophie11]

Bonjour 😛, J'ai une cellule (A1) qui a pour formule "=K1" qui se trouve dans ma feuille 2.
Je voudrais coller ma formule sur ma feuille 1 en D1 et la dupliquer en D2, D3, D4..., Dx où x est mon nombre de ligne (je pensais à faire un AutoFill)
Je ne sais pas comment m'y prendre à savoir que ma formule est variable et changera sur toute les lignes avec par exemple en D2 =K2, D3 =K3; D4 =K4 etc...


Merci d'avance 🙄🙂🙂

 

[Sophie11]

Re : Copier une cellule pendant X lignes

yessss thank you vous etes trop fort!!! Effectivement si j'ai indiqué mon nombre de lignes par X c'est que je ne la connais pas... mais grace à votre formule ca marche impec... 🙂 🙂
Par contre si je veux dupliquer 2 cellules, j'ai une erreur, je pensais faire le code ci-dessous mais j'ai une error :

Sub Formule()
Dim x As Long
x = 1000
Sheets("Feuil1").Range("D1:E1").Resize(x).FormulaR1C1 = Sheets("Feuil2").Range("A1:B1").FormulaR1C1
End Sub

 

[Sophie11]

Re : Copier une cellule pendant X lignes

J'ai trouvé, je rajoute juste une 2ieme ligne héhé 😛😛 Votre est trés précieuse pour moi 😉 Merciiii

Sub Formule()
Dim x As Long
x = 1000
Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = Sheets("Feuil2").Range("A1").FormulaR1C1
Sheets("Feuil1").Range("E1").Resize(x).FormulaR1C1 = Sheets("Feuil2").Range("B1").FormulaR1C1
End Sub

Par contre, vos codes m'ont donné une idée, en fait mes formules ne changeront jamais donc si il est possible de les integrer directement dans le code sans serait encore plus propre (je n'aurais plus besoin d'utiliser ma feuille2.

Donc si je fais :
Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = "ma_fantastique_formule"
J'obtient une error ??? 😱😱😱😱


😛 😛

 

[roro69]

Re : Copier une cellule pendant X lignes

Bonjour
A quoi correspond:"ma_fantastique_formule"
A++

 

[job75]

Re : Copier une cellule pendant X lignes

Bonjour Sophie, le fil,

Donc si je fais :
Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = "ma_fantastique_formule"
J'obtient une error ??? 😱😱😱😱

😛 😛

Comme le suggère roro69, il faut que le texte de la formule qu'on veut entrer soit acceptable pour Excel, on ne peut pas écrire n'importe quoi 😉

Pour être sûr de la formule, le mieux est d'abord de l'entrer dans une cellule (A1) et de lancer cette macro :

Sub AfficheFormule()
MsgBox Range("A1").FormulaR1C1
End If

On obtient ainsi la bonne syntaxe VBA.

Comme il faut mettre la formule entre guillemets " ", s'il y a dans la formule des guillemets, il faut les doubler.

Donc pas mal de pièges à éviter 🙂

A+

 

[Staple1600]

Re : Copier une cellule pendant X lignes

Bonjour à tous


Pourquoi passer par un Resize ?

Sub Formule()
Dim formu_1$, formu_2$, x As Long
formu_1 = "=ROW()^2"
formu_2 = "=TODAY()-ROW()"
With Sheets("Feuil1")
x = .UsedRange.Rows.Count
    .Range("D1:D" & x).Formula = formu_1
    .Range("E1:E" & x).Formula = formu_2
End With
End Sub

EDITION: pour mon plaisir, le même résultat que ci-dessus mais autrement

Sub Formule_avec_endives()
Dim formu_1$, formu_2$, x As Long
formu_1 = "=ROW()^2"
formu_2 = "=TODAY()-ROW()"
    With Sheets("Feuil1")
    x = .UsedRange.Rows.Count
        With .Range("D1:D" & x)
        .Formula = formu_1
        .Offset(, 1).Formula = formu_2
        End With
    End With
End Sub

 

[Sophie11]

Re : Copier une cellule pendant X lignes

ca marche trés trés bien. 🙂
Super la formule MsgBox Range("A1").FormulaR1C1 astucieux...

Vos codes sont géniaux.... j'ai beaucoup appris et cela grace à vous 😉 😉
MERCI MERCI 😛 😛 😛