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

Bonjour tout le monde:
j'aimerai que vous m'aidez, ma question est :
j'ai deux champs (NA_Numéro et Nom_Vendeur) , et voila mon code qui ne ca marche pas

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 Not Not Me.NA_Numéro = "90" and me.nom_vendeur.value<> "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
endsub

EDIT: Ajout de la coloration syntaxique.

A voir également:

Deux Conditions VBA pour deux resultas
Deux comptes whatsapp - Guide
Deux ecran pc - Guide
Excel fusionner deux cellules - Guide
Fusionner deux fichiers excel - Guide
Faire deux colonnes sur word - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
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

daliltim Messages postés 19 Date d'inscription lundi 20 août 2007 Statut Membre Dernière intervention 30 novembre 2016
12 avril 2015 à 10:48

Merci Infiniment ça marche bien

Réponse 2 / 3

Thorak83 Messages postés 1051 Date d'inscription jeudi 20 juin 2013 Statut Membre Dernière intervention 22 décembre 2017 156
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 ???

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 156
Modifié par Thorak83 le 10/04/2015 à 08:24

je pense aussi que ceci ne marche pas

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

merci Thorak83 mais la premier solution par f894009 ca marche bien pour moi

Réponse 3 / 3

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

Bonjour Dalitim, bonjour le forum,

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 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 701
10 avril 2015 à 09:14

Bonjour,

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

Merci infiniment not not not hhh c'est un oubli

Discussions similaires

Un seul de mes écouteurs marche. Que faire ?

2 comptes facebook avec même mail et même nom

Comment supprimer une conversation Messenger pour les 2 personnes ?

Une des deux oreillettes bluetooth ne marche pas

Mise en forme conditionnelle 2 conditions

Discussions similaires

Newsletters