Discussion :

[Antipod]

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 !????

Y a-t-il un équivalent de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...)

[mayekeul]

bonjour,
essaye donc ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("xxxx").ClearContents

[Didier Gonard]

Bonjour,

Attention :

essaye donc ça
Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[mayekeul]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
dim s 
 
s=range("XXX").text
Range("XXX").ClearContents
range("XXX")=s

[Antipod]

Bonsoir bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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...
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...)

[mayekeul]

re,

on peut toujours envisager de faire comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Antipod]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

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

[mayekeul]

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

[Antipod]

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...)

[78chris]

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.