Tester la réponse d'un Msgbox

Bonjour,

En réutilisant une fonction de Msgbox qui fonctionnait en la conditionnant
j'ai une erreur de compilation qui me dit :

Citation:

Un appel de fonction dans la partie gauche de l'affectation doit renvoyer Variant ou Object

Voici le bout de code :
Code:

1 2 3 4 If Me.SélectionClientNom Like ("*'*") Then MsgBox("Caractère ' non autorisé veuillez utiliser le choix par Code", _ vbYesNo + vbQuestion + vbDefaultButton2, " ") = vbYes End If
Merci d'avance

Marcopololo

Bonjour,

Tel qu'est écrit ton code tu tentes d'affecter vbYes (membre droite) à MsgBox(..) (membre gauche).

Essaie

Code:

1
2
3
4
5
If Me.SélectionClientNom Like ("*'*") Then
        If MsgBox("Caractère ' non autorisé veuillez utiliser le choix par Code", _
                       vbYesNo + vbQuestion + vbDefaultButton2, " ") = vbYes Then
        End If
End If

A+

Merci LedZeppII,

Je m'étais un peu précipité en faisant du copier coller.

Merci pour l'aide. Avec quelques modifications voici ce que j'ai mis :

Code:

1
2
3
4
5
6
7
'Permet de controler que le caractère apostrophe n'est pas utilisé dans le nom de l'entreprise
        If Me.SélectionClientNom Like ("*'*") Then
                      If MsgBox("Caractère ' non autorisé veuillez utiliser le choix par Code", _
                       vbOKOnly + vbExclamation + vbDefaultButton1, " ") = vbOKOnly Then
                      End If
              Exit Sub
        End If

C'est un plaisir d'apprendre avec vous tous

Marcopololo

Si tu veux simplement afficher un message et quitter le procédure, pas besoin de tester la valeur retournée par MsgBox.
Code:

1 2 3 4 5 6 'Permet de controler que le caractère apostrophe n'est pas utilisé dans le nom de l'entreprise If Me.SélectionClientNom Like ("*'*") Then MsgBox "Caractère ' non autorisé veuillez utiliser le choix par Code", _ vbOKOnly + vbExclamation + vbDefaultButton1, " " Exit Sub End If
On peux utiliser les fonctions avec deux syntaxes.
On veut récupérer la valeur retournée par la fonction

Code:

Variable = LaFonction([arg1[,arg2][,...]])

ou
Code:

1 2 3 If LaFonction([arg1[,arg2][,...]]) = .... Then ..... End If
On ne veut pas récupérer la valeur retournée par la fonction

Code:

LaFonction [arg1[,arg2][,...]]
Dans le cas 1 on met des parenthèses.
Dans le cas 2 on ne met pas de parenthèses, comme avec une Sub

A+