Salut,
Veuillez trouver ci-dessous un exemple simplifié de mon code mais qui ne fonctionne pas :il m'affiche un msgbox uniquement pour le dernier contrôle :
[code][/Sub controle_2()
If D8 = "" Then
msg = "Absence Donnée obligatoire!! Il faut saisir le nom dans la cellule D8"
End If
If D9 = "" Then
If msg <> "" Then msg = msg & Chr(13)
msg = "Absence Donnée obligatoire!! Il faut saisir le prénom dans la cellule D9"
End If
If D10 = "" Then
If msg <> "" Then msg = msg & Chr(13)
msg = "Absence Donnée obligatoire!! Il faut saisir l'adresse dans la cellule D10"
End If
If msg <> "" Then MsgBox msg
End Subcode]