userform Résolu

Question

Bonjour,
une question à propos d'un userform, je l'ai crée pas de problème
mais j'ai un bouton ok et selon ce que j'ai coché dans mon userform il devrait appelé differentes macro
comment faire, mon programme marche pas :

Private Sub CommandButton1_Click()
If zone1 Then
Call plan1


If zone2 Then
Call plan2


If zone3 Then
Call plan3


End If
End If
End If


Unload UserForm1
End Sub

jrivet · Accepted Answer

RE,

> [auteur/BIGFISHLEVRAI/510670.aspx bigfish_le vrai] :Et bien je ne suis pas sûr. Si Value est de type Booleen ET est la propriété par défaut des option Button (pas VB à la maison) et bien tu peux très bien Faire 

If Zone1 Then Call TaMAcro
Cela revient à faire If True Then (ceci est un If Correct) ou If False Then 
(teste mais je crois ne pas dire de bêtise)

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

JPGVB · Answer

Bonjour, je pense que ton problème vient de la position de tes end if
essaie:

Private Sub CommandButton1_Click()
If zone1 Then Call plan1
If zone2 Then Call plan2

If zone3 Then Call plan3

Unload UserForm1
End Sub

NB: dans ce que tu as fait, la condition zone2 n'est testée que si zone1 est true et ainsi de suite en cascade.

jrivet · Answer

Salut,

Il faudrait précise le type de zone1.

De plus il faudrait dire "ce qui ne marche pas" (erreur ou pas si oui laquelle) bref penser à ceux qui lise qui prenne de leur temps pour essayer d'aider.

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse acceptée

jrivet · Answer

[auteur/JPGVB/479263.aspx JPGVB bien vu]







<hr size="2" width="100%" />

@+: Ju£i?n


Pensez: Réponse acceptée

apex77 · Answer

le prolème est que je fais ca , ma boite apparait je fais mon chois , je clique sur ok
mais mon sous programme ne se lance pas
pourquoi ?

JPGVB · Answer

Même question que jrivet qu'est-ce que zone1? faut il attendre une réponse du type vrai/faux ou 0/1 ...


Commence par mettre un espion sur zone1 pour voir la valeur renvoyée quand coché ou non.

apex77 · Answer

en fait dans l'userform
l'utilisateur peut avoir des infos sur l'une des 3 zones
pour choisir celle qu'il veut 
il clique que celle qu'il veut puis sur Ok
et après le sous programme concernant chaque zone se lance (devrait se lancer ..)

jrivet · Answer

Re,
OUi non mais d'accor mais de Il faudrait précise le type de zone1.


Est ce que c'est un crayon, un textbox, une chaussette, un optionButton... Bref QU'EST CE QUE C'EST 
@+: Ju£i?n
Pensez: Réponse acceptée

cs_faucheuse · Answer

J'vais attendre un peu avant de lacher une bonne vanne ironique ^^.

Jrivet je t'admire, je viens de regarder plein de message semblables, et à chaque fois tu répondait un minimum poliment...<voix solanelle> quelle patience...quelle hamabilité.
Il est tant que je me demande si c'est bien de flooder ici

jrivet · Answer

Re, 
>[auteur/FAUCHEUSE/1265966.aspx faucheuse] : Merki  Mais j'avoue que ca devient de plus en plus difficile.

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse acceptée

apex77 · Answer

excusez moi je suis un peu novice dans tou ce termes 
zone 1 est un optionButton
merci

apex77 · Answer

pouvez vous m'aider ?

bigfish_le vrai · Answer

Salut,

un if sert a verifier une condition ou une valeur par exemple :

si bob = 1 alors je lance ma macro
ousi bil vrai alors bob 0

donc, If zone1 Then Call plan1 ne peut pas fonctioner car tu compares zone1 a rien

un optionbutton est a vrai si il est selectionné et a faux si il ne l'est pas il faut donc verifier sont etat (Vrai ou Faux).
Je suppose que zone1,zone2,zone3 sont les nom de tes optionbutton donc :

Private Sub CommandButton1_Click()    If zone1.value True Then Call plan1     If zone2.value True  Then Call plan2

    If zone3.value = True  Then Call plan3

    Unload UserForm1
End Sub

A+

apex77 · Answer

on met dit qualificateur incorrect pourquoi ?

apex77 · Answer

ca me fait plus qualificateur incorrect mais ar contre ca me lance pas mon sous programme pourquoi ?

jrivet · Answer

Re,
il faut Dire sur quelle ligne il te met ce "qualificateur" incorrect. Et remettre le code ue tu utilises pour voir ta base de travail actuelle.

<hr size="2" width="100%" />@+: Ju£i?n
Pensez: Réponse

bigfish_le vrai · Answer

...

essai de remplacer zone1, zone2, zone3 par

Private Sub CommandButton1_Click()    If OptionButton1.value True Then Call plan1     If OptionButton2.value True  Then Call plan2

    If OptionButton3.value = True  Then Call plan3

    Unload UserForm1
End Sub

A+

Userform

17 réponses

Votre réponse

Discussions similaires