Copier coller ne fonctionne pas

[Excelced]

Bonjour,

quelqu'un pourrait me dire pourquoi j'ai le message
"La méthode Select de la classe Range à échouer"
avec ce code ?

Sub Copie_Modele()
'
' Copie les premieres lignes du modele sur la feuille créée
'
    Sheets("Modele").Rows("1:8").Select
    Selection.Copy
    Sheets("test").Rows("1:8").Select
    Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Paste

End Sub

 

[Guest]

Re : Copier coller ne fonctionne pas

Bonjour,

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

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

A+

 

[Pierrot93]

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 :

    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🙂

 

[Excelced]

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

 

[Guest]

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:

    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+

 

[Excelced]

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