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 🙄🙂🙂

 

[jeanpierre]

Re : Copier une cellule pendant X lignes

Bonjour Sophie11,

Peut-être avec en D1 : =Feuil2!K1 que tu peux tirer vers le bas.

Bonne soirée.

Jean-Pierre

 

[Staple1600]

Re : Copier une cellule pendant X lignes

Bonsoir Sophie11, jeanpierre


Comme le disait Paritec dans Lien supprimé

Un fichier exemple serait un plus pour t'aider.

 

[job75]

Re : Copier une cellule pendant X lignes

Bonsoir Sophie, salut jeanpierre, Staple,

Pas bien sûr d'avoir compris mais peut-être :

- entrer en A1 de Feuil2 la formule =$K1

- copier A1 et coller en Feuil1 sur D1

- puis tirer vers le bas.

En VBA, voici 2 possibilités :

Sub Formule()
Dim x As Long
x = 1000
Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = Sheets("Feuil2").Range("A1").FormulaR1C1 [COLOR="red"]'copie la formule de la cellule A1[/COLOR]
'Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = "=RC11" [COLOR="red"]'entre directement la formule[/COLOR]
End Sub

A+

 

[Sophie11]

Re : Copier une cellule pendant X lignes

yess job75 a parfaitement compris mais par compte ca me tire sur 1000 lignes et par exemple si j'ai que 400 lignes de la colonne C je vais avoir 600 cellules avec une valeurs en D 🙁 🙁

 

[job75]

Re : Copier une cellule pendant X lignes

Re,

Sophie, mettez bien sûr la valeur que vous voulez pour x 😀

Elle peut être le résultat d'une formule VBA... Mais je n'ai pas ma boule de cristal sous la main 🙂

A+

 

[roro69]

Re : Copier une cellule pendant X lignes

Bonsoir peut etre ceci:

Sub Formule()
Dim derli
derli = Sheets("Feuil1").Range("C65536").End(xlUp).Row
Sheets("Feuil1").Range("D1").Resize(derli).FormulaR1C1 = Sheets("Feuil2").Range("A1").FormulaR1C1
End sub

A++

 

[job75]

Re : Copier une cellule pendant X lignes

Salut roro69,

Si tu as acheté ta boule de cristal aux puces, c'est de la camelote 😀😀

A+

 

[Staple1600]

Re : Copier une cellule pendant X lignes

Bonsoir à tous


Donc sans fichier exemple 🙄

Une variante des choses déjà proposées

Sub a()
    With Sheets("Feuil1")
        .Range("D1:D" & .[C65536].End(xlUp).Row).FormulaR1C1 = "=RC11"
    End With
End Sub

roro69:
La colonne D est censée être vide
C'est la colonne C qu'il faut scanner

 

[roro69]

Re : Copier une cellule pendant X lignes

Bonsoir job et staple
Staple une vrai voyante ;enfin j'aurai encore essayé.......
Mais bon comme c'est de la camelote je retourne à mes fourneaux.....voir dans le marc......
A++

 

[job75]

Re : Copier une cellule pendant X lignes

Re,

Ah, ma boule de cristal a vu ça :

si j'ai que 400 lignes de la colonne C je vais avoir 600 cellules avec une valeurs en D 🙁 🙁

Alors peut-être compléter la macro ainsi :

Sub Formule()
Dim x As Long
x = [COLOR="Red"]Sheets("Feuil1").Range("C65536").End(xlUp).Row[/COLOR]
Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = Sheets("Feuil2").Range("A1").FormulaR1C1 'copie la formule de la cellule A1
'Sheets("Feuil1").Range("D1").Resize(x).FormulaR1C1 = "=RC11" 'entre directement la formule
End Sub

Edit : désolé Staple, je n'avais pas vu ta macro qui fait la même chose 😉

A+

 

[Staple1600]

Re : Copier une cellule pendant X lignes

Re


Job75: ta boule fonctionne mais pas tes lunettes 😀

(voir mon message de 19h58)

 

[roro69]

Re : Copier une cellule pendant X lignes

Marrant ;
Je ne vois pas trop la dif avec mon edit de 19h58.......
Bon allez à mes casseroles et je vous sert un chtiot blanc de chez moi et je trinque à votre santé
A++

 

[Staple1600]

Re : Copier une cellule pendant X lignes

Re

Je ne vois pas trop la dif avec mon edit* de 19h58.......

la différence c'est que job75 a bien déclarer en Long
et pas toi 😀

*: edit qui a suivi ma remarque dans mon message de 19h58

Attention roro69, je sens que la mauvaise humeur te guette de nouveau 😉

Sophie11
T'es ou ?

Ton problème est-il solutionné?

 

[roro69]

Re : Copier une cellule pendant X lignes

Non Non staple je suis de très bonne humeur lol
D'ailleurs à force de boire à votre santé je l'ai DIm long......😛😱

Sophie ;elle débouche.........champa (bien sur)