Deux Conditions VBA pour deux resultas
Résolu/Fermé
daliltim
Messages postés
19
Date d'inscription
lundi 20 août 2007
Statut
Membre
Dernière intervention
30 novembre 2016
-
Modifié par Whismeril le 12/04/2015 à 10:49
daliltim Messages postés 19 Date d'inscription lundi 20 août 2007 Statut Membre Dernière intervention 30 novembre 2016 - 29 nov. 2016 à 11:50
daliltim Messages postés 19 Date d'inscription lundi 20 août 2007 Statut Membre Dernière intervention 30 novembre 2016 - 29 nov. 2016 à 11:50
A voir également:
- Deux Conditions VBA pour deux resultas
- Deux comptes whatsapp - Guide
- Deux ecran pc - Guide
- Supprimer une conversation messenger pour les deux personnes ✓ - Forum Facebook
- Fusionner deux pdf - Guide
- Erreur 1004 vba ✓ - Forum VB / VBA
3 réponses
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
10 avril 2015 à 08:13
10 avril 2015 à 08:13
Bonjour,
If (Me.NA_Numéro = "1" Or Me.NA_Numéro = "3" Or Me.NA_Numéro = "102" Or _
Me.NA_Numéro = "118" Or Me.NA_Numéro = "119" Or Me.NA_Numéro = "17" Or _
Me.NA_Numéro = "32" Or Me.NA_Numéro = "46" Or Not Me.NA_Numéro = "90") _
And Not (Me.nom_vendeur.Value Like "ste*") Then
If MsgBox("Voulez-vous Payer la T.P.I.", vbQuestion + vbYesNo, "CONFIRMATION") = vbYes Then
Me.TPI = "Demander"
Me.TPI.Visible = True
Else
Me.TPI = ""
Me.TPI.Visible = False
End If
End If
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
151
Modifié par Whismeril le 12/04/2015 à 10:50
Modifié par Whismeril le 12/04/2015 à 10:50
Bonjour,
Vous ne dite pas ce qui ne va pas mais déjà il manque de parenthèses dans votre premier IF et il y a 3 not qui se suivent ???
Cordialement
EDIT: Correction de la coloration syntaxique.
Vous ne dite pas ce qui ne va pas mais déjà il manque de parenthèses dans votre premier IF et il y a 3 not qui se suivent ???
If (Me.NA_Numéro = "1" Or Me.NA_Numéro = "3" Or Me.NA_Numéro = "102" Or Me.NA_Numéro = "118" Or Me.NA_Numéro = "119" Or Me.NA_Numéro = "17" Or Me.NA_Numéro = "32" Or Me.NA_Numéro = "46" Or Me.NA_Numéro = "90") and me.nom_vendeur.value<> "ste*" Then
Cordialement
EDIT: Correction de la coloration syntaxique.
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
151
Modifié par Thorak83 le 10/04/2015 à 08:24
Modifié par Thorak83 le 10/04/2015 à 08:24
je pense aussi que ceci ne marche pas
faire plutot
and me.nom_vendeur.value<> "ste*" Then
faire plutot
and Left(me.nom_vendeur.value,3) <> "ste" then
daliltim
Messages postés
19
Date d'inscription
lundi 20 août 2007
Statut
Membre
Dernière intervention
30 novembre 2016
>
Thorak83
Messages postés
1051
Date d'inscription
jeudi 20 juin 2013
Statut
Membre
Dernière intervention
22 décembre 2017
12 avril 2015 à 10:49
12 avril 2015 à 10:49
merci Thorak83 mais la premier solution par f894009 ca marche bien pour moi
ThauTheme
Messages postés
1442
Date d'inscription
mardi 21 octobre 2014
Statut
Membre
Dernière intervention
29 juillet 2022
160
10 avril 2015 à 08:40
10 avril 2015 à 08:40
Bonjour Dalitim, bonjour le forum,
Peut-être comme ça (non testé) :
mais j'avoue que Not Not Not je ne connaissais pas...
Peut-être comme ça (non testé) :
Sub Macro1()
If Not Me = "90" And Me.nom_vendeur.Value <> "ste*" Then GoTo suite
Select Case Me.NA_NuméroMe
Case "1", "3", "102", "118", "119", "17", "32", "46"
GoTo suite
End Select
Exit Sub
suite:
If MsgBox("Voulez-vous Payer la T.P.I.", vbQuestion + vbYesNo, "CONFIRMATION") = vbYes Then
Me.TPI = "Demander"
Me.TPI.Visible = True
Else
Me.TPI = ""
Me.TPI.Visible = False
End If
End Sub
mais j'avoue que Not Not Not je ne connaissais pas...
f894009
Messages postés
16904
Date d'inscription
dimanche 25 novembre 2007
Statut
Membre
Dernière intervention
18 mars 2023
1 678
10 avril 2015 à 09:14
10 avril 2015 à 09:14
Bonjour,
avec votre style de programmation:
avec votre style de programmation:
Private Sub CommandButton1_Click()
'If Not Me.NA_Numéro = "90" And left(Me.nom_vendeur.Value,3) <> "ste" Then
'ou
'If Me.NA_Numéro <> "90" And Left(Me.nom_vendeur.Value, 3) <> "ste" Then
'ou
If Not Me.NA_Numéro = "90" And Not (Me.nom_vendeur.Value Like "ste*") Then
Select Case Me.NA_Numéro
Case "1", "3", "102", "118", "119", "17", "32", "46"
If MsgBox("Voulez-vous Payer la T.P.I.", vbQuestion + vbYesNo, "CONFIRMATION") = vbYes Then
Me.TPI = "Demander"
Me.TPI.Visible = True
Else
Me.TPI = ""
Me.TPI.Visible = False
End If
Case Else
End Select
End If
End Sub
daliltim
Messages postés
19
Date d'inscription
lundi 20 août 2007
Statut
Membre
Dernière intervention
30 novembre 2016
29 nov. 2016 à 11:50
29 nov. 2016 à 11:50
Merci infiniment not not not hhh c'est un oubli
12 avril 2015 à 10:48