[VBA-E] Création de feuille automatique

Bonjour,

Je souhaite créer un bout de code en VBA, qui me permettrai de créer automatiquement une nouvelle feuille excel lorsque l'on vient d'ecrire du texte dans la colonne D.

Je m'explique, par exemple je suis en D12, j'écris "toto", je souhaite que toto devienne un lien vers une nouvelle feuille qui a pour nom A12.

Est-ce possible en peu de temps? Je n'ai aucune base VBA, j'ai testé de nombreux petits scripts existants mais rien ne répondait à mon besoin. Merci pour votre aide ;)

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub Worksheet_Change(ByVal Target As Range) If Not Application.Intersect(Columns("D:D"), Target) Is Nothing Then Dim MaFeuille As Worksheet Set MaFeuille = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)) MaFeuille.Name = "A" & Target.Row Me.Hyperlinks.Add Anchor:=Target, Address:="", SubAddress:=MaFeuille.Range("A1").Address(True, True, xlA1, True), TextToDisplay:=Target.Value Me.Activate End If End Sub

---

Je m'inquiète de ça ;)

Citation:

---

Envoyé par matt8-5

Je n'ai aucune base VBA

---

Tu places le code de Bidou dans la feuille de code de la feuille de calculs concernée -> Outils -> Macros -> Editeur VB -> Dans l'éditeur VB : deux clics sur le nom de la feuille ouvre la feuille de code de la feuille de calculs. C'est là ! :lol: