Sub q() Dim nom As String nom = InputBox("Entrez le nom de la feuille") Sheets("SUIVI MENSUEL").Select Range("D12").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ nom & "!G8" End Sub
nom = InputBox("Entrez le nom de la feuille")
Sub q() Dim nom As String nom = InputBox("Entrez le nom de la feuille") ' Test si la feuille existe déjà : TestFeuil = FExist(nom) If TestFeuil = True Then ' Si elle exite.. alors créer le lien. Sheets("Feuil1").Select Range("D12").Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _ nom & "!G8" Else ' si elle n'existe pas.. la créer... '// '// ICI METTRE LE CODE POUR CREER LA FEUILLE '// PUIS CREER LE LIEN HYPERTEXTE End If End Sub Function FExist(NomF As String) As Boolean ' test si la feuille existe Application.ScreenUpdating = False On Error Resume Next FExist = Not Sheets(NomF) Is Nothing Application.ScreenUpdating = True End Functio
Range(&i& ""&j& ""). select
Cells(i, j).Select '// i = N° de ligne '// j = N° de colonne '// i et j sont de type : Integer.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question