XL 2013 Positionner le curseur dans le textbox

[badraaliou4]

Bonjour,
J'ai un textbox dans ma feuille "login1"
À l'ouverture du classeur j'ai mis ce code dans thisworkbook

private sub workbook_activate()
sheets("login1").select
end sub

Et dans la feuille feuil1 (login1)

private sub worksheet_activate()
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
ActiveSheet.Unprotect Password:="xxxx"

    Me.textbox1.Height = 19.5
    Me.textbox1.Width = 160.5
    Me.textbox1.Top = 147.75
    Me.textbox1.Left = 431.25
    ActiveSheet.Protect Password:="xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
me.textbox1.activate
end sub

Mais ça ne marche pas
Il faut chaque fois que je clique sur le textbox.
Ya t'il unE solution pour ça
Merci pour votre aide ...

 

[sylvanu]

Bonsoir Badraaliou,
Pour lancer une macro à l'ouverture du fichier, utilisez Worbook_Open et non workbook_activate.

Private Sub Workbook_Open()
    Sheets("login1").Select
End Sub

 

[badraaliou4]

Re,
Merci
mais même ça. Il ne marche pas

 

[sylvanu]

Vous n'auriez pas un fichier simplifié à nous fournir ?

 

[badraaliou4]

Re,
Si jointe le fichier

 

[job75]

Bonsoir badraaliou4, sylvanu,

Modifiez la Workbook_Activate :

Private Sub Workbook_Activate()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Sheets.Add Before:=Sheets(1) 'ajout d'une feuille auxiliaire
Sheets("login1").Activate 'lance la macro Worksheet_Activate
Sheets(1).Delete 'suppression de la feuille auxiliaire
End Sub

A+

 

[badraaliou4]

Re,
Merci ça marche,
Mais le contenu du textbox sera invisible.
Il faut que clique sur le textbox pour savoir si c'est rempli ou pas .

 

[sylvanu]

Bonsoir badraaliou4, Job,
Je ne suis pas parvenu à repositionner le curseur dans le textbox dés le départ.
Pourquoi ne pas passer par un useform qui là ne pose aucun probleme?

 

[badraaliou4]

Re,
Je ne maîtrise pas trop le userform...

 

[job75]

Pour que le curseur se positionne dans la TextBox supprimer Application.ScreenUpdating = True dans la Worksheet_Activate.

 

[badraaliou4]

Re,
MERCI job75, Merci ylvanu
J'ai le code de Job75 au Workbook
Et le code ci dessous au worksheet
Ça marche maintenant très bien ...
Un grand merci à vous...

private sub worksheet_activate()
Application.ScreenUpdating = False
ActiveWindow.DisplayWorkbookTabs = False
    With ActiveWindow
        .DisplayHorizontalScrollBar = False
        .DisplayVerticalScrollBar = False
    End With
    
    
textbox1.value="" 'retouche
ActiveSheet.Unprotect Password:="xxxx"

    Me.textbox1.Height = 19.5
    Me.textbox1.Width = 160.5
    Me.textbox1.Top = 147.75
    Me.textbox1.Left = 431.25
textbox1.activate ' replace ici
ActiveSheet.Protect Password:="xxxx", DrawingObjects:=True, Contents:=True, Scenarios:=True
Application.ScreenUpdating = True
end sub

 

[job75]

Bonjour badraaliou4, sylvanu, le forum,

Ma macro du post #6 fonctionne même s'il n'y a que la feuille "login1" dans le classeur.

Mais si la feuille "accueil" est toujours présente on peut simplifier :

Private Sub Workbook_Activate()
Dim s As Boolean
s = Me.Saved 'mémorise l'état
Application.ScreenUpdating = False
Sheets("accueil").Activate
Sheets("login1").Activate 'lance la macro Worksheet_Activate
If s Then Me.Saved = True 'évite l'invite à la fermeture si aucune modification
End Sub

Edit : avec la dernière ligne on évite le message agaçant quand on referme le fichier sans rien faire.

Bonne journée.

 

[sylvanu]

Bonjour badraaliou4, Job,
Job, juste une petite explication sur votre post #10 :
Pourquoi Application.ScreenUpdating = True résoud le problème puique en sortant de la macro, ce booleen sera remis à True ?

 

[job75]

Application.ScreenUpdating = True doit être mis à la fin ou mieux, supprimé.