Discussion :

[PICHOUX]

Bonjour,
Depuis plus de 10 ans j'ai utilisé (au moins 100 fois) la syntaxe ci-dessous pour des Copier-Coller "xlValues"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A2:G2").Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlValues

Depuis quelques jours, j'ai perdu des heures à chercher pourquoi ce code ne fonctionnait plus (sans aucun message d'erreur).
C'est sur le présent site que j'ai trouvé sous le titre :
< Problème de copier coller en VBA
< Créée par canounours, 29/01/2015 13h08
un exemple où le passage par Select/Selection n'était pas utilisé.
J'ai donc réécrit le code ci-dessous qui fonctionne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A2:G2").Copy
Range("A5").PasteSpecial Paste:=xlValues

QUESTIONS :

1 - Je suppose que cette modif de syntaxe fait suite à une mise à jour automatique de Windows ou Office.
Mais alors comment être averti de tels changements ?

2 - J'ai aussi vu sous le même titre la syntaxe ci-dessous (groupée en 1 seule ligne):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2:G2").Copy.Range("A5").PasteSpecial Paste:=xlValues

Mais celle-ci n'a pas fonctionné. Est-elle réellement correcte ?

Merci pour votre aide

[Philippe Tulliez]

Bonjour,
Cette procédure fonctionne

Range("A2:G2").Copy
Range("O5").PasteSpecial Paste:=xlValues

Celle-ci également mais copie les formules, les valeurs et les formats

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A2:G2").Copy Range("O5")

On peut également faire l'équivalent d'un Copier/Collage Special-Valeur avec la procédure ci-dessous (suivant le même exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 Range("A2:G2").Copy Range("O5") ' Copie de la plage A2:G2 vers O5
 ' Conserve uniquement les valeurs de la plage O5:U5
 With Range("O5:U5"): .Value = .Value: End With

[PICHOUX]

Merci pour la solution "With"
Peut-être ce n'est n'est pas votre rôle, mais je serais curieux d'avoir une info sur ma question "1".
Je suis surpris de voir qu'une syntaxe devienne caduque (définir la zone à coller par une pré-sélection) sans aucune info nulle part de ce changement, à moins que ce soit moi qui ne sais pas m'informer où il faut ! ?

[Philippe Tulliez]

Bonjour,
Le bloc With que j'utilise n'a rien à voir.
Je ne vois pas de problème dans la procédure que vous avez publiée. Il doit avoir un autre problème.

[PICHOUX]

Houlà ! - La communication est difficile !

J'ai expliqué que le code ci-après plantait, sans aucun message d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Range("A2:G2").Copy
Range("A5").Select
Selection.PasteSpecial Paste:=xlValues

Mais que le 2ème fonctionnait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A2:G2").Copy
Range("A5").PasteSpecial Paste:=xlValues

merci de me l'avoir confirmé.

Vous m'avez également indiqué une autre possibilité utilisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Range("O5:U5"): .Value = .Value: End With

et je vous en ai remercié car je ne connaissais pas cette solution.

Et puis vous me répondez :"Je ne vois pas de problème dans la procédure que vous avez publiée"
J'ai publié 2 procédures, alors de laquelle parlez-vous ?
Si la 1ère utilisant "Select" et "Selection" fonctionne normalement chez vous, alors, merci de me le préciser, cela signifie alors effectivement que j'ai un pb avec "mon" Excel 13.

Apparemment vous avez mal pris cet échange, j'en suis désolé.
Meilleures salutations.

[Philippe Tulliez]

Bonjour,

Apparemment vous avez mal pris cet échange, j'en suis désolé.

Je ne vois pas où j'ai mal pris cet échange.
Je voulais dire simplement que pour moi, il n'y avait aucun problème dans les procédures publiées.
Donc celle-ci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t1()
 Range("A2:G2").Copy
 Range("A5").Select
 Selection.PasteSpecial Paste:=xlValues
End Sub

Cependant il est parfaitement inutile d'utiliser la méthode Select et l'objet Selection
Cette procédure est préférable

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub t1Bis()
 Range("A2:G2").Copy
 Range("A5").PasteSpecial Paste:=xlValues
End Sub

La procédure qui pourrait poser problème, ce serait d'utiliser la méthode Select lorsque l'on précise la feuille parente de la plage et que celle-ci n'est pas active
La procédure ci-dessous provoquerait un message d'erreur 1004 si la feuille active n'est pas le feuille nommée Feuil1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t2()
 ThisWorkbook.Worksheets("Feuil1").Range("A2:G2").Select
  Selection.Copy
  Selection.Range("A5").PasteSpecial Paste:=xlValues
End Sub

Alors que cette procédure ne provoquerait pas d'erreur.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t2Bis()
 With ThisWorkbook.Worksheets("Feuil1")
 .Range("A2:G2").Copy
 .Range("A5").PasteSpecial Paste:=xlValues
 End With
End Sub

Mais bien entendu, je privilégie celle-ci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub t3()
 With ThisWorkbook.Worksheets("Feuil1")
 .Range("A2:G2").Copy .Range("A5")
  With .Range("A5:G5"): .Value = .Value: End With
 End With
End Sub

En conclusion, ne pas utiliser les méthodes Select, Activate, etc.
C'est parfaitement inutile et gourmand en temps d'exécution.

[casefayere]

Bonsoir,
etant, bien sur, d'accord avec Philippe, j'amène mon grain de sel quand il s'agit de copier des "Value"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub t2Bis()
With ThisWorkbook.Worksheets("Feuil1")
  .Range("A5:G5") = .Range("A2:G2").Value
End With
End Sub