Liens hypertextes à supprimer

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 :wink:

Hello ,
Pourquoi une macro ??
Il un bouton qui est fait pour.
Menu Accueil
Gomme

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

:open_mouth: 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 :face_with_raised_eyebrow:

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 :grin:

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

  • Taper F5 (pas trop fort)
  • Cliquer sur Cellules puis Objets OK
  • Taper SUPPR

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 :wink:

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
1 J'aime

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 :wink: