zebanx
XLDnaute Accro
Bonjour au forum.
Pourriez-vous svp m'indiquer un code permettant de conserver un format "centré" quand il y a suppression sur toute la feuille active des hyperliens :
- ceux-ci peuvent être placés n'importe où sur la feuille
- la cellule qui contient l'hyperlien peut être soit en TXT (string), soit en chiffres
J'ai fait quelques recherches mais rien ne convient.
Le code de suppression est on ne peut plus simple mais je ne sais pas comment préserver le format centré car systématiquement, les TXT sont allignés à gauche, les chiffres à droite.
(Et dans le fichier final, les autres cellules non "HYPERLINK" ne sont pas toutes en format centré...)
Vous en remerciant par avance,
zebanx
Pourriez-vous svp m'indiquer un code permettant de conserver un format "centré" quand il y a suppression sur toute la feuille active des hyperliens :
- ceux-ci peuvent être placés n'importe où sur la feuille
- la cellule qui contient l'hyperlien peut être soit en TXT (string), soit en chiffres
J'ai fait quelques recherches mais rien ne convient.
Le code de suppression est on ne peut plus simple mais je ne sais pas comment préserver le format centré car systématiquement, les TXT sont allignés à gauche, les chiffres à droite.
(Et dans le fichier final, les autres cellules non "HYPERLINK" ne sont pas toutes en format centré...)
Vous en remerciant par avance,
zebanx
Code:
Sub EffacerLiens()
With Sheets("TEST").Cells
.Hyperlinks.Delete
End With
End Sub