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

-
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
Afficher la suite 

2 réponses

Messages postés
26331
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
21 septembre 2019
1792
0
Merci
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.
Commenter la réponse de jordane45
Messages postés
6220
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
21 septembre 2019
390
0
Merci
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 & ";"

Commenter la réponse de cs_Le Pivert