Erreur au niveau de la méthode PasteSelection [Résolu]

2 réponses

Salut je veux copier une feuille à la fin d'une autre feuille. j'ai réallisé ce code mais il affiche une erreur au niveau de la méthode pasteSpecial.Merci

<code>Sub Copier()
Dim Sh As Worksheet, ws As Worksheet
Dim LastRow As Integer
Set ws = Sheets("MAI")
 Set Sh = Sheets("April")
LastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row
 ws.Cells.Copy
 With Sh
 Range("A" & LastRow).Select
   Selection.PasteSpecial, Paste:=xlValues ' Operation:=xlNone, SkipBlanks:=False, Transpose:=False
  
 End With
 End Sub

</code>

Tag:

A voir également:

Forum

A voir également:Erreur au niveau de la méthode pasteselectionErreur au niveau du profil chrome - Forum - Google Chrome Erreur au niveau de la caméra ✓ - Forum - Android Google chrome problème ✓ - Forum - Google Chrome Problème avec google chrome ✓ - Forum - Google Chrome Erreur au niveau de la caméra impossible d'établir une connexion avec la caméra - Forum - Android

Web: www.shapebootstrap.net

2 réponses

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Evitez les select'

Sub Copier()     Dim Sh As Worksheet, ws As Worksheet     Dim LastRow As Long          Set ws = Sheets("MAI")     Set Sh = Sheets("April")     ws.Cells.Copy Sh.Range("A" & .Cells(Rows.Count, "A").End(xlUp).Row) End Sub

réponses:

auteur on 10 juil. 2018 à 11:46

Merci mais le code affiche une erreur.

Marsh

NOVEMBER 9, 2013 AT 9:15 PM

Bonjour,

Pour copier une feuille entière vers une autre feuille, il est obligatoire que la destination de la copie soit la première cellule d'une feuille (en l'occurence A1).

Il faudrait donc, au lieu de copier la feuille entière, copier uniquement les valeurs qui t'intéressent (en cherchant où se trouve la dernière ligne/colonne occupée et de coller cette selection).

Voici ton code adapté, en assumant que le contenu à copier est un tableau commençant en A1.
Au passage, j'en ai profité pour corriger et simplifier ton code, sinon le contenu collé allait écraser la dernière ligne de l'autre feuille :)

Sub Copier() Dim Sh As Worksheet, ws As Worksheet Dim LastRow, lRow, lCol As Long Set ws = Sheets("MAI") Set Sh = Sheets("April") LastRow = Sh.Cells(Rows.Count, "A").End(xlUp).Row  With ws lRow = .Range("A" & .Rows.Count).End(xlUp).Row ' Dernière ligne du tableau lCol = .Cells(1, .Columns.Count).End(xlToLeft).Column ' Dernière colonne du tableau .Range("A1", .Cells(lRow, lCol)).Copy ' On copie le tableau End With  Sh.Range("A" & LastRow + 1).PasteSpecial Paste:=xlPasteValues ' Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub

Cordialement,

FlawTECH

fhppbpibapeh-9fpoh
Ok, le clavier fonctionne, parfait.

réponses:

auteur on 10 juil. 2018 à 11:40

Bonjour,
En effet, j'ai un peu oublie la chose
auteur on 10 juil. 2018 à 11:47

Merci bien le code ça fonctionne très bien.c'est ce que je veux .

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *