Discussion :

[cricri2803]

Bonjour,
J'ai créé la macro suivante dans mon premier onglet "Recettes":
La macro me demande le n° de la recette, puis le titre. Elle remplace "Nouvelle Recette" par le titre au niveau du numéro de recette donné, puis elle crée un nouvel onglet (à partir de l'onglet NR), en renommant cet onglet avec le numéro donné.

Ce que j'aimerais ajouter dans cette macro, c'est qu'un lien hypertexte se crée sur le numéro de la recette qui est en colonne B (par 101, ou 102, etc..) vers la nouvelle feuille créée correspondante.
J'ai pas mal cherché mais je n'arrive pas à écrire la macro correctement. Si quelqu'un peut m'aider, ce serait super! Merci.

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
--------
Numérotation des recettes commence en ligne 3.
Colonne B: numéro
Colonne C: titre
 
ligne 3       101     Nouvelle Recette
ligne 4       102     Nouvelle Recette
ligne 5       103     Nouvelle Recette
 
--------
Sub NouvelleRecette()
    'Numéro de la recette
    Dim numero_recette As Integer
    numero_recette = InputBox("Numéro de la recette?")
 
    'Titre de la recette
    Dim titre_recette As String
    titre_recette = InputBox("Titre de la recette?")
 
    Dim numero As Integer
    numero = numero_recette - 96
    Cells(numero, 3) = titre_recette
 
    Sheets("NR").Copy after:=Sheets("Recettes")
 
    ActiveSheet.Name = numero_recette
    Cells(1, 2) = titre_recette
 
 
End Sub

[Romain9]

Bonjour,

Voici quelques lignes de codes à rajouter en bas de ton code actuel.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Dim SValue As String
 
With Worksheets("Recettes")
    SValue = numero_recette
    .Hyperlinks.Add Anchor:=.cells(numéro, 2), Address:="", SubAddress:=Worksheets(SValue).Name & "!A1", TextToDisplay:=SValue
End With

La variable SValue convertie ton numéro de recette en chaine de caractères afin d'éviter qu'il soit interprété comme un numéro d'index de feuille au niveau de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SubAddress:=Worksheets(SValue).Name & "!A1"

[cricri2803]

Merci pour la réponse, ca marche!