{VBA Excel}Copie de lignes

Version imprimable

31/07/2007, 13h57
Thomas69

{VBA Excel}Copie de lignes
Code:

1 2 FL2.Range("L" & FL2.Range("L65536").End(xlUp).Row + 1).Value = _ fl.Range("D126").Value
le code au dessus me permet de recopier une ligne
mais je voudrais savoir comment je peut faire pour recopier cette ligne x fois

car je voudrais recopier certaine ligne 12 fois et d'autres 150 fois
et ca varie

merci pour vos conseils
31/07/2007, 14h00
jfontaine

Tu parles de copie de ligne, mais j'ai l'impression que ton code copie une cellule. (Sauf erreur de ma part).
31/07/2007, 14h06
zazaraignée
Obtenu par enregistrement de macro. Le code qui suit copie le contenu de A1 dans une plage de cellules sous A1 jusqu'à A11.

Code:

Selection.AutoFill Destination:=Range("A1:A11"), Type:=xlFillDefault

La modification qui suit permet de copier 10 fois à partir de la cellule active.
Code:

1 2 Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(10, 0)), _ Type:=xlFillDefault
31/07/2007, 14h09
Thomas69

oui ce code recopie une cellule
mais dans mon programme qui est une usine a Gaz(ben oui je debute)

je dois recopier plusieurs fois la meme cellule

exemple je recopie 10 fois A5 a la suite

moi je prennais betement mon code et je le recopiais 10 fois et puis pouf ca marchait
et la j'ai decider de rendre tout ca plus beau et moins complique
donc je voulais savoir si il y avait une alternative

desoler de m'etre mal exprime
31/07/2007, 14h12
zazaraignée

Citation:

je dois recopier plusieurs fois la meme cellule

exemple je recopie 10 fois A5 a la suite

Et où est le problème ?

tu n'as qu'à mettre le nombre de ligne de destination en variable...

Inspire toi de ce bout de code

i étant le nombre de copie que tu souhaites
Code:

1 2 3 4 5 6 dim i as long i=5 FL2.Range("L" & FL2.Range("L65536").End(xlUp).Row + 1 & ":L" & & FL2.Range("L65536").End(xlUp).Row + 1 +i).Value = fl.Range("D126").Value
Je n'ai pas testé mais ca devrait être quelques chose comme ca

Moi, j'ai testé ceci. Et ça marche très bien.

Code:

1
2
3
4
5
6
7
8
    Dim nbLin As Integer, nbCol
    nbLin = InputBox("Combien de lignes contiguës ?", "Copie sur n lignes")
    If nbLin = 0 Then
        nbCol = InputBox("Combien de colonnes contiguës ?", "Copie sur n colonnes")
      Else
        nbCol = 0
    End If
    Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(nbLin, nbCol)), Type:=xlFillDefault

31/07/2007, 14h26
Thomas69

ca marche c'est niquel

merci du conseil