Les boucles je crois ou renvoi alors...Résolu

Question

Oui je dis je crois car je ne les ai pas encore utilisées ;)

Bon soyons clair
Dans mon projet, je demande par deux boites à la suite s'il y a des données de facturation complémentaire (ddecomplt & ddecomplt2).
Hors en faisant tester mon projet j'ai vu qu'un utilisateur peu attentif peu dire Yes dans ddecomplt alors qu'il n'y a pas de données supplémentaires.
Mais l'erreur est commise et les boîtes suivantes s'affichent typecomplt, qtecomplt...

Ma question:
Je veux qu'en cas d'erreur de l'utilisateur, clicker sur cancel dans typecomplt envoi le client à ddecomplt2.
J'ai essayé avec
If typecomplt= vb cancel then
  GoTo ddecomplt2 mais ca marche pas :(
Comment faire? Merci

Voici mon code:

ddecomplt = MsgBox("Facturation complémentaires? (ex: frais...)", vbYesNo + vbQuestion, "Complément de facturation")
        If ddecomplt = vbYes Then
            typecomplt = InputBox("Quel est le type de complément? (ex:frais...)", "Type de complément")
            qtecomplt = InputBox("Quantité du supplément?", "Quantité")
            tarifcomplt = InputBox("Tarif affecté au complément?", "Tarif")
        Else
        End If
        ddecomplt2 = MsgBox("Facturation complémentaires 2? (ex: frais...)", vbYesNo + vbQuestion, "Complément de facturation 2")
        If ddecomplt2 = vbYes Then.....

spa666 · Accepted Answer

je m etais tromp&#233;

ddecomplt = MsgBox("Facturation compl&#233;mentaires? (ex: frais...)", vbYesNo + vbQuestion, "Compl&#233;ment de facturation")
        If ddecomplt = vbYes Then
            typecomplt = InputBox("Quel est le type de compl&#233;ment? (ex:frais...)", "Type de compl&#233;ment")
            if typecomplt <> "" then
               qtecomplt = InputBox("Quantit&#233; du suppl&#233;ment?", "Quantit&#233;")
               tarifcomplt = InputBox("Tarif affect&#233; au compl&#233;ment?", "Tarif")
            End If
        Else
        End If
        ddecomplt2 = MsgBox("Facturation compl&#233;mentaires 2? (ex: frais...)", vbYesNo + vbQuestion, "Compl&#233;ment de facturation 2")
        If ddecomplt2 = vbYes Then.....

Renfield · Answer

Goto renvoie a une etiquette...

ajoute simplement une etiquette :

Question1:
     If MsgBox (...) ....

Question2:
     If MsgBox (...) = VbCancel Then
        Goto Question1
     End If

spa666 · Answer

essaie :

ddecomplt = MsgBox("Facturation compl&#233;mentaires? (ex: frais...)", vbYesNo + vbQuestion, "Compl&#233;ment de facturation")
        If ddecomplt = vbYes Then
            typecomplt = InputBox("Quel est le type de compl&#233;ment? (ex:frais...)", "Type de compl&#233;ment")
            qtecomplt = InputBox("Quantit&#233; du suppl&#233;ment?", "Quantit&#233;")
            if qtecomplt <> "" then
               tarifcomplt = InputBox("Tarif affect&#233; au compl&#233;ment?", "Tarif")
            End If
        Else
        End If
        ddecomplt2 = MsgBox("Facturation compl&#233;mentaires 2? (ex: frais...)", vbYesNo + vbQuestion, "Compl&#233;ment de facturation 2")
        If ddecomplt2 = vbYes Then.....

FGIO51 · Answer

J'ai essaye vos deux méthodes mais cela ne marche pas
SNIFFF!!!

Renfield · Answer

tu aurais une description informatique de "ca ne marche pas" ???

FGIO51 · Answer

En cliquant cancel dans la boite typecomplt Vb poursuit le reste du code et affiche qtecomplt puis tarifcomplt et comme je click toujours sur cancel aucune info n'est enregistrée et je reçoi un message de bug provenant des endroits où sont utilisés les résultats des boites.

Il semble ne pas lire le GoTo en fait
Peut-être cela vient de ma ligne If typecomplt = vbCancel Then
comprend-t-il que je click sur cancel je le crois.

FGIO51 · Answer

Merci spa666

Là ca marche.
Cela ne me plait pas car cela fait un If de plus ;) mais bon cela marche donc je ne vais pas me plaindre.
Il est vrai je m'attendais à une solution plus compliquer... ;)
Encore merci.

Les boucles je crois ou renvoi alors...

7 réponses

Discussions similaires