Erreur 13 de type que je ne comprends pas [Résolu]

Signaler
-
 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

Messages postés
29205
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
13 août 2020
2 687
Bonjour

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



Bonjour jordane45,

Merci pour ta réponse, malheureusement j'ai toujours cette erreur 13.
Messages postés
6873
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
12 août 2020
538
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 & ";"


Ça fonctionne, merci !