Discussion :

[Thomas69]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jfontaine]

Tu parles de copie de ligne, mais j'ai l'impression que ton code copie une cellule. (Sauf erreur de ma part).

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Selection.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(10, 0)), _
    Type:=xlFillDefault

[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

[zazaraignée]

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...

[jfontaine]

Inspire toi de ce bout de code

i étant le nombre de copie que tu souhaites

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[zazaraignée]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Thomas69]

ca marche c'est niquel

merci du conseil