Supprimer en masse le texte à afficher d'un lien hypertexte Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
C
Cindy06
Membre habitué
Membre habitué
Messages : 67
Appréciation reçue : 1
Inscrit le : 16 octobre 2015
Version d'Excel : 2007 FR

Message par Cindy06 » 14 décembre 2016, 14:26

Bonjour à tous,

Je vous présente mon problème.
J'ai une colonne qui contient un lien hypertexte différent dans chaque cellule.
Mais tous ces liens ont été renommé par le mot "photo".

Je souhaite afficher seulement le lien hypertexte.
Donc manuellement il est facile de faire un clic droit sur le lien > modifier le lien hypertexte > et enlever "photo" du champ "texte à afficher".

Or je devrais le faire environ 400 fois... Et souhaiterais trouver un moyen rapide et automatique.

Vous trouverez ci-joint un échantillon de 4 liens.

Pour info j'ai essayé d'enregistrer un macro avec l'étape manuelle présentée ci-dessus, mais en vain...

Si vous avez autre chose à me proposer, c'est avec grand plaisir !! :D
Echantillon.xlsx
(10.1 Kio) Téléchargé 28 fois
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 14 décembre 2016, 15:08

A faire avec 2 fonctions, dont l'un personnalisée (macro).
Echantillon.xlsm
(16.07 Kio) Téléchargé 91 fois

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
C
Cindy06
Membre habitué
Membre habitué
Messages : 67
Appréciation reçue : 1
Inscrit le : 16 octobre 2015
Version d'Excel : 2007 FR

Message par Cindy06 » 14 décembre 2016, 15:20

Merci beaucoup pour votre aide.

Mais je n'arrive pas a reproduire la 1ère étape "=Hyperlien(A1)", le résultat affiche "#NOM?".

Savez-vous pourquoi ? :?
Avatar du membre
Steelson
Fanatique d'Excel
Fanatique d'Excel
Messages : 14'011
Appréciations reçues : 829
Inscrit le : 13 octobre 2014
Version d'Excel : 2013 FR
Téléchargements : Mes applications

Message par Steelson » 14 décembre 2016, 15:56

Il faut enregistrer une macro : Faire Alt+F11, créer un module, enregitrer la fonction, et sauvegarder le fichier en xlsm.
A la lecture il faut autorise les macros.
Function Hyperlien(cell As Range)
Hyperlien = cell.Hyperlinks(1).Address
End Function

O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸ O.o°• ♪♪♫ °º¤ø,¸¸,ø¤º°`°º¤ø,¸
PI = 3.14159 26535 89793 23846 26433 83279 50288 41971 69399 37510 58209 74944 59230 78164 06286 20899 86280

( ͡• ͜ʖ ͡• )
C
Cindy06
Membre habitué
Membre habitué
Messages : 67
Appréciation reçue : 1
Inscrit le : 16 octobre 2015
Version d'Excel : 2007 FR

Message par Cindy06 » 14 décembre 2016, 16:18

C'est parfait ! J'ai compris ! Merci beaucoup !!!
Je vais gagner un temps fou ! :)
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message