Discussion :

[arnold95]

Bonjour, j'ai un problème sous vba excel...en fait, j'utilise une msgbox yes no et selon la reponse deux actions différentes auront lieu...il m'est demandé de le faire avec goto, ou autre etiquette... Et du coup lorsque j'utilise goto, elle me realise les deux conditions.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
reponseQuest = MsgBox("Voulez vous continuer", vbYesNo)
 
'If reponseQuest = "No" Then
'GoTo SuiteNo
'End If
 
'If reponseQuest = "Yes" Then
'GoTo SuiteYes
'End If
 
'SuiteNo:
'MsgBox ("Au revoir"):
 
 
'SuiteYes:
variable1 = InputBox("Entrer le montant?")
variable2 = InputBox("Entrer la date?")
' ...ect

Merci bcp de votre aide.
Bonne journée.

[Krovax]

Premièrement les goto c'est vraiment moche (en tout cas c'est ce que l'on toujours appris). Surtout que visiblement tu n'as pas vraiment compris comment cela fonctionne alors essaye de les éviter

Essaye

Code :

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

1
2
3
4
5
6
7
8
9
10
11
reponseQuest = MsgBox("Voulez vous continuer", vbYesNo)
 
If reponseQuest <> "yes" Then
MsgBox "Au revoir"
exit sub
'End If
 
 
variable1 = InputBox("Entrer le montant?")
variable2 = InputBox("Entrer la date?")
' ...ect

[arnold95]

En fait, c'est vrai on m'a toujours déconseillé d'utiliser goto, mais en fait là, on m'a limite imposer d'utiliser goto ou une autre etiquette... çà ne tiendrait qu'à moi j'aurai fait if...then, c'est très bien mais bon...merci.

[Krovax]

on m'a limite imposer d'utiliser goto ou une autre etiquette... .

Goto envoie vers une étiquette. On ne peux pas utiliser l'un ou l'autre. Soit tu as mal compris, soit il s'est mal exprimé soit il vas te faloir le convaincre...
Sinon juste a la suite de

Code :

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

MsgBox "Au revoir"

Tu met un exit sub
Sinon le programme va gentillement continuer a éxectuer les ligne de code qui suivent et donc ce que tu souhaite réaliser en cas de oui

[ucfoutu]

Bonjour,

Je ne dis pas ce que je pense au fond de moi d'un "prof" qui impose les goto ou (ce que tu appelles "autre étiquette") les renvois divers vers des étiquettes.... bref ... un prof qui "benit" le code spaghetti ...

Ce que je sais, c'est que je ne rate jamais (je suis trop taquin) certains farfelus, lorsque l'occasion m'est donnée de rire un bon coup ...

Sers-lui donc ceci, si la chose l'amuse tant :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
  reponsequest = MsgBox("Voulez vous continuer", vbYesNo)
  On reponsequest - 5 GoSub 1, 2
1: variable1 = InputBox("Entrer le montant?")
  variable2 = InputBox("Entrer la date?")
  GoTo 3
2:  MsgBox "aurevoir"
3:
End Sub

Et envoie-lui le bonjour de satan....

[arnold95]

Merci Ucfoutu, mais je me dis que peut etre qu'il impose çà car il ne maitrise pas.lol. C'est vrai que j'ai souvent entendu dire que les goto etait a éviter et donc je ne les avais jamais utilisé jusqu'à présent...en tout cas merci.

Bonne journée