IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Suppression lien hypertexte


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    71
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2008
    Messages : 71
    Par défaut
    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.

  2. #2
    Membre éclairé
    Profil pro
    Inscrit en
    Juin 2008
    Messages
    48
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2008
    Messages : 48
    Par défaut
    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

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Octobre 2008
    Messages
    71
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2008
    Messages : 71
    Par défaut
    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.

Discussions similaires

  1. Réponses: 2
    Dernier message: 29/09/2014, 12h01
  2. Suppression du lien hypertexte mailto dans un champ
    Par torobravo dans le forum Requêtes et SQL.
    Réponses: 2
    Dernier message: 04/09/2011, 21h20
  3. [vba excel] probleme concenant la suppression de lien hypertexte
    Par lumbroso dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 30/01/2007, 05h35
  4. [FLASH 5] Comment créer un lien hypertexte
    Par ajit dans le forum Flash
    Réponses: 4
    Dernier message: 30/03/2006, 12h26
  5. Liens Hypertexte simple comme en HTML ?!
    Par oazar dans le forum Flash
    Réponses: 3
    Dernier message: 17/10/2003, 00h25

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo