XL 2019 MessageBox

[netparty]

Bonjour le forum

Je suis bloqué sur la configuration d'un msgbox.

Dans mon userform j'ai plusieurs champs qui doivent être rempli, mais si un des champs est vide j'aimais qu'il y ai un msg dans lequel il indique quel champs sont manquant.

Je vous remercie d'avance

Bonne journée

 

[fanch55]

Bonjour,
peut-être comme cela :

Private Sub BP_Cellule_Offset_Click()
For Each ID In Array("newy", "newx", "nbLigne", "nbcolonne")
    If Me.Controls("Txb_" & ID) = "" Then
        MsgBox "Le champ" & vbLf & _
               "[" & Me.Controls("Label_" & ID).Caption & "]" & vbLf & _
               "doit être rempli", vbCritical
        Exit Sub
    End If
Next
' ********* Déplacement par OFFSET
Deplacer_Cellule_Par_Offset

End Sub

 

[netparty]

Bonjour,
peut-être comme cela :

Private Sub BP_Cellule_Offset_Click()
For Each ID In Array("newy", "newx", "nbLigne", "nbcolonne")
    If Me.Controls("Txb_" & ID) = "" Then
        MsgBox "Le champ" & vbLf & _
               "[" & Me.Controls("Label_" & ID).Caption & "]" & vbLf & _
               "doit être rempli", vbCritical
        Exit Sub
    End If
Next
' ********* Déplacement par OFFSET
Deplacer_Cellule_Par_Offset

End Sub

Bonjour fanch55

J'ai testé, il indique bien le champs manquants, mais si j'ai plusieurs champs manquant il ne les indique pas tous.
J'aimerais que dans le msgbox il indique tous les champs manquants
Merci

Bonne journée

 

[fanch55]

Private Sub BP_Cellule_Offset_Click()
    For Each ID In Array("newy", "newx", "nbLigne", "nbcolonne")
        If Me.Controls("Txb_" & ID) = "" Then
            ErrMsg = IIf(ErrMsg = "", "", ErrMsg & vbLf) & Me.Controls("Label_" & ID).Caption
        End If
    Next
    If ErrMsg <> "" Then
        MsgBox "Le(s) champ(s)" & vbLf & vbLf & _
                ErrMsg & vbLf & vbLf & _
                "doi(ven)t être rempli(s)", vbCritical
    Else
        Deplacer_Cellule_Par_Offset ' ********* Déplacement par OFFSET
    End If
End Sub

 

[netparty]

Private Sub BP_Cellule_Offset_Click()
    For Each ID In Array("newy", "newx", "nbLigne", "nbcolonne")
        If Me.Controls("Txb_" & ID) = "" Then
            ErrMsg = IIf(ErrMsg = "", "", ErrMsg & vbLf) & Me.Controls("Label_" & ID).Caption
        End If
    Next
    If ErrMsg <> "" Then
        MsgBox "Le(s) champ(s)" & vbLf & vbLf & _
                ErrMsg & vbLf & vbLf & _
                "doi(ven)t être rempli(s)", vbCritical
    Else
        Deplacer_Cellule_Par_Offset ' ********* Déplacement par OFFSET
    End If
End Sub

C'est top

Merci de ton aide

Bonne journée