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

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

______________________________________________________

A voir également:

VBA fonction Yes/No
Fonction si et - Guide
Fonction find vba - Astuces et Solutions
Nº sur clavier ✓ - Forum Word
No epg found - Forum Box et Streaming vidéo
Incompatibilité de type vba ✓ - Forum Programmation

3 réponses

Réponse 1 / 3

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

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

Réponse 2 / 3

marc07 Messages postés 593 Date d'inscription dimanche 3 avril 2011 Statut Membre Dernière intervention 18 octobre 2014 187
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

Réponse 3 / 3

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
Modifié par michel_m le 23/12/2011 à 16:28

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

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

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

michel_m Messages postés 16602 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 313
23 déc. 2011 à 16:59

Ce que je te dis ou rien, c'est pareil....
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

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

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

Car bien plus haut je dis qu'il a été résolu ...

Discussions similaires

"no tftp response" téléphone alcatel ip 4018

Bonjour à tous,
J'ai un problème sur mon téléphone d'entreprise voix sur IP Alcatel-Lucent IP Touch 4018 Phone.
Il me marque "no tftp response" au démarrage et je n'ai pas du tout la tonalité.
Je n'y connais rien en téléphone voix sur IP et ses paramétrages pour un téléphone d'entreprise.
J'ai pu avoir accès aux réglages en faisant i plus le dièse et j'ai un menu qui commence par 0-Mac Address jusqu'à 8-SIP Download.
Les techniciens l'ont paramétré et il fonctionnait auparavant mais je pense que l'utilisateur a du modifier les réglages..
J'ai un autre téléphone identique mais quand je vais dans réglages avec la flèche du bas, j'ai également un menu ...

"L'indice n'appartient à la sélection" + VBA

Bonjour,
Nous avons un problème dans la programmation de notre VBA. Voici notre programme:

Sub Bloucle1Bull()
Dim a, k As Integer

k = 2
Do While Worksheets("formulaire").Cells(2, 2) Worksheets("formulaire").Cells(k, 4)
k = k + 1
Loop

a = 2
Do While Worksheets("formulaire").Cells(k + 1, 4) Worksheets("BDD Call").Cells(a, 1) Or (Worksheets("BDD Call").Cells(a, 4) = (Worksheets("Bullspread").Cells(2, 3) + 100)) Or Worksheets("BDD Call").Cells(a, 7) Worksheets("bullspread").Cells(2, 7)
a = a + 1
Loop

''''''''''''on recopie la ligne du premier call trouvé pour le jour 2 ...

erreur : DSN PROBE finished no internet

bonjour,

Que faire quand ce message s'affiche pour retrouver internet sur google chrome ?

Merci d'avance

probleme connexion IPTV: Could not connect to the server

Bonjour, après avoir mis mes identifiants, l’ecran affiche qu’il est impossible de se connecter au serveur. Savez-vous pour quelle raison svp ?

no such file or directory

Bonjour,

j'essaie depuis 2 jours de comprendre mon erreur mais rien y fais...

je souhaite lancer un serveur samp j'ai tout installer correctement mais lors du lancement de la commande : ./samp03svr & la commande me retourne ceci:

bash: ./samp03svr: No such file or directory

je précise que le fichier samp03svr est bien dans le dossier dans lequel je fais la commande...

en vous remerciant...

Configuration: Windows / Mozilla 11.0