Hyperlinks.Delete reformate les cellules ?

Bonjour,
J'ai une macro qui formate des cellules avant l'envoi des données saisies par des l'utilisateurs. La macro procède notamment à un Hyperlinks.Delete et je m'étais aperçu que ça effaçait au passage la couleur du fond de cellule. J'avais mis ce détail de côté, mais maintenant passé en phase de tests, et ayant verrouillé ma feuille, je m'aperçois que la cellule se verrouille automatiquement à ce pas précis. Je comprends donc qu'une cellule perd tous ses formats lors du Hyperlinks.Delete !???? 8O

Y a-t-il un équivalent de

Code:

---

1 2	Range("F13").Select Selection.Hyperlinks.Delete

---

qui ne supprime pas les formats, et surtout qui ne me re-verrouille pas la cellule ?

Qui qui me propose quoi ???
Rien trouvé sur FAQ ni FORUM, alors je poste...
Merci d'avance.

Antipod
(d'avance, si je converse à contre-temps, normal je suis aux antipodes...)

bonjour,
essaye donc ça

Code:

---

Range("xxxx").ClearContents

---

Bonjour,

Attention :

Citation:

---

essaye donc ça
Code :

Code:

---

Range("xxxx").ClearContents

---

---

Efface le contenu de la cellule, Antipod à le lire voudrait simplement supprimer le lien mais en gardant les données, ce qui est courant, son souci est la perte du format global au passage !

cordialement,

Didier

oupssss
tout a fait juste

mais dans ce cas, il doit alors récuperer la valeur texte contenue dans la cellule avant d'enlever l'hyperlien pour pouvoir réafficher la valeur par la suite.

donc

Code:

---

1 2 3 4 5 6

dim s   s=range("XXX").text Range("XXX").ClearContents range("XXX")=s

---

Bonsoir bonjour,

Code:

---

1 2 3 4 5

dim s s=range("XXX").text Range("XXX").ClearContents range("XXX")=s

---

Ca enlève effectivement le lien hypertexte et conserve tout le reste, entre autres la jolie coloration bleue par défaut des liens hypertexte ainsi que le soulignement...:calim2:
Le plus important c'est que le dé-verrouillage de ma cellule subsiste, alors... y'a plus qu'à formater tout ça à mon goût... mais surtout en VBA ! Bah, je vais trouver.

Merci à tous deux,
et bonne journée.
Antipod
(si je converse à contre-temps, normal je suis aux antipodes...)

re,

on peut toujours envisager de faire comme ceci

Code:

---

1 2 3 4 5 6 7 8 9

Sub deleteHYPER()   Range("C5").Copy Range("D6").PasteSpecial xlPasteFormats Range("D6").PasteSpecial xlPasteValues Range("C5").ClearContents Range("D6").Cut Range("C5")   End Sub

---

Mêmes effets Mayekeul, coloration et "sous-lignage" qui subsistent... à cause du PasteSpecial xlPasteFormats

Non non, ton code précédent me convient bien, d'autant qu'il n'implique aucune autre cellule, et j'y ajoute juste un format neutre :

Code:

---

1 2 3 4 5 6

Dim s s = Range("F6").Text Range("F6").Font.Color = 0 Range("F6").Font.Underline = 1 Range("F6").ClearContents Range("F6") = s

---

C'est good ! :ccool:

Antipod
(si je converse à contre-temps, normal je suis aux antipodes...)

tant mieux alors

une question cependant.
Tu es sur quelle version?

Parce que moi, il ne me garde pas le format standard des hyperlink.

alors bon... je m'interroge ;)

sinon, bonne continuation

Citation:

---

Envoyé par mayekeul

une question cependant.
Tu es sur quelle version?
Parce que moi, il ne me garde pas le format standard des hyperlink.

---

Ben...2000 :?
Je voudrais pas que ça te tracasse !

Bonne nuit...
Antipod
(si je converse à contre-temps, normal je suis aux antipodes...)

Bonjour

La mise en forme des hyperliens est liée au style de cellule lien hypertexte : créé un style identique et applique le quand tu enlèves le lien.