insérer les cellules copiées

don_pets

XLDnaute Occasionnel

• 26 Août 2015

• #2

Re : insérer les cellules copiées

'llo TimeKeeper,

j'ai absolument rien saisi ^^

Puisses-tu étayer quelque peu (l'idéal serait d'y adjoindre un exemple, bien entendu) ?

 

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 27 Août 2015

• #3

Re : insérer les cellules copiées

en faite , j'ai cherché de mon coté et j'ai reussis a faire ca

Sub CopLign() ' Copie une ligne et l'insert
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub

mais il ne fonctionne qu'avec une seul ligne
j'aurais aimer une inputbox qui me demande combien de fois je souhaite insérer la ligne (exemple 5 fois)
puis qu'il me le fais comme la macro si dessus mais 5 fois

fichier ci joint

merci

 

Pièces jointes

• Classeur1test.xlsx

  15.6 KB · Affichages: 50
• Classeur1test.xlsx

  15.6 KB · Affichages: 51

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 28 Août 2015

• #4

Re : insérer les cellules copiées

Bonjour, Personne à une idée a mon problème, ou même un début de piste pour m'orienter ??


merci

seb

 

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 28 Août 2015

• #5

Re : insérer les cellules copiées

bon finalement ma petite macro marche pas si bien

j'ai régulièrement

erreur d’exécution '1004' : La méthode Copy de la classe range a échoué.

si vous avez une solution je suis preneur

merci

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 28 Août 2015

• #6

Re : insérer les cellules copiées

Yep,

I'm back, c'était journée réunion. Bon j'ai tout de même besoin d'info complémentaires :
- Tu copies sur une même feuille ?
- quand tu veux multiplier une ligne, est-ce que tu ne prends que celle-là et pas le reste, ou prends tout le tableau ?

 

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 28 Août 2015

• #7

Re : insérer les cellules copiées

don_pets à dit:

Yep,

I'm back, c'était journée réunion. Bon j'ai tout de même besoin d'info complémentaires :
- Tu copies sur une même feuille ?
- quand tu veux multiplier une ligne, est-ce que tu ne prends que celle-là et pas le reste, ou prends tout le tableau ?

Cliquez pour agrandir...

sur la même feuille

je veux juste copier la rangé sélectionné X fois (selon besoin)

merci

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 28 Août 2015

• #8

Re : insérer les cellules copiées

ok maintenant je comprends ce que tu veux ^^

Voici un code qui devrait je l'espère répondre très favorablement à tes envies.

Code:

Rep = InputBox("Quelle référence ?")
Multi = InputBox("Combien qu't'en veux ?")
For i = 2 To Range("A6553").End(xlUp).Row

        If Cells(i, 1) = Rep Then

            derligne = Sheets("feuil1").Range("G65535").End(xlUp).Row + 1
            Range(Cells(i, 1), Cells(i, 3)).Copy Destination:=Sheets("feuil1").Range("G" & derligne).Resize(Multi)
                        
        End If
Next i

Ton résultat viendra alimenter la colonne G

 

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 28 Août 2015

• #9

Re : insérer les cellules copiées

pourrais tu essayer ceci :


Sub CopLign() ' Copie une ligne et l'insert
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
End Sub


ca correspond a ce que je veux faire (mais il ne marche qu'une fois)

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 28 Août 2015

• #10

Re : insérer les cellules copiées

Bonjour, timekeeper, don_pets, le Forum,

Un essai en pièce jointe.

A bientôt

 

Pièces jointes

• 00 - timekeeper - Sélection dupliquer insérer.xlsm

  16.3 KB · Affichages: 56

Vote positif 0 Vote négatif

T

timekeeper

XLDnaute Nouveau

• 31 Août 2015

• #11

Re : insérer les cellules copiées

Merci a tous

DoubleZero, c'est Exactement cela parfait , ca fonctionne , ca bug plus, P.A.R.F.A.I.T

encore merci

 

Vote positif 0 Vote négatif

don_pets

XLDnaute Occasionnel

• 31 Août 2015

• #12

Re : insérer les cellules copiées

Sympa ton essai oO.

J'aime beaucoup cette approche !

Fanx

 

Vote positif 0 Vote négatif