lien hypertexte

[lolo44]

Bonjour,
J'ai une liste de 500 noms sur une colonne. Chaque cellule possède un lien hypertexte. Comment faire pour tous les supprimer en même temps et nom les supprimer un par un.
Merci de votre aide

 

[roro69]

Re : lien hypertexte

Bonsoir
Essaye ceci
ActiveSheet.Hyperlinks.Delete
Bonsoir et bonne soirée

 

[jeanpierre]

Re : lien hypertexte

Bonsoir le fil,

Pas d"exemple sous la main, mais avec selection de la colonne et un petit Suppr...

 

[JCGL]

Re : lien hypertexte

Bonjour à tous,

Ah ben oui mais non, mon bon JP, là tu effaces tout arf

Lolo : essaye avec :

Option Explicit

Sub Del()
ActiveSheet.Hyperlinks.Delete
End Sub

Placé dans un module et appel par un bouton ou autre ou Alt F8 et Exécuter Del

A+

Edition : Grillé par Roro 😉

 

[roro69]

Re : lien hypertexte

Non pas grillé par roro ; car la réponses est un eu plus détaillé et compréhensible
Bonne année à tous.
Je me sers un ptit jura et un ptit rhum pour jcgl et bonne santé à vous tous

 

[lolo44]

Re : lien hypertexte

merci bien mais un peu compliqué pour moi. je vous joints le fichier. Il s'agit de la colonne B. Merci
Je suis vraiment pas très doué car je ne sais pas utiliser la réponse donnée. Désolé.

 

[roro69]

Re : lien hypertexte

RE voila ton fichier lolo
Bonne soirée

 

[lolo44]

Re : lien hypertexte

merci beaucoup pour la rapidité, c'est juste ce que je voulais.
Et maintenant si je veux reproduire la même chose sur une autre feuille excel comment dois-je m'y prendre ?
Encore merci

 

[JCGL]

Re : lien hypertexte

Re,

Puisque le fil semble résolu, il ne reste qu'à Roro à indiquer qu'il suffit de remplacer ActiveSheet par le nom de la feuille... Je reprends un petit Rhum et que Roro se reverse un Jura.

A+ à tous

 

[lolo44]

Re : lien hypertexte

je progresse...
j'ai compris ou rentrer la formule pour effacer les liens hypertexte et faire un lien avec un bouton.
Par contre comment mettre le bouton en lien avec ma formule dans visual basic ? car il ne se passe rien malgré les formules. Merci

Option Explicit

Sub Del()
ActiveSheet.Hyperlinks.Delete
End Sub




Private Sub CommandButton1_Click()

End Sub

 

[gwad063]

Re : lien hypertexte

bonjour lolo, roro, JCGL, JeanPierre...

eh bien lolo, je vais y aller de ma petite participation pour répondre à ta dernière question, pour mettre ton code dans un bouton :

dans excel : affichage -> barre d'outils -> visual basic
une fois que tu as ta barre VB ->boîte à outil controle, là, tu crées ton bouton

voilà, après, dans VB, il te suffit de mettre ton code dedans...

Bonne aprem; à +.

Gwad.

 

[JCGL]

Re : lien hypertexte

Bonjour à tous,

Pour répondre strictement à la question de Lolo :

 Option Explicit

Private Sub CommandButton1_Click()
 ActiveSheet.Hyperlinks.Delete
End Sub

Bien sûr sur le bouton que tu as créé (passe en Mode Création en cliquant sur l'équerre, clique droit sur le Bouton, Visualiser le code et rajoute ActiveSheet.Hyperlinks.Delete entre les deux lignes déjà présente

A+

 

[roro69]

Re : lien hypertexte

Bonjour à tous
Je ne sais pas si je ce que je vais te dire va plus t'aider mais pour moi je trouve plus pratique:Au lieu de créer un bouton par boite à outil controle ; cré plutot un bouton formulaire(Affichage/Barred'outil/Formulaire) car ces boutons peuvent etre mis en relation dirctement avec la macro de ton module.Pas la peine de reprogrammer le bouton ,et de plus ta macro peut etre réutilisable sur plusieurs feuilles sans avoir à retaper le code.
Bonne soirée à tous

 

[lolo44]

Re : lien hypertexte

c'est bon, merci à tous de votre patience.
Lolo