XL pour MAC UserForm : pb de SetFocus en sortie cancel true de textbox (Office 365 Mac)

[RyuAutodidacte]

Bonjour,
État des lieux : Sur Mac on ne peut pas créer de Userform (disparu après Excel 2011 Merci MS), et on a pas accès au proriétés d'un Userform
par contre on peut créer un UserForm (non active X) sur Excel PC et le coder sur Mac ce que j'ai fait …

Mon problème est qu'en exit d'un textbox en cancel = true + un msgbox (après moult essais) le focus à l'air d'être resté sur le textbox,
sauf que le curseur n'apparait plus dans le textbox en question => donc on ne peut plus écrire dedans sauf si on le sélectionne à la souris

Le code à l'air ok vu les essais et reprises de codes validés en test …
Alors avez vous une idée de contournement svp ??

 

[job75]

Bonjour,
Solution : joindre le fichier et attendre qu'un possesseur de MAC intervienne.

 

[RyuAutodidacte]

Bonjour,
Solution : joindre le fichier et attendre qu'un possesseur de MAC intervienne.

Bonjour job75,
le code est le même que sur PC… un utilisateur PC peut y répondre aussi, comme je l'ai déjà expérimenté avec @patricktoulon sur un autre forum et d'autres (par contre éviter les codes en rapport avec ActiveX).
En plus les utilisateurs MAC faisant du vba sont bcp moins nombreux

le code :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
                    "Put the desired change or cancel the action"

     If TextBox1 > "" And IsNumeric(TextBox1) And Not TextBox1 Like "*-" Then
        'CommandButton2.Enabled = True
    Else
        Cancel = True
        MsgBox Msg
        'TextBox1.SetFocus
        TextBox1 = ""
Exit Sub
    End If

End Sub

J'ai juste besoin d'une astuce qui pourrait être utilisé aussi sur PC permettant que mon curseur soit activé dans la Textbox svp

 

[patricktoulon]

Bonjour Ryu
a tu essayé le selstart tout simplement

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
          "Put the desired change or cancel the action"
    'If TextBox1 > "" And IsNumeric(TextBox1) And Not TextBox1 Like "*-" Then
    If IsNumeric(TextBox1) And TextBox1 Like "*[!-]" Then
        CommandButton2.Enabled = True
    Else
        Cancel = True
        MsgBox Msg
        TextBox1.SelStart = 0
        TextBox1 = ""
        CommandButton2.Enabled = False
    End If
End Sub

 

[patricktoulon]

re
une autre forme d’écriture on sais jamais avec like et MAC j'utilise instr
par contre il faut au moins un autre control enabled pour que le exit fonctionne alors peut être que si tu n'a que le bouton au lieu de le disabled met le invisible par exemple si tu a d'autre controls c'est bon

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Msg$, x As Boolean
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
          "Put the desired change or cancel the action"
    With TextBox1
        x = IsNumeric(.Value) And InStr(1, .Value, "-") = 0
        If x Then
            CommandButton2.Enabled = True
        Else
            Cancel = True
            .Value = ""
            .SelStart = 0
            MsgBox Msg
            CommandButton2.Enabled = False
        End If
    End With
End Sub

 

[RyuAutodidacte]

Bonjour Ryu
a tu essayé le selstart tout simplement

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
          "Put the desired change or cancel the action"
    'If TextBox1 > "" And IsNumeric(TextBox1) And Not TextBox1 Like "*-" Then
    If IsNumeric(TextBox1) And TextBox1 Like "*[!-]" Then
        CommandButton2.Enabled = True
    Else
        Cancel = True
        MsgBox Msg
        TextBox1.SelStart = 0
        TextBox1 = ""
        CommandButton2.Enabled = False
    End If
End Sub

Hi Patrick

Malheureusement, j'ai bien le focus qui reste après le cancel mais tjs pas le curseur qui apparaît et je ne peux donc pas écrire directement.
par contre ce que j'ai remarqué, c'est que le setFocus est ok (avec le curseur) en passant d'un control à un autre, et cela marche aussi si j'enlève le msgbox dans le code dans le Exit du Textbox
on dirait que la fenêtre du msgbox ne fait plus afficher le curseur après validation de celui-ci

Edit : on se croise je vais tester le 2è code
Edit 2 : même résultat pour le 2è code
Edit 3 : je confirme c'est bien le msgbox qui pose pbm, y a t il un moyen de le gérer autrement

 

[patricktoulon]

essaie un repaint peut être avec toute les actions sur textbox apres le message

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim Msg$, x As Boolean
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
          "Put the desired change or cancel the action"
    With TextBox1
        x = IsNumeric(.Value) And InStr(1, .Value, "-") = 0
        If x Then
            CommandButton2.Enabled = True
        Else
             MsgBox Msg
            Cancel = True
            .Value = ""
           Me.Repaint
           .SelStart = 0
           CommandButton2.Enabled = False
        End If
    End With
End Sub

 

[patricktoulon]

c'est possible que le msgbox qui est modal qui enlève le focus sur la fenêtre userform sur Mac ne soit pas redonné a l'userform en sortie

 

[patricktoulon]

au pire tente ça pour redonner le focus a la fenêtre userform
a la place de
me.repaint
tu met
Me.Hide: Me.Show

 

[RyuAutodidacte]

B

au pire tente ça pour redonner le focus a la fenêtre userform
a la place de
me.repaint
tu met
Me.Hide: Me.Show

Hahaha tjs au top Patrick, c'est brutal comme solution mais le Me.Hide: Me.Show résout en effet le pb.
Merci bcp
As tu des conseil de chose à éviter de faire avec le Me.Hide: Me.Show ??

Solution de @patrick, afin de retrouver le curseur du textbox dans un : "Private Sub TextBox1_Exit …" que l'on Cancel :

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Msg = "Be careful: No modification requested on the folios" & vbCrLf & _
          "Put the desired change or cancel the action"
    If IsNumeric(TextBox1) And TextBox1 Like "*[!-]" Then
        CommandButton2.Enabled = True
    Else
        Cancel = True
        MsgBox Msg
        Me.Hide: Me.Show
        TextBox1.SelStart = 0
        TextBox1 = ""
        CommandButton2.Enabled = False
    End If
End Sub

 

[patricktoulon]

re non pas vraiment c'est sans risque me semble t il
peut être une latence sur des vieux PCs un peu lents (on verrait alors disparaître et revenir le userform)
peut être aussi prendre en compte le mode du show initial si modal comme ça sinon ajouter 0 après mon show a fin de le ré afficher comme il était
le remettre au coordonnées ou il était aussi( ce qui voudrait dire qu'il faut mémoriser sa position)
ça c'est juste des questions ergonomiques
fonctionnellement aucune incidence

 

[job75]

Re, salut patricktoulon,

Me.Hide: Me.Show suppose que le focus soit sur la TextBox à l'ouverture de l'USF non ?

Que donne AppActivate Application.Caption à la place ?

A+

 

[RyuAutodidacte]

une erreur pour AppActivate Application.Caption chez moi

 

[patricktoulon]

ahhhh c'est une idée ca @job75 je vais tester

Me.Hide: Me.Show suppose que le focus soit sur la TextBox à l'ouverture de l'USF non ?

si le textbox est le 1 er control dans le tab index oui on peut alors tout virer et garde que hide:show

edit :et oui mais sur Mac il ont pas appactivate me semble t il

 

[RyuAutodidacte]

ahhhh c'est une idée ca @job75 je vais tester

si le textbox est le 1 er control dans le tab index oui on peut alors tout virer et garde que hide:show

edit :et oui mais sur Mac il ont pas appactivate me semble t il

à l'écriture vba me le propose AppActivate mais ca me fait planter dans ce contexte