Discussion :

[matt8-5]

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

[bidou]

Code :

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

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

[ouskel'n'or]

Je m'inquiète de ça

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à !