Discussion :

[cati_78]

Bonjour,

J'ai créé une macro permettant de supprimer tous les liens hypertextes éventuellement présents sur une feuille EXCEL :
=> Cells.Hyperlinks.Delete

Pour tester le code, j'ai fait un copier coller de cellules contenant un lin hypertexte.
Quand je lance la macro, les liens sont supprimés mais la mise en forme de la cellule est effacée (couleur de la cellule, bordure de la cellule,...)

Je ne sais pas comment faire pour supprimer les liens hypertexte et conserver la mise en forme des cellules.

Merci d'avance pour votre aide.

Bonjour,

J'ai testé plusieurs fois le code et je ne sais toujours pas pourquoi la syntaxe Cells.Hyperlinks.Delete supprime la mise en forme de la feuille EXCEL.

Y-a-il des méthodes pour rétablir la mise en forme (couleur, bordure,...) ?

Merci d'avance pour votre aide.

[jolop35]

Bonsoir


En rusant , cela peut fonctionner

On insère une colonne
(elle récupère le format de la colonne contenant les liens)
Puis on supprime les liens
Enfin on recopie le format sur la colonne 1, supprime la colonne 2.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub MACRO_TEST()
Dim Plg As Range
Application.ScreenUpdating = False
Columns(2).Insert
Set Plg = Range("B1:B" & [A65536].End(xlUp).Row)
Plg.Value = Rnd
ActiveSheet.Hyperlinks.Delete
Plg.Copy
Plg.Offset(0, -1).PasteSpecial xlFormats
Columns(2).Delete
Set Plg = Nothing
End Sub

A+

J.L

[cati_78]

Supposons que je ne connais pas de quelle colonne il s'agit. C'est pourquoi j'ai utilisé Cells

Y-il une autre méthode plus simple car je n'ai pas vraiment compris le code ?

Merci d'avance de bien vouloir détailler.