Ajout de ligne tableau, Création d'un nouveal onglet avec lien Hypertexte
Sky
-
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
jordane45 Messages postés 30427 Date d'inscription Statut Modérateur Dernière intervention -
Bonjour,
Je cherche le moyen par le biai d'une commande VBA de résoudre un problème que je rencontre actuellement .
Pour resituer le contexte, j'ai une feuille de données avec un tableau . (feuille 1) et j'ai un autre onglet qui sert de trame type (feuille 2)
J'aimerai créer un bouton qui permet d'ajouter une ligne automatiquement à fin de mon tableau afin d'incrémenter mes données (Jusque là tout va bien ).
Ensuite sur la même Macro j'aimerai créer une copie d'un autre onglet (feuille 2)
J'aimerai que dans cet nouvel onglet créer que la plage de cellule (b2:m4) soit relier à la dernière cellule de la colonne D de ma feuille 1(donc celle qui vient tout juste d’être créer).
Enfin Cerise sur le gâteau, j'aimerai que cette dernière cellule de de ma colonne D (de ma feuille 1) soit un liens hypertexte vers l'onglet dupliqué qui vient d’être copié .
Avez vous des pistes ?
Dans l'attente un grand merci
Je cherche le moyen par le biai d'une commande VBA de résoudre un problème que je rencontre actuellement .
Pour resituer le contexte, j'ai une feuille de données avec un tableau . (feuille 1) et j'ai un autre onglet qui sert de trame type (feuille 2)
J'aimerai créer un bouton qui permet d'ajouter une ligne automatiquement à fin de mon tableau afin d'incrémenter mes données (Jusque là tout va bien ).
Ensuite sur la même Macro j'aimerai créer une copie d'un autre onglet (feuille 2)
J'aimerai que dans cet nouvel onglet créer que la plage de cellule (b2:m4) soit relier à la dernière cellule de la colonne D de ma feuille 1(donc celle qui vient tout juste d’être créer).
Enfin Cerise sur le gâteau, j'aimerai que cette dernière cellule de de ma colonne D (de ma feuille 1) soit un liens hypertexte vers l'onglet dupliqué qui vient d’être copié .
Avez vous des pistes ?
Dans l'attente un grand merci
1 réponse
-
Bonjour,
Des pistes ? oui.
L'enregistreur de macros....
Tu lances l'enregistrement,
Tu effectues les actions souhaitées,
Tu adapte le code ainsi généré à tes besoins.
Ca peut donner un truc du genreDim sh As Worksheet Set sh = Sheets("Feuil1") 'Retourne le numéro de la dernière ligne non vide du tableau DernLigne = sh.Cells.Find("*", Range("D1"), , , xlByRows, xlPrevious).Row 'pour les lignes 'Copie de la feuille2 Sheets("Feuil2").Select nbF = ThisWorkbook.Sheets.Count Sheets("Feuil2").Copy After:=Sheets(nbF) ActiveSheet.Name = "Feuil" & nbF + 1 'Ajout du lien sh.Cells(DernLigne, 4).FormulaR1C1 = "lien" sh.Hyperlinks.Add Anchor:=sh.Cells(DernLigne, 4), Address:="", SubAddress:= _ "Feuil" & nbF + 1 & "!A1", TextToDisplay:="lien"
