Copier Lignes autant de fois que le nombre indiqué dans une cellule

eriiic

XLDnaute Barbatruc

• 24 Septembre 2011

• #2

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour,

La copier par insertion :

Code:

Sub dupLigne()
       Rows("1:1").Copy
       Rows("2:" & 2 + [C1]).Insert Shift:=xlDown
End Sub

eric

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 24 Septembre 2011

• #3

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour,

Est-ce ce que tu veux ?

Code:

Sub Copier()

    Dim I As Integer

    For I = 1 To Range("C1").Value
    
        Rows(1).Copy Range("A" & I + 1)
    
    Next I
       
End Sub

Hervé.

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 24 Septembre 2011

• #4

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

bonjour à tous
et aussi

 

Pièces jointes

• Classeur1.xlsm

  15.7 KB · Affichages: 838
• Classeur1.xlsm

  15.7 KB · Affichages: 827
• Classeur1.xlsm

  15.7 KB · Affichages: 861

Vote positif 0 Vote négatif

S

sophievba

XLDnaute Junior

• 24 Septembre 2011

• #5

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour le Forum, Eriiiic, Theze, jpb388,

Merci pour vos réponses.
Après X tentatives hier soir, je n'y croyez plus.

J'ai testé vos codes et cela correspond exactement à ce que je cherchais.
Je suis trop contente. Merci beaucoup.

Dernière petite question qui n'a rien à voir avec la demande initiale.
Comment faire pour mettre une valeur par défaut (EX: OK) dans la cellule D1 si vide uniquement et si la cellule B1 est remplie.

Encore un grand merci.

Bonne journée à tous.

Sophie.

 

Vote positif 0 Vote négatif

eriiic

XLDnaute Barbatruc

• 24 Septembre 2011

• #6

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Re,

if [D1]="" and [B1]<>"" then [D1]="OK"
Si ce n'est pas la feuille par défaut modifier en [Feuil3!D1] pour les cellules concernées.

eric

 

Vote positif 0 Vote négatif

S

sophievba

XLDnaute Junior

• 24 Septembre 2011

• #7

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Re Eriiiic,

Merci pour ta réponse.

Je vais me faire tuer, alors milles excuses à l'avance.

En pensant que ca ne se faisait pas de poser des questions différentes dans un même post j'en ai ouvert un autre en parrellèle.

Je m'excuse et j'espère que tu ne m'en veux pas.

Merci pour ton aide.

Sophie.

 

Vote positif 0 Vote négatif

S

sophievba

XLDnaute Junior

• 24 Septembre 2011

• #8

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Eriiiic,

Merci beaucoup ton bout de code fonctionne.

Sophie

 

Vote positif 0 Vote négatif

S

sophievba

XLDnaute Junior

• 8 Octobre 2011

• #9

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour le forum,

Je reviens vers vous car je souhaite apporter une modification à ce code que vous m'avez gentiment fourni et qui fonctionne très bien mais que je n'arrive pas à l'adapter à mon nouveau cas, si vous pouviez m'aider SVP ?

Voilà la modification que je tente en vain de faire fonctionner.

je souhaite dupliquer la ligne à la première ligne vide autant de fois que la valeur indiquée en C1 et non sous la ligne ou se trouve la valeur en C1 comme initialement prévu car il est possible que la ligne suivante contienne déjà des données.

Et là je bloque complètement.

Je vous remercie pour votre aide et vous souhaite un bon WE.

Sophie.

 

Vote positif 0 Vote négatif

jpb388

XLDnaute Accro

• 11 Octobre 2011

• #10

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour
s'il te plait met nous ton fichier.
Pour nous c'est plus simple pour te répondre
merci
a+

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 12 Octobre 2011

• #11

Re : Copier Lignes autant de fois que le nombre indiqué dans une cellule

Bonjour


Avec ce que j'ai compris
(Cela équivaut à faire un CTRL+B)

Code:

Sub Macro1()
Range("A1:B1").Resize(Range("C1")).FillDown
End Sub

par exemple si en A1=a et B1=b et C1=10
le résultat de la macro ci-dessus sera:
La plage A1:A10 contiendra a
et la plage B1:B10 contiendra b

 

Dernière édition: 12 Octobre 2011

Vote positif 0 Vote négatif

A

Alext21

XLDnaute Nouveau

• 15 Avril 2019

• #12

Bonjour,

suite au message ci-dessus, j'essaie d'adapter cela à mon besoin sans grande réussite, je m'explique:

dans la colonne A, j'ai une liste de repère (variable).
Je souhaite dupliquer chaque repère de la colonne A en colonne C , X fois, tous les uns en dessous des autres.
En colonne B, en face chaque repère de la colonne A, j'écris le nombre de fois (le fameux X) que je veux dupliquer chaque repère.

Savez-vous comment je peux mener cela à bien svp ?

Merci d'avance

 

Vote positif 0 Vote négatif