1 2 3
| If MsgBox("Voulez-vous modifier la saisie?" & vbCrLf & "Plus information cliquer sur l'icône info.", vbYesNo, "Demande d'action à effectuer" & vbCrLf & "Le client " & NP & " est déjà dans la base." & vbCrLf & "Si ce sont deux clients différents portant le même nom et prénom vous serez dans l'obligation de rajouter un chiffre de préférence après le prénom." & vbCrLf & "Dans ce cas cliquer sur 'Oui' et modifier le prénom" & vbCrLf & "Sinon cliquer sur 'Non'. Attention dans ce cas la saisie sera effacée") = vbNo Then
' ton traitement
End If |