lien hypertexte

roro69

XLDnaute Impliqué

• 6 Janvier 2008

• #2

Re : lien hypertexte

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

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 6 Janvier 2008

• #3

Re : lien hypertexte

Bonsoir le fil,

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Janvier 2008

• #4

Re : lien hypertexte

Bonjour à tous,

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

Lolo : essaye avec :

Code:

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 😉

 

Dernière édition: 6 Janvier 2008

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 6 Janvier 2008

• #5

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

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 6 Janvier 2008

• #6

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é.

 

Pièces jointes

• essai.xls

  39 KB · Affichages: 64
• essai.xls

  39 KB · Affichages: 56
• essai.xls

  39 KB · Affichages: 59

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 6 Janvier 2008

• #7

Re : lien hypertexte

RE voila ton fichier lolo
Bonne soirée

 

Pièces jointes

• essai(1).xls

  48 KB · Affichages: 65
• essai(1).xls

  48 KB · Affichages: 62
• essai(1).xls

  48 KB · Affichages: 62

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 6 Janvier 2008

• #8

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 6 Janvier 2008

• #9

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

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 7 Janvier 2008

• #10

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

 

Vote positif 0 Vote négatif

G

gwad063

Guest

• 7 Janvier 2008

• #11

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Janvier 2008

• #12

Re : lien hypertexte

Bonjour à tous,

Pour répondre strictement à la question de Lolo :

Code:

 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+

 

Vote positif 0 Vote négatif

roro69

XLDnaute Impliqué

• 7 Janvier 2008

• #13

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

 

Vote positif 0 Vote négatif

L

lolo44

XLDnaute Occasionnel

• 8 Janvier 2008

• #14

Re : lien hypertexte

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

 

Vote positif 0 Vote négatif