Discussion :

[Viper7]

Bonjour,

J'ai un userform, je souhaiterais, qu'en ayant rentré un numéro de référence dans une textbox,
- il s'affiche le numéro de référence sur une page "données" (c'est fait),
- il se créé une nouvelle Feuille avec pour nom le numéro de référence
- il y ait un lien hypertext sur le numéro de référence de la page "données" qui nous amène à la nouvelle Feuille associée

Voici ce que j'ai fait dans la partie module :

[Viper7]

Ok, voici le code mis à jour :

Code :

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
 
'mise à jour d'un ajout de données
Sub miseajour()
    Sheets("Données").Activate
    ajouterligne
    Selection.Value = Numéro_de_référence
    ActiveCell.Offset(0, 1).Select
 
    NomFeuille = ActiveSheet.Name
    With Worksheets(NomFeuille)
    .Name = "Numéro_de_référence"
    End With
 
    Range("A1").Select
 
    Sheets("Données").Select
    Range("A2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
             "'2'!B7"
End Sub

[Viper7]

Ok je vais essayer d'etre plus précis,

Pour 'Range("A1").Select c'était une erreur, je l'ai virée.

J'ai un classeur avec une feuille appelée "Données" dans laquelle sont recensés des numéros de référence à l'aide d'un userform avec une textbox. Et d'autres feuilles correspondant à chaque numéro de référence (une feuille par numéro de référence).
Je souhaite automatiser tout ca.
J'ai donc un userform avec une textbox. je souhaiterais, qu'en ayant rentré un numéro de référence dans la textbox, qu'il se passe 3 choses :

- qu'il s'affiche le numéro de référence sur une page "données" (c'est ok)

Code :

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

1
2
3
4
5
 
    Sheets("Données").Activate
    ajouterligne
    Selection.Value = Numéro_de_référence
    ActiveCell.Offset(0, 1).Select

- qu'il se créé une nouvelle Feuille ayant pour nom le numéro de référence

Code :

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

1
2
3
4
5
 
    NomFeuille = ActiveSheet.Name
    With Worksheets(NomFeuille)
    .Name = "Numéro_de_référence"
    End With

- qu'il y ait un lien hypertext sur le numéro de référence de la page "données" , pointant vers sa nouvelle Feuille associée

Code :

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

1
2
3
4
5
 
    Sheets("Données").Select
    Range("A2").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
             "'2'!B7"

Tels quels , cela ne marche pas mais je ne comprend pas pourquoi
Ai-je été plus clair ? C'est pas simple à expliquer !
D'avance merci

[Viper7]

En fait mon classeur aura :
- une feuille principale avec une récapitulation des références et de certaines données associées (designation, prix, etc...)
et
- pour chaque référence il y aura une feuille associée (via l'hyperlink) où l'on entre plus dans les détails de la référence (il y aura une centaine de références).

Donc la cellule A2 pointant vers la page 2 en B7 c'est un exemple, en fait je souhaite que la référence située en A2 ait un hyperlink vers la feuille du meme nom et cela de manière automatique

Tu as vu, pu d'apostrophes !

D'avance merci

[Viper7]

En fait c'est pas moi qui ais mis les ' ' mais quand j'ai fait la macro automatiquement avec excel...

Pour les hyperlinks c'est tres simple , imagine toi un tableau récapitulatif avec plus d'une centaine de références et a chaque référence une feuille associée. Tu veux en savoir plus sur une des références et consulter sa feuille, il te faudrait chercher manuellement dans toutes tes feuilles pour trouver la bonne... Perte de temps, vive les hyperlinks !

[Viper7]

Oui j'ai testé ca bloque toujours, jte montre le dossier excel en pièce jointe.

Sur un autre post on m'avait fait quelque chose de super mais je comprenait vraiment rien au truc pour le modifier !!!