vba condition si rien à coller

[philppe27]

Bonsoir,

J'utilise le code:
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
DisplayAsIcon:=False
pour coller une sélection que j'ai précédemment copier.
Or, dans certains cas la rien n'a été copié.

Comment créer une condition dans le programme quand rien n'a été copié précédemment ?

Merci d'avance,

Cordialement

 

[PMO2]

Re : vba condition si rien à coller

Bonjour,

Essayez d'utiliser une gestion d'erreur comme dans l'exemple ci-dessous

Sub aa()
On Error Resume Next
ActiveSheet.PasteSpecial Format:="Texte Unicode", Link:=False, _
  DisplayAsIcon:=False
If Err <> 0 Then
  MsgBox "Le PasteSpecial n'a pu s'effectuer."
  Err.Clear
End If
On Error GoTo 0

  '/// suite du traitement ///
  
End Sub

Cordialement.

PMO
Patrick Morange

 

[philppe27]

Re : vba condition si rien à coller

Merci Patrick