Microsoft 365 VBA: PasteSpecial refuse de fonctionner

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #2

Bonjour.
Peut être n'y a-t-il rien de copié ? Cela peut être vérifié en testant Application.CutCopyMode
Personnellement je préfère RgnCbl.Value = RngSrc.Value plutôt que RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #3

Bonjour,
Si, la copie est bien faite.

Dranreb à dit:

Personnellement je préfère RgnCbl.Value = RngSrc.Value plutôt que RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues

Cliquez pour agrandir...

Je ne comprends pas tout à fait: je n'utilise pas RngSrc.Copy: RngCbl.PasteSpecial xlPasteValues!
Comment est-ce que j'intègre ce code dans le mien dont l'enregistreur macro est à l'origine?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #4

RngCbl et RngSrc sont les expressions Range qui doivent représenter les plages cible et source.

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #5

Re,

Voici une partie de mon code:

VB:

Do While fnames <> ""
    Set wbQuelle = Workbooks.Open(fnames)
  
    For n = 1 To wbQuelle.Sheets.Count
        wbQuelle.Sheets(n).Activate
  

'Copier et trier saisies

wbQuelle.Sheets(n).Activate
  
    
  Range("A5:A65").Select
  Selection.Copy
  wbZiel.Sheets("Saisies").Activate
      
' Vider les cellules vides considérées comme non vides
Dim zelle As Range
For Each zelle In ActiveSheet.UsedRange.Cells
      If Not zelle.HasFormula Then
           If Not IsEmpty(zelle) And zelle.Value = "" Then
           zelle.ClearContents
           End If
      End If
Next
  
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row

    'Range("A" & lastRow + 1).Select
    Range("A" & lastRow + 1 & ":A" & lastRow + 62).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

C'est donc tout en bas du code que cela cloche.
J'avais encore essayé de sélectionner toutes les cellules de destination pour la copie, sans effet.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #6

Essayez d'écrire tout ça sans utiliser Selection ni Select et Activate.
Déclarez plutôt des variables As Range initialisées par des Set

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #7

En allemand il y a une expression dont je ne connais pas d'équivalent aussi poignant et bref en français: "gewusst wie", ce qui signifie qu'on est d'accord avec son interlocuteur, mais qu'on ne sait pas comment s'y prendre.

Je ne suis pas bien fort en VBA: la preuve: j'utilise l'enregistreur.

Ce que je ne comprends pas: pourquoi le code fonctionne-t-il avec F8 mais pas en exécution normale?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #8

Je ne sais pas non plus. Peut être le ClearContents annule le Copy. Il est fait un peu trop tôt je trouve.

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #9

Alors il devrait l'annuler aussi avec F8!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #10

Je vous indiquerais comment je l'écrirais sur votre classeur joint.

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #11

Lorsque je mets le code qui vide les cellules apparemment vides en remarque alors il tourne!
Vous avez donc raison!

Seulement, si je le mets plus tard, lastrow ne renverra pas la bonne valeur!

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #12

quel classeur? je n'en ai pas joint à ce thème!

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 17 Mars 2021

• #13

C'est justement le problème !

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #14

ok
je vais en fabriquer un le plus près possible de la réalité.
A+

 

Vote positif 0 Vote négatif

A

Aloha

XLDnaute Accro

• 17 Mars 2021

• #15

Voici 2 fichiers, le fichier source (Septembre...) et le fichier destination (Base).
Le fichier source doit se trouver dans un dossier nommé "ToBeCopied"
Le code se trouve dans le module 2.
Vous y trouverez des éléments qui n'ont rien à voir avec cette tâche-ci; ignorez-les.

Il n'est pas encore complet:
il faut encore, après le triage, copier le nom en U1 dans le fichier source et le nom du service en AW1 et les coller dans le fichier destination en C et en D.

 

Pièces jointes

• Septembre 2020 Service 1.xlsx

  300.1 KB · Affichages: 11
• Base.xlsx

  99.3 KB · Affichages: 4

Vote positif 0 Vote négatif