1. #1
    Candidat au Club
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    octobre 2016
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Associations - ONG

    Informations forums :
    Inscription : octobre 2016
    Messages : 1
    Points : 3
    Points
    3

    Par défaut SELECT CASE fonctionne pas?

    Voila, un SELECT CASE bien simple:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    For x = 0 To 6
     
        Select Case JT
            Case JT = "M", "S", "N"
                ActiveCell.Offset(0, 1).Value = CDbl(8.25)
                ActiveCell.Offset(0, 15).Value = 1
                ActiveCell.Offset(0, 16).Value = 1
                ActiveCell.Offset(0, 17).Value = 1
                ActiveCell.Offset(0, 19).Value = 1
                ActiveCell.Offset(0, 21).Value = 1
                ActiveCell.Offset(0, 23).Value = 1
                ActiveCell.Offset(0, 24).Value = 1
                If ActiveCell.Offset(0, -1).Value = "DIMANCHE" Or ActiveCell.Offset(0, -1).Value = "SAMEDI" Then
                    ActiveCell.Offset(0, 15).Value = 3
                    ActiveCell.Offset(0, 16).Value = 3
                End If
     
            Case JT = "CP"
                ActiveCell.Offset(0, 13).Value = 1
     
            Case JT = "MAL"
                ActiveCell.Offset(0, 21).Value = CDbl(8.25)
     
            Case JT = "R"
                ActiveCell.Offset(0, 1).Value = CDbl(0)
     
            Case Else
            ActiveCell.Offset(0.2).Value = "Inconnue"
     
        End Select
     
     
    ActiveCell.Offset(1, 0).Select
    JT = ActiveCell.Value
     
    Next
    Hors les testes ne fonctionne pas bien que Jt soit identique à "M","S","N", etc indication en mode espion?

    Quelqu'un peu m'éclairer

  2. #2
    Rédacteur

    Homme Profil pro
    Formateur, développeur et consultant Excel, Access, Word et VBA
    Inscrit en
    janvier 2010
    Messages
    7 346
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Formateur, développeur et consultant Excel, Access, Word et VBA

    Informations forums :
    Inscription : janvier 2010
    Messages : 7 346
    Points : 17 216
    Points
    17 216
    Billets dans le blog
    4

    Par défaut

    Bonjour,
    Comme ceci, c'est mieux
    mais attention à la casse, je préfère
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     Select Case LCase(JT)
      Case "m", "s", "n"
    Philippe Tulliez
    Ce que l'on conçoit bien s'énonce clairement, et les mots pour le dire arrivent aisément. (Nicolas Boileau)
    Lorsque vous avez la réponse à votre question, n'oubliez pas de cliquer sur et si celle-ci est pertinente pensez à voter
    Mes tutoriels : Utilisation de l'assistant « Insertion de fonction », Les filtres avancés ou élaborés dans Excel
    Quelques contributions : USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire - Géolocalisation d'une adresse avec Excel et Google sans VBA

  3. #3
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Inscrit en
    juillet 2007
    Messages
    11 889
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 33
    Localisation : Royaume-Uni

    Informations professionnelles :
    Activité : Developpeur VBA migrant tranquillement vers C# et VB.Net =]
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2007
    Messages : 11 889
    Points : 26 440
    Points
    26 440

    Par défaut

    Bonjour,

    le select case fonctionne très bien, il s'agit simplement d'une mauvaise syntaxe de ta part

    la syntaxe correcte du Select Case doit etre la suivante :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    Select Case JT
            Case "M", "S", "N"
     
            Case "CP"
     
            Case "MAL"
     
            Case "R"
     
            Case Else 
        End Select
    http://heureuxoli.developpez.com/off...vba-all/#L11-C
    Pas de question technique par MP, je ne réponds pas

    Apprendre à programmer avec Access 2016

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. .attr("selected","selected") ne fonctionne pas
    Par andlio dans le forum jQuery
    Réponses: 1
    Dernier message: 21/07/2011, 22h16
  2. Réponses: 10
    Dernier message: 14/04/2011, 12h47
  3. Réponses: 4
    Dernier message: 06/11/2007, 09h58
  4. [Interbase] select ne fonctionne pas
    Par xclam dans le forum PHP & SGBD
    Réponses: 1
    Dernier message: 30/04/2007, 18h01
  5. Liste déroulante - option selected ne fonctionne pas
    Par nerick dans le forum Formulaires
    Réponses: 7
    Dernier message: 10/01/2006, 10h27

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo