VBA fonction Yes/No

Résolu/Fermé
Signaler
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
-
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
-
Bonjour,


Un petit problème, je voudrais donc d'abord savoir si la personne est Propriétaire ou Locataire ensuite si elle est propriétaire savoir si elle à un financement ou pas (avec la fct yes/no):
Je suis bloqué ici ...
__________________________________________


Dim Proprio As Byte
Dim Financement As String

Do
Proprio = InputBox("Entrez :" & vbCrLf & "1 si vous êtes Propriétaire" & vbCrLf & "2 si vous êtes Locataire")
If Not (Proprio = 1 Or Proprio = 2) Then MsgBox "Erreur de saisie. Recommencez"
Loop Until Proprio = 1 Or Proprio = 2




Financement = MsgBox("Avez-vous un financement?", vbYesNo)
MsgBox vbYes

MsgBox vbNo

______________________________________________________

3 réponses

Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
2
C'est bon j'ai ajouté
___________________________________
Financement = MsgBox("Avez-vous un financement?", vbYesNo, "Yadda?")

If Fianacement = vbYes Then
MsgBox "Lol"
Else
MsgBox "gg"
End If
_______________________
Et ca marche =)

_Mais que représente le Yadda? :p
_Et c'est possible que les Yes/no affect de nouvelles variables au lieux d'avoir un MsgBox ? :)

Merci d'avance
Messages postés
590
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
194
Bonsoir,
suis pas expert en VBA mais si vous voulez que quelqu'un vous aide il serais bien de mettre votre fichier en ligne sans données confidenciels

marc
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 décembre 2021
3 252
Bonjour

comprend pas bien ce que tu veux faire mais...

If proprio = 1 Then 
     finance = MsgBox("Avez-vous un financement?", vbYesNo) 
     If finance = "" Then Exit Sub 
     If finance = 6 Then 
          MsgBox vbYes 
     Else 
          MsgBox vbNo 
     End If 
End If


Pourquoi un inputbox au départ puisqu'un msgbox "Etes vous proprio?", vbyesno pourrait faire l'affaire avec sortie de programme si abandon

au lieu de 1 tu aurais 6 pour proprio et 7 si locataire...

et tu as la réponse pour la constution de la variable "finance" de type Byte
Michel
Messages postés
16538
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
6 décembre 2021
3 252
Ce que je te dis ou rien, c'est pareil....
Donc
Abandon
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
2
Je pense que If 1 ou 2 écrase le And...
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
2
Mais michael, le problème antérieur n'est plus d'actualité ...
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
2
Car bien plus haut je dis qu'il a été résolu ...
Messages postés
38
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
25 décembre 2011
2
Résolu en ajoutant une constante qui uni le 1 et 2
----

If Proprio = 1 Or 2 Then
A = Proprio
Else
B = Proprio
End If


If Proprio = A And Financement = Yes Then
Loyer = InputBox("Indez votre loyer mensuel (en €)")
ActiveCell.Offset(1, 0).Value = Loyer
Else
ActiveCell.Offset(1, 0).Value = "0"
End If

____

Merci en tout cas :)