Erreur de syntaxe avec if et and dans une macro

[BASSDINGUE]

bonjour le forum

j'ai la commande suivante

IF ( Controls("OB1").Value = True and lbxdevis.Selected then USFPROSPECTFORM.show)

- le control est un optionbutton
- et lbxdevis une listbox
Je veux afficher le userform " USFPROSPECTFORM" quand l'optionbutton est cliqué et que l'on a fait une selection dans la liste.

Je sais que j'ai une erreur de syntaxe mais je ne la trouve pas , je suppose que ce sont les parentheses qui sont mal placées.
Si quelqu'un peu m'aider, cela me serait utile

merci

 

[tototiti2008]

Re : Erreur de syntaxe avec if et and dans une macro

Bonjour BASSDINGUE,

Comme ça, moi j'enleverais déjà les parenthèses pour voir. Puis si ça plante encore,
vérifie en plaçant des espions les valeurs de Controls("OB1").Value et de lbxdevis.Selected

 

[BASSDINGUE]

Re : Erreur de syntaxe avec if et and dans une macro

Il me dit que ".Selected" est un argument non facultatif

????

 

[tototiti2008]

Re : Erreur de syntaxe avec if et and dans une macro

essaye peut être en remplaçant :

lbxdevis.Selected

par

lbxdevis.Text<>""

si on a choisi quelque chose, je suppose que le contenu de ta liste est non vide

il semblerait que Selected s'utilise comme un tableau :

if lbxdevis.Selected(1) = True then

c'est à dire qu'il attend un indice entre parenthèses

 

[BASSDINGUE]

Re : Erreur de syntaxe avec if et and dans une macro

nickel, ca marche
avec

Private Sub CMB1_Click()

If Controls("OB1").Value = True And LBXDEVIS.Text <> "" = True Then USFENTREPRISE.Show

End Sub

pour ceux que cela peut interesser

merci toto
a bientot