Erreur 13 de type que je ne comprends pas

Résolu
vbabeginner10 -  
 vbabeginner10 -
Bonjour,

Je suis débutant sur VBA et je cherche à extraire une liste d'adresses e-mail stockée en colonne E vers mon presse-papier.

Mon code ci-dessous me renvoie une Erreur d’exécution 13 d’incompatibilité de type sur la ligne 
txt = txt & Col.Offset(0, -1) & ";"
que je ne parviens pas à comprendre : 

Sub CopyTextToClipboard()

Dim Col As Range
Dim cell As Range
Dim txt As String

Set Col = Range("E6:E400")

txt = ""

For Each cell In Col
txt = txt & Col.Offset(0, -1) & ";"
Next cell

ClipBoard_SetData txt

End Sub


Merci de votre aide !

Configuration: Windows 10 / Excel 2013

2 réponses

  1.
    jordane45 Messages postés 30427 Date d'inscription   Statut Modérateur Dernière intervention   4 831
     
    Bonjour

    Avec un .value ca devrait aider 
    Col.Offset(0, -1).value

    0
    1. vbabeginner10
       
      Bonjour jordane45,

      Merci pour ta réponse, malheureusement j'ai toujours cette erreur 13.
      0
  2. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
     
    Bonjour,

    tu fais une boucle sur une plage de cellule "E6:E400", donc tu passes de cellule en cellule avec la variable cell comme ceci: 

    txt = txt & cell & ";"

    0
    1. vbabeginner10
       
      Ça fonctionne, merci !
      0

Discussions similaires

Erreur 3005 sur France TV
Cambodgil -
JeanPierre -

6 réponses
Faiblesse des pokémon spectre
Matthias77 -
akumu -

17 réponses
Erreur de lecture sur iptv smarters
Bogs -
bazfile -

1 réponse
Problème streaming France 2
95 indomptable -
robmat2005 -

1 réponse
Erreur code 4001
contrariness -
CCMBot -

1 réponse