Suppression lien hypertexte je pète les plomb
Re re re de re re bonjour le forum,
Alors suite de mes péripéties dans mes liens hypertexte. J'arrive à les créer comme il faut et tout va bien. Mais lorsque je veux les supprimer plus rien ne va car :
A mon code auto_open() j'ai demandé
Cells.Hyperlinks.Delete
Les liens sont bien supprimés mais la valeur du lien reste dans la cellule et le format de la cellule (bordure, alignement en centré) a disparu.
J'en ai marre de ces liens.
Y a t-il un moyen de supprimer le lien et la valeur qui est contenue dans la cellule tout en conservant le format de la cellule.
Merci beaucoup de votre aide,
Marky 93 qui dépasse les 27.12 de tension artérielle
Bonsoir
Essaie le code qui suit, cela supprime le texte des cellules qui contiennent un lien
(Le lien est supprimé en même temps)
Dim H1 As Object
For Each H1 In Cells.Hyperlinks
Cells(H1.Range.Row, H1.Range.Column).Value = ""
Next
Merci beaucoup Demeb, ça marche tip top.
Je suis super content car je devenais dingue.
En attendant votre code, j'avais créé du code qui reprenait le format des cellules, avec bordure, trame etc etc... Fastidieux mais ça fonctionnait.
Encore merci
Bonjour Myta et le forum,
CHez moi ça marche sans pb pourtant!!
Tous mes liens sont supprimés dés que je relance ma macro, et les nouveaux liens sont créés!!!