1. #1
    Candidat au Club
    Inscrit en
    novembre 2009
    Messages
    3
    Détails du profil
    Informations forums :
    Inscription : novembre 2009
    Messages : 3
    Points : 4
    Points
    4

    Par défaut Grouper des dates par prix

    Slt voici mon tableau

    Date prix/nuit
    2017/12/20 | 80
    2017/12/21 | 80
    2017/12/22 | 73
    2017/12/23 | 91
    2017/12/24 | 80
    2017/12/25 | 73

    Je veux avoir ce resultat:

    Sejour du 20,21,24 à 80 $
    Sejour du 22,25 à 73 $
    Sejour du 23 à 91 $





    Merci de votre aide

  2. #2
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 202
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 202
    Points : 8 656
    Points
    8 656

    Par défaut

    Salut

    Un moyen comme un autre, un CommandButton sur un Form et ce
    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
    37
    38
    39
    40
    41
    42
    Private Sub Command1_Click()
    Dim Tbl(5) As String
    Tbl(0) = "2017/12/20 | 80"
    Tbl(1) = "2017/12/21 | 80"
    Tbl(2) = "2017/12/22 | 73"
    Tbl(3) = "2017/12/23 | 91"
    Tbl(4) = "2017/12/24 | 80"
    Tbl(5) = "2017/12/25 | 73"
    'Sejour du 20,21,24 à 80 $
    'Sejour du 22,25 à 73 $
    'Sejour du 23 à 91 $
     
    Dim Dat As String, Prix As String
    Dim T As Integer, U As Integer
    'Dim DicO As New Dictionary ' S'il a été fait reference à Microsoft Scripting Runtime
    Dim DicO As Object ' S'il n'est pas fait reference à Microsoft Scripting Runtime
    Set DicO = CreateObject("Scripting.Dictionary") 'création du variable objet de type Dictionary
     
    For T = 0 To UBound(Tbl)
        Dat = Trim(Split(Tbl(T), "|", -1, vbTextCompare)(0))
        Prix = Trim(Split(Tbl(T), "|", -1, vbTextCompare)(1))
        If DicO.Exists(Prix) = False Then
            DicO.Add Prix, Right(Dat, 2)
            For U = T + 1 To UBound(Tbl)
                If Trim(Split(Tbl(U), "|", -1, vbTextCompare)(1)) = Prix Then
                    DicO.Item(Prix) = DicO.Item(Prix) & ", " & Right(Trim(Split(Tbl(U), "|", -1, vbTextCompare)(0)), 2)
                End If
            Next U
        End If
    Next T
     
    Dim MsG As String
    Dim TblDate As Variant, TblPrix As Variant
    TblDate = DicO.Items: TblPrix = DicO.Keys
    DicO.RemoveAll: Set DicO = Nothing 'Purger le dictionnaire et libérer explicitement la mémoire
     
    'Pour affichage
    For T = 0 To UBound(TblPrix)
        MsG = MsG & "Sejour du " & TblDate(T) & " à " & TblPrix(T) & "€" & vbNewLine
    Next T
    MsgBox MsG, vbInformation, "Resultat"
    End Sub
    ProgElecT
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

Discussions similaires

  1. Grouper des dates par semaines
    Par Nour08 dans le forum SAP Crystal Reports
    Réponses: 1
    Dernier message: 29/07/2011, 11h43
  2. Grouper des valeurs par date
    Par PIEPLU dans le forum Langage SQL
    Réponses: 6
    Dernier message: 13/06/2011, 00h38
  3. grouper des dates par mois?
    Par Hydex dans le forum Requêtes et SQL.
    Réponses: 1
    Dernier message: 28/06/2007, 18h00
  4. [Date] Grouper des dates par semaine
    Par KooKoolen dans le forum Langage
    Réponses: 3
    Dernier message: 06/12/2006, 12h05
  5. [CR]grouper des dates par semaines, mais semaines FR !
    Par neo.51 dans le forum SAP Crystal Reports
    Réponses: 11
    Dernier message: 18/05/2004, 21h43

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