XL 2013 Positionner le curseur dans le textbox

badraaliou4 · 9 Décembre 2019

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

VB:

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

Et dans la feuille feuil1 (login1)

VB:

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 · 9 Décembre 2019

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

VB:

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

badraaliou4 · 9 Décembre 2019

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

sylvanu · 9 Décembre 2019

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

badraaliou4 · 9 Décembre 2019

Re,
Si jointe le fichier

job75 · 9 Décembre 2019

Bonsoir badraaliou4, sylvanu,

Modifiez la Workbook_Activate :

VB:

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 · 9 Décembre 2019

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 · 9 Décembre 2019

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 · 9 Décembre 2019

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

job75 · 9 Décembre 2019

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

badraaliou4 · 10 Décembre 2019

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...

VB:

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 · 10 Décembre 2019

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 :

VB:

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 · 10 Décembre 2019

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 · 10 Décembre 2019

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

XL 2013 Positionner le curseur dans le textbox

badraaliou4

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

Pièces jointes

job75

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

badraaliou4

XLDnaute Occasionnel

job75

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Discussions similaires