Nouvel onglet

[Mapat]

Bonjour

Un petit code trouvé sur le forum permet de créer un nouvel onglet basé sur une feuille modèle.
A chaque création, la nouvelle feuille se positionne à la suite des onglets déjà existants.
Est-il possible d'inverser cet automatisme, c'est à dire de placer la nouvelle feuille après "Nouvel onglet" dans l'exemple ci-joint
Merci et meilleurs vœux à tous

 

[cp4]

Bonjour,

Remplace After par Before

 

[vgendron]

Hello

ou avec ca.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim r As Range
Dim ws As Worksheet
Dim wsexist As Boolean

Application.ScreenUpdating = False
If Not Intersect(Target, Range("G9")) Is Nothing Then
    For Each r In Range("F9:F18")
        wsexist = False
  
        If r.Value <> "" Then
            For Each ws In ThisWorkbook.Worksheets
                If ws.Name = r.Value Then
                    wsexist = True
                    Exit For
                End If
            Next ws
    
            If Not wsexist Then
                Worksheets("Modèle").Copy After:=Sheets("Nouvel onglet")
                ActiveSheet.Name = r.Value
            End If
        End If
    Next r
    Cancel = True
End If
Application.ScreenUpdating = True
End Sub

c'est marrant... ca me rappelle un autre post.. très récent......
ca sent le devoir d'école
https://www.excel-downloads.com/thr...-feuille-modele-a-partir-dune-liste.20021855/

 

[Mapat]

Re
Merci à vous deux de vos réponses rapides
Je me doutais bien que ca ne devait pas être compliqué pour les "balaizes" du forum
Ce qui me vaut une réponse chargée d'une gentille ironie, à la hauteur de la question.
J'adore excel, mais je ne serai jamais bon dans la programation
Tant pis, tant pis !!!! .........
Bonne journée