XL 2010 erreur setfocus textbox

[dev_co]

Bonjour
Jamais vu cette erreur , de quoi cela provient-il ?
en fait je veux si OUI relancer la saisie pour une nouvelle fiche
donc garder l'usf sinon on sort
merci

 

[patricktoulon]

Bonjour
ben c'est normal tu affiche un msgbox(qui prend le focus et en mode modal en plus) tu n'a donc plus le focus sur l'userform et donc pas possible de mettre un focus sur un control de cet userform
il te faut donc réactiver la fenêtre de cet userform

d'autant plus que tu lock des cellules c'est donc l'application qui prends le focus avant même le msgbox

enfin je suppose 😉

 

[patricktoulon]

re
après test il semblerait que non
il faudrait tout le code du cet event pour comprendre

 

[dev_co]

oK MERCI
mais on fait comment
ci joint fichier ; je n'arrive pas ce que l'on puisse refaire une fiche ?

 

[patricktoulon]

re
bon ben voila ton code utilisait un msgbox anonyme et non responsif
c'est comme ca qu'on fait

Private Sub valid_Click()
Dim x&
With Worksheets("Intersecur2021")
.Unprotect
dlg = DerLigne(.Range("A3"))
.Cells(dlg + 1, 1) = DateIN
.Cells(dlg + 1, 2) = NAN
.Cells(dlg + 1, 5) = UDI
.Cells(dlg + 1, 6) = IHM
.Cells(dlg + 1, 7) = TypInc
.Cells(dlg + 1, 8) = RG
.Cells(dlg + 1, 10) = Refsec
.Cells(dlg + 1, 11) = Date
DIRI = .Cells(dlg + 1, 9)   ' affectation var. pour desti E mail
Rsec = Val(Refsec)    '    variable pour référence Securite dans E mail
.Range("A4:W1000").Locked = True
'.Range("A4" & ":W" & dlg + 1).Locked = True
.Protect
End With
'Call envoimail
x = MsgBox("Autre saisie de fiche ?", vbYesNo)
If x = vbNo Then
Worksheets("Intersecur2021").Activate
Unload UserForm1
Else
DateIN.Value = "": NAN.Value = "": UDI.Value = "": IHM.Value = "": RG.Value = "": Refsec.Value = "": TypInc.Value = ""
DateIN.SetFocus
End If
End Sub

 

[dev_co]

Ah oui !!!! pourtant c'est ce que j'utilisais ...mais il y a longtemps
Merci bien