formulaire OUTLOOK

formulaire OUTLOOK - VB/VBA/VBS - Programmation

Marsh Posté le 02-07-2010 à 12:03:24    

Bonjour,
 
Je débute et rame sur la mise en place d'un formulaire "interactif" dans outlook.
 
Pourriez-vous m'expliquer pourquoi le formulaire ne réagit pas en temps réel?
 
Ou comment faire pour afficher une image en fonction d'une selection en ListBox.
 
Ci joint mon code:
 
Dim CHOIX
 
Sub CheckBox1_Click()
Set CHOIX = Listbox1.Value
     If CHOIX = 2 Then
        Image2.Visible = True
        Image5.Visible = False
     Else
        Image5.Visible = True
        Image2.Visible = False
     End If
End Sub
 
Merci par avance pour votre aide

Reply

Marsh Posté le 02-07-2010 à 12:03:24   

Reply

Marsh Posté le 03-07-2010 à 09:01:59    

eliotbdr a écrit :

Bonjour,
 
Je débute et rame sur la mise en place d'un formulaire "interactif" dans outlook.
 
Pourriez-vous m'expliquer pourquoi le formulaire ne réagit pas en temps réel?
 
Ou comment faire pour afficher une image en fonction d'une selection en ListBox.
 
Ci joint mon code:
 
Dim CHOIX
 
Sub CheckBox1_Click()
Set CHOIX = Listbox1.Value
     If CHOIX = 2 Then
        Image2.Visible = True
        Image5.Visible = False
     Else
        Image5.Visible = True
        Image2.Visible = False
     End If
End Sub
 
Merci par avance pour votre aide


 

Set CHOIX = Listbox1.Value


Ca vient en partie de là.
 
Quand on met le mot clé SET, on parle de variable objet, alors que la valeur d'une listbox est une variable de type integer (entier jusqu'à 65000)
 
Essaye ça :

Sub CheckBox1_Click()
Dim CHOIX as Integer
CHOIX = Listbox1.Value
     If CHOIX = 2 Then
        Image2.Visible = True
        Image5.Visible = False
     Else
        Image5.Visible = True
        Image2.Visible = False
     End If
End Sub


Message édité par Otobox le 03-07-2010 à 09:04:06

---------------
OtObOxBlOg - - - Etre seul à avoir tort  c'est plus difficile, mais c'est bien plus beau que d'avoir raison avec une bande de cons
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed