Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

créer des liens qui pointent vers les nouvelle feuilles crées

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

pascal21

XLDnaute Barbatruc
bonsoir le forum
grâce à cette macro de roger 2327 , je crée une nouvelle feuille à chaque saisie dans la colonne A de le feuille1
Code: 
 Private Sub Worksheet_Change(ByVal Target As Range)
   If Not Intersect(Target, Columns(1)) Is Nothing And Not IsEmpty(Target.Cells(1, 1).Value) Then
      Application.ScreenUpdating = False
      ThisWorkbook.Sheets("XXX").Copy After:=Me
      On Error GoTo nom_incorrect
      ActiveSheet.Name = CStr(Target.Cells(1, 1).Value)
      On Error GoTo 0
      Me.Activate
      Application.ScreenUpdating = True
   End If
Exit Sub
nom_incorrect:
   Application.DisplayAlerts = False
   ActiveSheet.Delete
   Application.DisplayAlerts = True
   Me.Activate
   MsgBox "Il existe déjà une feuille nommée " & """" & CStr(Target.Cells(1, 1).Value) & """" & _
      vbLf & "ou ce nom est incorrect."
End
End Sub
est-il possible de rajouter un lien vers la feuille nouvellement crée sur la cellule qui à permis cette création
pas clair ça!!!
ex en A10 j'écris "voiture" la feuille "voiture" se crée et un lien en a10 pointe vers cette nouvelle feuille
pas plus clair mais là je suis au maxi !!! lol!!
merci
 
Trier par date Trier par votes
Re : créer des liens qui pointent vers les nouvelle feuilles crées

Bonsoir pascal21,

Après On Error GoTo 0, ajouter :

Code: 
ActiveSheet.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
  ActiveSheet.Name & "!A1", TextToDisplay:=Target

Pas du tout testé, j'ai bêtement utilisé l'enregistreur de macro et adapté...

A+
 
Vote positif 0 Vote négatif
Re : créer des liens qui pointent vers les nouvelle feuilles crées

bonsoir et merci pour ta réponse mais
ça ne fonctionne pas j'ai une erreur sur les deux lignes de codes que tu as crée
petite précision en fait sur mon classeur j'utilise la colonne c et non la A
j'avais bien sur modifié le code pour le besoin
 
Vote positif 0 Vote négatif
Re : créer des liens qui pointent vers les nouvelle feuilles crées

Re,

En effet, mieux vaut écrire (prions pour que ça marche) :

Code: 
[COLOR="Red"]Me.[/COLOR]Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:= _
  ActiveSheet.Name & "!A1", TextToDisplay:=Target

A+
 
Vote positif 0 Vote négatif
Re : créer des liens qui pointent vers les nouvelle feuilles crées

re
rien de changer toujours la même erreur
pourtant ça semble être le bon code
j'en ai trouvé un sensiblement identique dans les archives du site
je continue la recherche
 
Vote positif 0 Vote négatif
Re : créer des liens qui pointent vers les nouvelle feuilles crées

Re,

Je me suis décidé à tester et ce code marche :

Code: 
Me.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=Target & "!A1"

Il fallait supprimer TextToDisplay:=Target je ne sais pourquoi, il y a des mystères comme ça...

A+
 
Vote positif 0 Vote négatif
Re : créer des liens qui pointent vers les nouvelle feuilles crées

Bonsoir
Je ne pense pas, Job 😉, l'erreur venait d'ailleurs : Target & "!A1".

Attention, si le lien est créé en feuil1, pour éviter un message intempestif.
Code: 
...
    ActiveSheet.Name = Target.Text
    [B]Sheets("Feuil1").Activate
    Application.EnableEvents = False[/B]
    Me.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:= _
        Target & "!A1", TextToDisplay:=Target
    [B]Application.EnableEvents = True[/B]
    Application.ScreenUpdating = True
Autre remarque : en copiant la feuille, le code est lui aussi copié.
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
XL 2021 Macro pour changer les titres de fichier d'archive
Réponses
3
Affichages
353
fanch55
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
636
telemarrk
T
G
  • Résolu(e)
XL 2016 Pb de tri et sous totaux
2
Réponses
27
Affichages
776
Gestionnaire_rh
G
S
  • Résolu(e)
Microsoft 365 Cliquer pour ouvrir des photos
Réponses
7
Affichages
566
Simon 1234
S
C
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
209
CDALE
C
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
398
patricktoulon
S
  • Résolu(e)
XL 2016 Coller nom classeur sur plage cellules
Réponses
9
Affichages
287
safranien
S
  • Résolu(e)
XL 2013 customui copymemory qui fait encore des siennes
Réponses
8
Affichages
269
Rheeem
R
B
  • Résolu(e)
Microsoft 365 creation d'liste à imprimer
2 3 4
Réponses
51
Affichages
2 K
Banbara
B
S
  • Question Question
Microsoft 365 VBA pour copier une une des données d'une ligne à une autre
Réponses
3
Affichages
791
salma_hayek
S
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
374
NONO14
N
S
  • Résolu(e)
Microsoft 365 Listes déroulantes multi-sélections et feuilles protégées.
Réponses
6
Affichages
609
selkis
S
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
312
JJ69
J
  • Résolu(e)
XL 2016 Indice n'appartient pas à la sélection : HELP !!!!
2
Réponses
21
Affichages
1 K
halecs93
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
393
BenExcel
B
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
565
jeff1494
D
  • Question Question
Microsoft 365 Historique des modifications
Réponses
11
Affichages
991
sylvanu
EXCEL :: Les Tableaux Structurés :: Une classe VBA pour mieux les gérer - V1.02
Réponses
4
Affichages
413
bsalv
B
G
  • Question Question
Microsoft 365 Avoir des classeurs maitres et les procédures dans un autre classeur.
2
Réponses
19
Affichages
2 K
GClaire
G
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
522
MaNU84510
M
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…