Comment bien positionner le curseur

[Andreleca]

Bonjour,
Avec votre aide j'ai réussi à développé sur excel un programme. Par contre comme je ne suis pas expert je ne comprend pas bien les effets de certaines formules.
Voici une macro :

Sub test()
ActiveSheet.Unprotect
Dim ws As Worksheet, n As String
n = InputBox("Nom client ?")
If n = "" Then Exit Sub
Sheets("Vierge").Copy after:=Sheets("Sommaire")
Set ws = Sheets("Sommaire").Next
With ws
    .Visible = True
    .Name = n
End With
With Sheets("Sommaire")
    .Hyperlinks.Add Anchor:=.Range("A65536").End(xlUp)(2), Address:="", _
        SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:=ws.Name
    .Range("B65536").End(xlUp)(2).FormulaLocal = "='" & n & "'!A6"
    .Range("c65536").End(xlUp)(2).FormulaLocal = "='" & n & "'!b6"
 End With
Sheets("Sommaire").Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFiltering:=True
End Sub

Le problème est qu'une fois cette macro exécuté j'aimerais que mon curseur se positionne automatiquement sur le nouvel onglet crée. Actuellement il se positionne sur l'avant dernier onglet créé.

Merci encore de votre précieuse aide

 

[youky(BJ)]

Re : Comment bien positionner le curseur

Bonjour Andreleca,
En dernière ligne rajoute..
Sheets(n).Select
Bruno

 

[Andreleca]

Re : Comment bien positionner le curseur

Merci Bruno 🙂 😀 😉