Effacer un lien hypertexte

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 26 Avril 2005

• #2

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

 

Vote positif 0 Vote négatif

J

JC de Lorient

Guest

• 26 Avril 2005

• #3

Bonjour,

essaye plutot ça :

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

JC

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 26 Avril 2005

• #4

Bonjour Yeahou, JC,

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

Eric D

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 26 Avril 2005

• #5

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

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 27 Avril 2005

• #6

Bonjour Eric D, JcdeLorient, le forum

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

Cordialement, A+

 

Vote positif 0 Vote négatif

E

Eric D

Guest

• 27 Avril 2005

• #7

Bonjour à toutes et à tous,

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

Bonne journée.

Eric D

 

Vote positif 0 Vote négatif