XL 2019 Contrôle de saisie dans un USF

sylvanu à dit:

Bonjour TjierryP,Pas sur d'avoir tout compris.
Mais en modifiant CB_OK_Click avec :

VB:

If UCase(Me.CB_Motif) = "AUTRE" And Me.TB_Motif.Visible = False Then
    With Me.TB_Motif
        .Visible = True
        .SetFocus
        Exit Sub
    End With
End If

ça améliore les choses car on différencie Confirmer sans ou sans la demande de saisie du motif.

Cliquez pour agrandir...

wDog66 à dit:

Bonjour Thierry,

Voici comment il faut faire, je pense.
Il faut supprimer le début du code de l'USF et le remplacer par

VB:

Option Explicit

Private Sub CB_Motif_Change()
  If Me.CB_Motif.Value = "Autre" Then
    MsgBox "Saisissez votre motif (limité à 15 caractères)."
    With Me.TB_Motif
      .Visible = True
      .SetFocus
    End With
  End If
End Sub

Private Sub CB_OK_Click()
  If UCase(Me.CB_Motif) = "AUTRE" And Me.TB_Motif = "" Then
    MsgBox "Merci de saisir un motif (obligatoire) !"
    Me.TB_Motif.SetFocus
    Exit Sub
  End If
  With Feuil1
    ' ... suite du code'

Edit : Salut Sylvanu

A+

Cliquez pour agrandir...