Copier coller ne fonctionne pas

G

Guest

Guest

• 24 Août 2011

• #2

Re : Copier coller ne fonctionne pas

Bonjour,

Tel quel rien d'évident. Mais tu peux faire la même chose sans select:

VB:

     Sheets("Modele").Rows("1:8").Copy
     Sheets("test").Rows("1:8").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

A+

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Août 2011

• #3

Re : Copier coller ne fonctionne pas

Bonsoir,

tu ne peux selectionner des lignes d'une feuille qui n'est pas active, il faut le faire en 2 temps :

Code:

    Sheets("Modele").Select
    Rows("1:8").Select

bien que les "select" soient rarement utiles en vba...

bonne soirée
@+

Aarf, très en retard moi... bonsoir Hasco🙂

 

Vote positif 0 Vote négatif

E

Excelced

Guest

• 24 Août 2011

• #4

Re : Copier coller ne fonctionne pas

Hasco, J'ai essayé aussi
je comprend pas où j'ai pu faire une erreur et surtout pourquoi ce message d'erreur

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 24 Août 2011

• #5

Re : Copier coller ne fonctionne pas

Re,

hello Pierrot,🙂

Je n'avais pas vu que les données n'étaient pas incluses dans le pasteSpecial.

correction:

VB:

    Sheets("Feuil1").Rows("1:8").Copy
    With Sheets("Feuil2")
        .Rows("1:8").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
                                  SkipBlanks:=False, Transpose:=False
    End With
    Sheets("Feuil1").Rows("1:8").Copy Sheets("Feuil2").Rows("1:8")

A+

 

Vote positif 0 Vote négatif

E

Excelced

Guest

• 24 Août 2011

• #6

Re : Copier coller ne fonctionne pas

Merci à vous deux, ça fonctionne
c'est ça quand on débute, on passe beaucoup de temps sur des choses (à priori) simples
mais à force ça va rentrer

 

Vote positif 0 Vote négatif