Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 VBA erreur impossible de lire la propriete pastespecial de la classe range

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

Catsnroses

XLDnaute Nouveau
Bonjour à tous,

je viens vous demander votre aide. J'ai un code vba qui me permet de copier/coller des données d'une feuille à une autre du même classeur. Le problème c'est que sur une colonne, cela me copie la formule mais je veux que cela ne copie que les valeurs présentes. J'ai essayé de modifier mon code mais cela ressort en erreur (voir l'intitulé de mon poste). Sauriez-vous ce que je dois changer pour que cela fonctionne ? Le bug a lieu sur la dernière ligne .range("S2...)

Voici mon code :
VB: 
 With Sheets("export")
    .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Copy Sheets("matrice").[C19]
    .Range("F2:F" & .Cells(.Rows.Count, "F").End(xlUp).Row).Copy Sheets("matrice").[B19]
    .Range("N2:N" & .Cells(.Rows.Count, "N").End(xlUp).Row).Copy Sheets("matrice").[F19]
    .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Copy Sheets("matrice").[D19]
    .Range("M2:M" & .Cells(.Rows.Count, "M").End(xlUp).Row).Copy Sheets("matrice").[E19]
    .Range("S2:S" & .Cells(.Rows.Count, "S").End(xlUp).Row).Copy Sheets("matrice").[G19].PasteSpecial(xlPasteValues)


Merci par avance et belle journée ensoleillée
 
Trier par date Trier par votes
Bonjour Catsnroses,

PasteSpecial doit être sur une nouvelle ligne de code :
VB: 
With Sheets("export")
    .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row).Copy
    Sheets("matrice").[C19].PasteSpecial xlPasteValues
    .Range("F2:F" & .Cells(.Rows.Count, "F").End(xlUp).Row).Copy
    Sheets("matrice").[B19].PasteSpecial xlPasteValues
    .Range("N2:N" & .Cells(.Rows.Count, "N").End(xlUp).Row).Copy
    Sheets("matrice").[F19].PasteSpecial xlPasteValues
    .Range("D2:D" & .Cells(.Rows.Count, "D").End(xlUp).Row).Copy
    Sheets("matrice").[D19].PasteSpecial xlPasteValues
    .Range("M2:M" & .Cells(.Rows.Count, "M").End(xlUp).Row).Copy
    Sheets("matrice").[E19].PasteSpecial xlPasteValues
    .Range("S2:S" & .Cells(.Rows.Count, "S").End(xlUp).Row).Copy
    Sheets("matrice").[G19].PasteSpecial xlPasteValues
End With
Application.CutCopyMode = 0
A+
 
Vote positif 0 Vote négatif
bonjour Job75,
un énorme merci, je bloquais sur quelque chose de si simple....
je te souhaites une excellent journée.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
271
AtTheOne
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
214
safranien
S
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
300
spike29
S
Z
  • Résolu(e)
Microsoft 365 Problème de combinaison entre fonctions "If Then Else" et "SelectCase"
Réponses
11
Affichages
712
Zonmé
Z
L
  • Question Question
VBA : erreur sur boucle
Réponses
2
Affichages
345
Latias
L
8
  • Question Question
XL 2021 Nom de feuille vba
Réponses
5
Affichages
501
89ric
8
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
M
  • Résolu(e)
XL 2016 Amélioration de code
Réponses
3
Affichages
723
M@xu3L
M
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
C
  • Résolu(e)
Microsoft 365 Amélioration Macro.
Réponses
7
Affichages
620
crazy
C
T
  • Question Question
XL 2016 Erreur d'exécution 1004 : Impossible de définir la propriété Hidden de la classe Range
Réponses
3
Affichages
440
Phil69970
E
  • Question Question
XL 2013 vba excel
Réponses
6
Affichages
605
sylvanu
L
  • Question Question
XL 2016 correction d'un code VBA
Réponses
7
Affichages
619
LAPIN-53
L
X
  • Question Question
XL 2016 Souci copier/coller avec un filtre.
2 3 4
Réponses
55
Affichages
4 K
Xender
X
L
  • Résolu(e)
Microsoft 365 Pb de valeur de variable entre Sub
Réponses
5
Affichages
600
loreak
L
E
  • Question Question
formulaire avec vba
Réponses
8
Affichages
875
vgendron
N
  • Résolu(e)
XL 2019 Aide sur bout de code macro
Réponses
5
Affichages
706
Bernard_XLD
L
  • Résolu(e)
XL 2019 VBA - Autofilter - Prob: Copie toute la plage sans prendre en compte le filtre
Réponses
8
Affichages
825
Lolexcel
L
S
  • Question Question
XL 2019 Problème dans un code vba
Réponses
2
Affichages
591
snoopy07
S
W
  • Question Question
XL 2021 Boucle copier-coller par nom d'en-tête de colonnes
Réponses
10
Affichages
717
whiteshark
W
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…