couplage de 2 actions (c a l'air compliqué mais c très simple!)

[benjamin]

Bonjour à tous,

Ca fait qq temps que je n ai pas posté sur ce forum mais je viens qd meme de temps a autre. Au fait thierry, ton smiley avec sa pancarte LoL est trop fort.

Bon j ai un petit probleme qui devrait être resolu facilement. En fait il s agit simplement de coupler deux actions à la suite d'un "Then" : CALL updating et session.HIDE

Je vous donne le code ça sera + clair. Voilà les 2 actions séparées

If x <> 0 Then T = MsgBox("Please enter your password again", vbOKOnly, "Error")
If x = 0 Then Call Updating

If x <> 0 Then T = MsgBox("Please enter your password again", vbOKOnly, "Error")
If x = 0 Then Session.hide

Je voudrais maintenant la réduire en une.

Merci de votre aide et bon we par avance.

 

[sousou]

Cela devrait te satisfaire

If x <> 0 Then
T = MsgBox("Please enter your password again", vbOKOnly, "Error")
else
Call Updating
Session.hide
end if

 

[benjamin]

merci sousou, mais ce n'est pas ce que je veux.

Je cherche juste à avoir l'équivalent du "and" sous Excel en VBA

 

[sousou]

Désolé mais j'ai du mal à suivre.

Enfin, voici une utilation du and

If x>0 and x<10 then

action1
action2

end if

 

[benjamin]

Ne soit pas désolé, c moi qui ne suit pas très clair :

Voilà ce que je veux :

If x <> 0 Then T = MsgBox("Please enter your password again", vbOKOnly, "Error")
If x = 0 Then Call Updating AND Session.hide

Mais le "and" ne marche pas sur VBA. J'espère être plus clair comme ca.

En tout cas merci de vouloir m'aider !

 

[sousou]

C'est bien ce fait ma première réponse!

 

[benjamin]

oui c t bien ta premiere réponse. Désolé mais en fait je me suis rendu compte que je ne posais pas la bonne question. Je vais donc poser mon nouveau problème.

J'aurais besoin d'une boucle qui dise :
- que tant que x n'est pas égal à 0, il faut afficher la messagebox d'erreur (de mot de passe) et
- que dès qu'il est égal à 0, alors il faut à la fois lancer l'update (Call updating) et cacher la userform active "Session" (Session.Hide) dans cet ordre.

Merci d'avance et désolé de pas être au top !!!

 

[sousou]

je teste 1 car implicitement la valeur est à zéro
Tant que le mot de passe n'est pas correct, je le redemande.

sub deb()
while calcul() <>1
msgbox ("erreur!")
wend
action1
action2
end sub


function calcul()
t= inputbox ("Saisissez votre mot de passe.")
.....

if .... then calcul=1
end function

 

[benjamin]

Mille excuse, j'ai lancé un nouveau message pour une boucle (vu que ça n'avait plus grand chose à voir avec le titre de mon post) sans avoir vu que tu m'avais répondu.

Je vais tester ta solution de suite. Merci