XL 2013 Positionner le curseur dans le textbox

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Décembre 2019

• #2

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

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #3

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

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Décembre 2019

• #4

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

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #5

Re,
Si jointe le fichier

 

Pièces jointes

• Classeur1.xlsm

  19.8 KB · Affichages: 7

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Décembre 2019

• #6

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+

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #7

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 .

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 9 Décembre 2019

• #8

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?

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 9 Décembre 2019

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Décembre 2019

• #10

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

 

Vote positif 0 Vote négatif

badraaliou4

XLDnaute Occasionnel

• 10 Décembre 2019

• #11

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2019

• #12

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.

 

Pièces jointes

• Classeur(1).xlsm

  22.1 KB · Affichages: 5

Dernière édition: 10 Décembre 2019

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Décembre 2019

• #13

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 ?

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Décembre 2019

• #14

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

 

Vote positif 0 Vote négatif