bonjour,
on m’a indiqué la procédure suivante, pour supprimer sur excel, de façon simultanée, des liens hypertextes :
Sub EffacerLiens() With Selection .Hyperlinks.Delete End With End Sub
malheureusement, le systeme m’indique aussi un bug sur le premier With ???
avez vous la correction ou une autre procédure, qui marche ???
un grand merci
Bonsoir,
J’ai pas trouve le premier With
Pensez simplement que la personne qui pourrait vous répondre, ne se trouve pas assis entre votre siège et votre écran 
Hello ,
Pourquoi une macro ??
Il un bouton qui est fait pour.
Menu Accueil
celui en gras, semble etre en cause !! semble, car j’ai bêtement fait un copier/coller, car je n’y connais rien
bonjour,
et bien bizarement sans doute, …cela ne marche pas !!!
il s’agit pourtant bien de liens hypertextes, qui me renvoie sur une page internet.
je eux l’oter en cliquant droit, et couper ou supprimer. toutefois, j’en ai à peu près une centaine à supprimer, d’ou mon questionnement …
merci
surprenant que cette touche magique n’y arrive pas.
Peux tu nous mettre en copie un fichier avec une partie de ces liens ?
Bonjour,
Je pense simplement qu’avec
With selection,
il faut une selection sur le ou les liens 
un exemple avec une sélection
lien hyper.xlsm (14,3 Ko)
Oui en effet, en espérant que ce soit vraiment des liens. Du coup pas besoin de macro puisqu’il ya une gomme pour ca. Je suis bien curieux de voir le fichier 
bonjour,
peut etre ne s’agit il pas de liens hypertextes, dans le vrai sens du terme !!
dans mon petit esprit, cela en est puisqu’ils me renvoient vers une page internet, mais après tout, …certainement que non !!! merci de votre patience dans tous les cas
test.xlsm (36,5 Ko)
bonjour,
j’apprécie le fichier joint à votre réponse, et confirme son efficacité.
mais, pour mon fichier, …sniff, sniff !!
je vous joins le dit fichier. comme dit par ailleurs, peut etre qu’il ne s’agit pas de liens hypertextes, dans le vrai sens du terme .
test.xlsm (38,6 Ko)
Bonjour,
Avec le classeur, on voit un petit peu mieux
Les liens sont sur des “IMAGES” tes petits rectangles rouges
Pour tous supprimer d’un coup
Si cela doit revenir assez souvent, tu peut créer une macro avec l’enregistreur de macro en répétant la même opération 
Exemple de macro pour tout supprimer:
Sub DeleteShapes() 'sur une feuille
Dim Sh As Shape
For Each Sh In Feuil3.Shapes
Sh.Delete
Next Sh
End Sub
magique !!! tu es magique !!!
un très grand merci pour cette solution, et pour ta patience.
j’archive ta réponse, très très précieusement.
merci !!
Re,
De rien
Par contre si tu vas chaque jour pour télécharger la page des résultats,
Il y a une petite macro à faire qui ira chercher directement les données sur une feuille
Si tu es dans ce cas, dis le moi