Discussion :

[bdathis]

Bonjour,
Je viens de reporter sur un tableau Excel 2010 mes recherches généalogiques sur 913 lignes.
Dans une colonne j'ai indiqué lien sur les archives numérisées avec le numéro de la photo d'acte à présenter.
Ne connaissant pas du tout les liens hypertextes, je viens de découvrir que je pouvais afficher un texte plus court ex : Archives 1694-1853 en lieu et place du lien à rallonge !!!
Mais comment modifier mes 913 cellules sans modifier un à un le lien contenu dans chaque cellule ?
Merci pour votre aide.
Bernard Dusseau

[QuestVba]

Bonjour,

voici un truc super http://excel.developpez.com/faq/?pag...#TextToDisplay Tu y trouveras certainement ton bonheur.

[Invité]

Bonjour,

Attention, dans votre cas il vous faut sans doute mieux utiliser la propriété ScreenTip du lien hypertexte.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub ModifierTexteLienHypertexte()
 
Dim LigneTitre As Long
Dim DerniereLigne As Long
Dim Cellule As Range
 
        LigneTitre = 1             ' A adapter suivant votre tableau
        DerniereLigne = Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row  
                                   ' Attention 1 suppose que la colonne 1 soit non vide
        Range(Cells(LigneTitre + 1, 1), Cells(DerniereLigne, 1)).Select 
                                  ' Les liens hypertextes se trouvent 
                                  ' dans les cellules de la 1ère colonne
 
        For Each Cellule In Selection
 
            If Cellule.Hyperlinks.Count > 0 Then
 
                    Cellule.Hyperlinks(1).ScreenTip = Cellule.Offset(0, 1) 
                         ' Le contenu du texte se trouve dans la 1ère cellule
                         ' après la cellule du lien hypertexte
            End If
 
        Next Cellule
 
End Sub

Cordialement.