importer une ligne d'une feuille vers feuille active

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #2

Re : importer une ligne d'une feuille vers feuille active

Bonjour,

peut être qu'un tout petit fichier avec modèle de donnée et résultat attendu nous aiderait à t'aider....

bonne journée
@+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #3

Re : importer une ligne d'une feuille vers feuille active

Re,

A noter tout de même, l'enregistreur de macro pourra te donner le code, sans doute à optimiser par la suite...

 

Vote positif 0 Vote négatif

S

stephaneJ

Guest

• 24 Février 2011

• #4

Re : importer une ligne d'une feuille vers feuille active

merci d avance pour votre aide

ci joint fichier

@+

 

Pièces jointes

• inserer ligne.xls

  22 KB · Affichages: 41

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #5

Re : importer une ligne d'une feuille vers feuille active

Re,

essaye ceci :

Code:

Option Explicit
Sub test()
Sheets("MACRO").Rows("2:2").Copy
Sheets("Feuil4").Rows("12:12").Insert Shift:=xlDown
End Sub

 

Vote positif 0 Vote négatif

S

stephaneJ

Guest

• 24 Février 2011

• #6

Re : importer une ligne d'une feuille vers feuille active

merci

cela fonctionne tres bien

merci

PS: ou dois je cliquer pour pour dire que cette discussion est resolu ( pas trouver le bouton resolu !!)

stephanej

 

Vote positif 0 Vote négatif

S

stephaneJ

Guest

• 24 Février 2011

• #7

Re : importer une ligne d'une feuille vers feuille active

pierrot93,

je reviens sur la macro,

la fonction m insere la ligne toujours en ligne 12, hors j aurais souhaité :

avant la cellule ou je noterais "zz", n importe ou dans la colonne A

stephanej

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #8

Re : importer une ligne d'une feuille vers feuille active

Re,

modifie comme suit :

Code:

Sub test()
Dim x As Range
Set x = Sheets("Feuil4").Columns(1).Find("zz", , xlValues, xlWhole, , , False)
If x Is Nothing Then Exit Sub
Sheets("MACRO").Rows("2:2").Copy
Sheets("Feuil4").Rows(x.Row).Insert Shift:=xlDown
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif

S

stephaneJ

Guest

• 24 Février 2011

• #9

Re : importer une ligne d'une feuille vers feuille active

merci

"n ayant pas trouver en bas de la page le RESOLU a cliquer je le note par l intitulé"

stephanej

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Février 2011

• #10

Re : importer une ligne d'une feuille vers feuille active

Re,

stephaneJ à dit:

merci
"n ayant pas trouver en bas de la page le RESOLU a cliquer je le note par l intitulé"
stephanej

Cliquez pour agrandir...

il n'y en a pas, tu le dis et c'est très bien ainsi...

bon après midi
@+

 

Vote positif 0 Vote négatif