Créer plusieurs lien hypertexte, copier une feuille vers 400

Bonjour,

J'ai fait un lien vers un classeur excel qui reprend ma demande...

Please help me

Bonjour,

j'ai complété ta procédure ajout_feuilles

Sub ajout_feuilles()
Set wsc = Worksheets("clt")

wsc.Hyperlinks.Delete
For Each c In wsc.Range("B2:b" & wsc.Range("b" & Rows.Count).End(xlUp).Row)
nom = c.Value
If existsws(nom) = False Then
Worksheets("feuil1").Copy after:=Worksheets(Worksheets.Count)
Set wsn = Worksheets(Worksheets.Count)
wsn.Name = nom
wsc.Rows(c.Row).Copy wsn.Range("A3")
wsc.Hyperlinks.Add Anchor:=wsc.Range("B" & c.Row), Address:="", SubAddress:="'" & nom & "'!A1", TextToDisplay:=nom
End If
Next
End Sub

Function existsws(ws) As Boolean
On Error Resume Next
existsws = (UCase(Worksheets(ws).Name) = UCase(ws))
On Error GoTo 0
End Function

Bonjour,

Merci pour ta réponse, mais ça ne fonctionne pas, ça m'indique :

"Erreur de compilation

Sub ou function non definie"

Je ne dois pas faire comme il faut j'imagine

Bonjour,

A tester. Ajoute cette fonction personnalisée dans ton module:

Public Function Feuille_existe(Nom_feuille As String, Optional Wb As Workbook) As Boolean
Dim Ws As Worksheet
    ' utilise le classeur actif par défaut
    If Wb Is Nothing Then
        Set Wb = ActiveWorkbook
    End If
    On Error Resume Next
    Feuille_existe = CBool(Not Wb.Sheets(Nom_feuille) Is Nothing)
    On Error GoTo 0
End Function

Puis remplace:

If existsws(nom) = False Then

par:

If Feuille_existe(nom) = False

SISSI4676L a écrit :

Bonjour,

Merci pour ta réponse, mais ça ne fonctionne pas, ça m'indique :

"Erreur de compilation

Sub ou function non definie"

Je ne dois pas faire comme il faut j'imagine

c'est moi qui ai oublié de joindre une fonction. tu as la solution proposée par Jean-Eric. ci-dessous le bout de code qui manquait au code que je t'ai proposé

Function existsws(ws) As Boolean
On Error Resume Next
existsws = (UCase(Worksheets(ws).Name) = UCase(ws))
On Error GoTo 0
End Function

j'ai essayé les deux solutions, ca m'indique toujours la meme chose....

Bonjour,

voici le fichier avec la macro

Super, merci beaucoup, bon maintenant il ne reste plus qu'a trouver comment insérer un lien hypertexte de chaque nom de la liste vers les pages concernées

Bonjour,

normalement les liens devaient être créés.

une version corrigée.

Ouah génial !!! Ça fait une semaine que je galérai à trouver la solution, merci mille fois

A nouveau moi

Je souhaite (toujours dans ce tableau avec macro), ajouter des clients dans mon fichier source, comment dois je faire pour que ca ajoute une nouvelle feuille avec lien ?

Si je fais une modification dans le fichier source (changement d'adresse par exemple), comment faire pour que ce soit automatiquement mis à jour dans la fiche ?

Merci d’avance

Bonjour,

essaie si ceci te convient

Merci c'est exactement ce qu'il me fallait

Histoire de corsé un peu... Quand j'ajoute un nom a la fin de la liste, il se met automatiquement à la fin du classeur, même si ensuite je fais un tri par le nom... Est ce qu'il y a une possibilité de mettre la feuille au bon endroit directement ?

Bonjour,

je ne comprends pas la logique de ton tri par le nom, donc j'aurai du mal à implémenter ce que tu demandes. ( exemple : Auer vient après de broquevielle, de plus avec l'inclusion dans certains cas de M et Mme, ce tri sur le nom n'est pas automatisable. Enfin tu as une page avec les hyperliens, il te suffit de cliquer dessus pour tomber sur la bonne feuille, (le tri, s'il sert à retrouver une personne, perd donc de son utilité, je pense ...)

Oui c'est vrai, je me prends parfois la tête pour rien

En tout cas merci pour ton aide, c'est exactement ce qu'il me fallait, vraiment merci beaucoup