Discussion :

[Marcopololo]

Bonjour,

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

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

Voici le bout de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LedZeppII]

Bonjour,

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

Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[Marcopololo]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[LedZeppII]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

1. On veut récupérer la valeur retournée par la fonction
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

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

   ou
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   1
   2
   3
   If LaFonction([arg1[,arg2][,...]]) = .... Then
                 .....
   End If

2. On ne veut pas récupérer la valeur retournée par la fonction
   

   Code :

   Sélectionner tout - Visualiser dans une fenêtre à part

   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+