[COLOR=GRAY][B][I]DANS LE MODULE DE CODE DU USERFORM (OU DE LA FEUILLE SI COMBOBOX SUR FEUILLE)[/I][/B][/COLOR]
[COLOR=NAVY]Private Sub[/COLOR] Cbx_Change()
[COLOR=NAVY]Dim[/COLOR] Rep [COLOR=NAVY]As Integer[/COLOR]
Rep = MsgBox("Etes-vous sur de vouloir valider cette facture comme """ & _
IIf(cbx.Text = "NP", "Non ", "") & "Payée""???", vbYesNo)
[COLOR=NAVY]If[/COLOR] Rep = vbYes [COLOR=NAVY]Then[/COLOR]
[COLOR=GREEN]'Si oui...[/COLOR]
[COLOR=NAVY]Else[/COLOR]
[COLOR=GREEN]'Si non...[/COLOR]
[COLOR=NAVY]End If
End Sub[/COLOR]