création automatique d'un lien avec une feuille nouvellement crééee

[bpol]

Bonjour les excelleurs,

tout d'abord avec un jour de retard " bonne Saint Valentiin"

voici mon soucis dans mon fichier excel j'ai une macro pour créer des nouvelles feuilles dans le même fichier avec comme nom le contenu d'une cellule. ce même nom est classé dans un tableau et c'est là que je voudrais que le lien se fasse automatiquement .

et est il possible que la valeur d'une cellule de cette nouvelle feuille se note automatiquement dans ce même tableau ?

je joins le fichier

Merci

Bpol

 

[Guest]

Re : création automatique d'un lien avec une feuille nouvellement crééee

Bonjour bPol, le Forum,

Voici ton fichier modifié avec la création du premier lien hypertexte vers la nouvelle feuille. S'il en faut d'autres, employer la même technique.

Petits plus: fonction permettant de savoir si une feuille existe déjà avant de la créée, et macro de suppression de tous les objets sur la nouvelle feuille.

A+

 

[bpol]

Re : création automatique d'un lien avec une feuille nouvellement crééee

Bonjour Asco,


merci pour le coup de main pour mon fichier.

mais concernant les cellules de la colonne E sur la feuille salle elle doivent être mise à jour si le montant sur la feuille déjà crée se modifie.
en effet une fois la nouvelle fiche crée il sera ajouté des données qui modifiront la case J 35 ( style note de restaurant)

tu as mis une option pour supprimer les commandes sur les fiches crééees est il possible que ne supprimer que quelques unes ?

grand merci pour les liens c'est extra.

bpol

 

[Guest]

Re : création automatique d'un lien avec une feuille nouvellement crééee

Re,

Faut être précis dans les demandes. Donc tu veux une formule dans la cellule.
Texte en rouge

    With Sheets("Salle")
        Ligne = .Range("A65536").End(xlUp).Row + 1
        
        .Hyperlinks.Add Anchor:=.Cells(Ligne, 1), _
                        Address:="", _
                        SubAddress:="'" & NomFeuille & "'!A1", _
                        TextToDisplay:=NomFeuille
        .Cells(Ligne, 2) = Sheets("fiche").Range("H11")
      [COLOR=red]  .Cells(Ligne, 5).FormulaLocal = "='" & NomFeuille & "'!$J$35"
[/COLOR]    End With

A+

 

[bpol]

Re : création automatique d'un lien avec une feuille nouvellement crééee

Merci Hasco,

bonne soirée

Bpol