Effacer du texte dans une celule Excel

Je te remercie.

Comment puis-je copier une feuille de calcul sans y perdre les liens hypertextes que j'ai insérés?

Si, sur ma feuille 1, un lien en cellule A1 me dirige vers la cellule B1, comment puis-je faire pour qu'après copie de la feuille 1, la cellule A1 de la feuille2 dirige vers la cellule B1 de la feuille 2,puis, après nouvelle copie, feuille3A1 dirige vers feuille3B1 et ainsi de suite…..?

Actuellement,si je copie ma feuille, les liens hypertextes me renvoient sur la feuille 1 ou bien sont indiqués référence non valide.

version 2003 d'Excel.

salut je pense il y a une fonction concatener ,,,,,,,,,,,,,,,,,,,,,cest vague mais je travaille plus sous excel

@+

Bonjour,

il te suffit d'aller dans Edition, effacer et ensuite tu clique sur effacer le contenu

Bonsoir,

Tu double clique sur la cellule et tu selectionne .... tout simplement ..

Voila, @ +

je pense qu'il ne veut pas effacer toute la cellule si j'ai bien compris autrement trop facile

donc ce doit etre concatener dans les fonctions

Bonsoir,

=GAUCHE(A1;CHERCHE(" ";A1;CHERCHE(" ";A1)+1)-1)
devrait t'aller..

eric

ben fais...

J'ai regardé un peu, à mon avis seule une macro pour corriger les liens peut le faire.
Mais peut-être existe-t-il une astuce...
eric

Si ça peut te dépanner voici une petite macro à mettre dans un module :

Sub ReLink()
    For Each h In ActiveSheet.Hyperlinks
        h.SubAddress = "'" & ActiveSheet.Name & "'" & Mid(h.SubAddress, InStr(1, h.SubAddress, "!"))
        h.TextToDisplay = h.SubAddress
    Next
End Sub

Cette macro reprend tous les hyperlinks pour les faire pointer (même cellule) sur la feuille où ils sont.
Elle n'agit que sur la feuille active.
Si tu ne veux pas modifier le texte dans la cellule mettre en commentaire la 4éme ligne.
eric

une ' devant
' h.TextToDisplay = h.SubAddress
ou sinon tu l'enlèves...
eric

menu 'inserertion / fonction', catégorie texte, tu trouveras plusieurs fonctions dont stxt()
=STXT(A1;7;100)
eric