Gestion erreur suite collage

[SSP34]

Bonjour les XLnautes,

J'ai une petite macro qui efface une plage et fait un coller/valeurs ensuite.

Si j'ai fait un "copier" avant çà fonctionne.
MAIS si je ne fais pas "copier" ou que le presse papier est vide çà plante.

J'ai donc besoin de gérer l'erreur style :

' test presse papier
"Si rien dans le presse papier" alors msgBox "Rien dans le presse papier
Exit Sub

Mais je ne sais pas faire! Par avance merci pour votre aide. Pablo

Voici le code :

Sub coller_Atig()
'
'Efface puis collage spécial valeurs
'
Range("A8:A2000").Select
Selection.ClearContents
Range("A8").Select
ActiveSheet.PasteSpecial Format:="Biff4", Link:=False, DisplayAsIcon:= _
False
Range("C1").Select
End Sub

 

[Pierrot93]

Re : Gestion erreur suite collage

Bonjour pablo

tu as déjà 2 réponses ici :

https://www.excel-downloads.com/threads/gestion-erreur-avant-collage.129165/

si les réponses ne conviennent pas il est préférable de rester sur le même fil...

bon après midi
@+

 

[SSP34]

Re : Gestion erreur suite collage

Bonjour,

Excusez-moi : j'ai fait un deuxième post car après avoir validé le premier je ne le voyais pas dans la liste.

Ensuite Pierre-Jean y a répondu : je voyais "x réponses" mais en ouvrant le post je ne voyais
que mon post.

Je n'ai pas compris pourquoi.

Merci. Pablo.

 

[Pierrot93]

Re : Gestion erreur suite collage

Re,

pas de problème Pablo @+