VBA fonction Yes/No
Résolu/Fermé
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
-
Modifié par gregg1712 le 23/12/2011 à 16:07
gregg1712 Messages postés 45 Date d'inscription dimanche 20 décembre 2009 Statut Membre Dernière intervention 7 juillet 2022 - 23 déc. 2011 à 17:15
gregg1712 Messages postés 45 Date d'inscription dimanche 20 décembre 2009 Statut Membre Dernière intervention 7 juillet 2022 - 23 déc. 2011 à 17:15
A voir également:
- VBA fonction Yes/No
- Fonction si et - Guide
- No such file or directory ✓ - Forum Linux / Unix
- Dns probe finished no internet ✓ - Forum DNS
- No signal tv - Guide
- Vba range avec variable ✓ - Forum VB / VBA
3 réponses
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
2
Modifié par gregg1712 le 23/12/2011 à 16:18
Modifié par gregg1712 le 23/12/2011 à 16:18
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
___________________________________
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
marc07
Messages postés
590
Date d'inscription
dimanche 3 avril 2011
Statut
Membre
Dernière intervention
18 octobre 2014
187
23 déc. 2011 à 16:12
23 déc. 2011 à 16:12
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
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 23/12/2011 à 16:28
Modifié par michel_m le 23/12/2011 à 16:28
Bonjour
comprend pas bien ce que tu veux faire mais...
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
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
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
2
23 déc. 2011 à 16:57
23 déc. 2011 à 16:57
Merci Michel_m pour ta réponse, mais je m'étais trompé ...
_____________
Sub Depense()
Dim Salaire As Integer
Dim Proprio As Byte
Dim Financement As String
Dim Loyer As Integer
Range("B2").Select
Salaire = InputBox("Entrez votre salaire mensuel (en €):")
ActiveCell.Offset(0, 0).Value = Salaire
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
If Proprio = 1 Then
Financement = MsgBox("Avez-vous un financement?", vbYesNo, "x")
End If
If Proprio = 1 Or 2 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
End Sub
___________________________________
Il à juste un problème avec la dernière boucle, en effet,
_ un locataire= paye un loyer
_Un propriétaire en financement= paye un loyer
_Un propriétaire sans financement= ne paye PAS de loyer
Mais il demande quand même le loyer :s
_____________
Sub Depense()
Dim Salaire As Integer
Dim Proprio As Byte
Dim Financement As String
Dim Loyer As Integer
Range("B2").Select
Salaire = InputBox("Entrez votre salaire mensuel (en €):")
ActiveCell.Offset(0, 0).Value = Salaire
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
If Proprio = 1 Then
Financement = MsgBox("Avez-vous un financement?", vbYesNo, "x")
End If
If Proprio = 1 Or 2 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
End Sub
___________________________________
Il à juste un problème avec la dernière boucle, en effet,
_ un locataire= paye un loyer
_Un propriétaire en financement= paye un loyer
_Un propriétaire sans financement= ne paye PAS de loyer
Mais il demande quand même le loyer :s
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
23 déc. 2011 à 16:59
23 déc. 2011 à 16:59
Ce que je te dis ou rien, c'est pareil....
Donc
Abandon
Donc
Abandon
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
2
23 déc. 2011 à 17:01
23 déc. 2011 à 17:01
Je pense que If 1 ou 2 écrase le And...
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
2
23 déc. 2011 à 17:03
23 déc. 2011 à 17:03
Mais michael, le problème antérieur n'est plus d'actualité ...
gregg1712
Messages postés
45
Date d'inscription
dimanche 20 décembre 2009
Statut
Membre
Dernière intervention
7 juillet 2022
2
23 déc. 2011 à 17:05
23 déc. 2011 à 17:05
Car bien plus haut je dis qu'il a été résolu ...
