Erreur au niveau de la méthode PasteSelection
Résolu
khawla.az
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
-
khawla.az Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
khawla.az Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Erreur au niveau de la méthode PasteSelection
- Mise a niveau windows 10 - Accueil - Mise à jour
- Clé de mise à niveau windows 7 gratuit - Guide
- Iptv erreur de lecture - Forum TV & Vidéo
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo
- 4 images 1 mot niveau 10 chaperon rouge ✓ - Forum Jeux vidéo
2 réponses
Bonjour,
Evitez les select'
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
khawla.az
Messages postés
14
Date d'inscription
Statut
Membre
Dernière intervention
Merci mais le code affiche une erreur.
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 :)
Cordialement,
FlawTECH
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