Bonjour,
Je développe une macro qui permet lors d'un clic sur le bouton associé de créer un onglet, et dans une page sommaire d'afficher en colonne les noms des onglets créés. Je souhaite que chaque nom créé soit en lien hypertexte afin de permettre d'aller directement sur l'onglet cible depuis la page sommaire.
Pourriez vous rajouter le bout de code manquant, svp. Merci
Sub CreCTST()
'
'créée par jl henry le 24/09/03
'Création d'un nouvel onglet de cas de test unitaire
' Sheets("CTST").Visible = True
Worksheets("Fiche Projet").Unprotect
Sheets("Fiche Projet").Copy After:=Sheets(4)
Worksheets("Fiche Projet").Protect
' Sheets("Fiche Projet").Visible = False
'formule permettant d'incrémenter automatiquement le nouvel onglet dans le
'sommaire avec les formules de calculs automatiques.
Worksheets("sommaire").Unprotect
n = ActiveSheet.Index
For rwindex = 1 To Sheets.Count
With Worksheets("sommaire")
'test de la ligne vide pour insérer le nom du nouvel onglet
If .Cells(rwindex + 10, 2).Value = "" Then
.Cells(rwindex + 10, 2).Value = Sheets(n).Name
'définition des styles des autres cellules de la même ligne
.Cells(rwindex + 10, 3).Value = "='" & Sheets(n).Name & "'!C3"
.Cells(rwindex + 10, 3).Borders(xlDiagonalDown).LineStyle = xlNone
.Cells(rwindex + 10, 3).Borders(xlDiagonalUp).LineStyle = xlNone
Exit For
End If
End With
Next rwindex
Worksheets("sommaire").Protect
End Sub