Effacer un lien hypertexte

[Eric D]

Bonjour à toutes et tous,

je souhaiterais un petit coup de main pour effacer un LH. je voulais le faire comme suit:

Range('E' & numl) = ''

mais il me met: la methode range de l'objet global a échoué

Merci our votre aide et bonne journée.

Eric D

 

[Bernard_XLD]

Bonjour eric D

Ce code fonctionnera si numl est correctement formaté
ton erreur ressemble plutôt à un problème de référence
si tu utilises numl en tant que numèro de ligne, celui ci doit être défini de type long car integer est limité à 32767 et il y a 65536 lignes. Egalement il faut s'assurer que numl est bien compris entre 1 et 65536, une valeur 0 sur numl fera planter un code de cellule.


With Range('E' & numl)
.Hyperlinks.Delete
.Value = ''
End With

 

[JC de Lorient]

Bonjour,

essaye plutot ça :

Range('E' & numl).Select
Selection.ClearContents

JC

 

[Eric D]

Bonjour Yeahou, JC,

je vous remercie tous deux et je vous souhaite une bonne journée moins pluvieuse qu'hier...

Eric D

 

[Eric D]

Re bonjour,

j'ai été trop rapide, vos solutions me donnent la même erreur ???

Avez vous 1 autre idée ? sinon de quoi cela pourait il provenir ?

Eric D

 

[Bernard_XLD]

Bonjour Eric D, JcdeLorient, le forum

ces codes ne devraient pas générer d'erreur, mets un fichier exemple.

Cordialement, A+

 

[Eric D]

Bonjour à toutes et à tous,

Non effectivement, tout va bien après une bonne nuit de sommeil.

Bonne journée.

Eric D