Hyperlien

Bonjour, voici mon problème, j'ai présentement un code qui me permet de copier une feuille vers un nouvel onglet lorsque j'ajoute une cellule.

Mais j'aimerais aussi que cette cellule soit en hyperlien avec le nouvelle onglet!

Merci d'avance

Voici mon code présentement ;

Sub Créer_Feuilles()

Dim Cel As Range

For Each Cel In Range("A2", Range("A" & [a65000].End(xlUp).Row))

If Cel <> "" And FeuilleExiste(Cel.Value) = False Then

Sheets("BO-001").Select

Cells.Copy ' Copie

Sheets.Add ' Ajout d'une nouvelle feuille

ActiveSheet.Paste ' Collage de la feuille copiée précédemment

ActiveSheet.Name = Cel.Value

End If

Next Cel

End Sub

Function FeuilleExiste(Nom As String) As Boolean

On Error Resume Next

FeuilleExiste = Sheets(Nom).Name <> ""

On Error GoTo 0

End Function

Bonjour

Remplace ta première macro par celle-ci, légèrement modifiée :

Sub Créer_Feuilles()
Dim Cel As Range
Dim Fdép 

Set Fdép = ActiveSheet
For Each Cel In Range("A2", Range("A" & [a65000].End(xlUp).Row))
If Cel <> "" And FeuilleExiste(Cel.Value) = False Then

 Sheets("BO-001").Select
 Cells.Copy ' Copie
 Sheets.Add ' Ajout d'une nouvelle feuille
 ActiveSheet.Paste ' Collage de la feuille copiée précédemment
 ActiveSheet.Name = Cel.Value

 Fdép.Select
 Cel.Select
 ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
 Cel.Value & "!A1", TextToDisplay:=Cel.Value
 Sheets(Cel.Value).Select
End If
Next Cel

End Sub

Et fais l'essai !

Bye !