créer des liens qui pointent vers les nouvelle feuilles crées

[pascal21]

bonsoir le forum
grâce à cette macro de roger 2327 , je crée une nouvelle feuille à chaque saisie dans la colonne A de le feuille1

 Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(1)) Is Nothing And Not IsEmpty(Target.Cells(1, 1).Value) Then
      Application.ScreenUpdating = False
      ThisWorkbook.Sheets("XXX").Copy After:=Me
      On Error GoTo nom_incorrect
      ActiveSheet.Name = CStr(Target.Cells(1, 1).Value)
      On Error GoTo 0
      Me.Activate
      Application.ScreenUpdating = True
   End If
Exit Sub
nom_incorrect:
   Application.DisplayAlerts = False
   ActiveSheet.Delete
   Application.DisplayAlerts = True
   Me.Activate
   MsgBox "Il existe déjà une feuille nommée " & """" & CStr(Target.Cells(1, 1).Value) & """" & _
      vbLf & "ou ce nom est incorrect."
End
End Sub

est-il possible de rajouter un lien vers la feuille nouvellement crée sur la cellule qui à permis cette création
pas clair ça!!!
ex en A10 j'écris "voiture" la feuille "voiture" se crée et un lien en a10 pointe vers cette nouvelle feuille
pas plus clair mais là je suis au maxi !!! lol!!
merci

 

[job75]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

Bonsoir pascal21,

Après On Error GoTo 0, ajouter :

ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
  ActiveSheet.Name & "!A1", TextToDisplay:=Target

Pas du tout testé, j'ai bêtement utilisé l'enregistreur de macro et adapté...

A+

 

[pascal21]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

bonsoir et merci pour ta réponse mais
ça ne fonctionne pas j'ai une erreur sur les deux lignes de codes que tu as crée
petite précision en fait sur mon classeur j'utilise la colonne c et non la A
j'avais bien sur modifié le code pour le besoin

 

[job75]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

Re,

En effet, mieux vaut écrire (prions pour que ça marche) :

[COLOR="Red"]Me.[/COLOR]Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
  ActiveSheet.Name & "!A1", TextToDisplay:=Target

A+

 

[pascal21]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

re
rien de changer toujours la même erreur
pourtant ça semble être le bon code
j'en ai trouvé un sensiblement identique dans les archives du site
je continue la recherche

 

[job75]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

Re,

Je me suis décidé à tester et ce code marche :

Me.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target & "!A1"

Il fallait supprimer TextToDisplay:=Target je ne sais pourquoi, il y a des mystères comme ça...

A+

 

[Lii]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

Bonsoir

Re,

Je me suis décidé à tester et ce code marche :

Me.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target & "!A1"

Il fallait supprimer TextToDisplay:=Target je ne sais pourquoi, il y a des mystères comme ça...

A+

Je ne pense pas, Job 😉, l'erreur venait d'ailleurs : Target & "!A1".

Attention, si le lien est créé en feuil1, pour éviter un message intempestif.

...
    ActiveSheet.Name = Target.Text
    [B]Sheets("Feuil1").Activate
    Application.EnableEvents = False[/B]
    Me.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Target & "!A1", TextToDisplay:=Target
    [B]Application.EnableEvents = True[/B]
    Application.ScreenUpdating = True

Autre remarque : en copiant la feuille, le code est lui aussi copié.

 

[pascal21]

Re : créer des liens qui pointent vers les nouvelle feuilles crées

bonjour à tous merci Lii, ça fonctionne parfaitement maintenant
bon dimanche