IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

total dans listview [XL-2007]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut total dans listview
    Bonsoir
    je souhaiterais avoir un texbox m'affichant le total de ma listview:

    je m'explique, dans la listview j'ai des donnees , Mois, Nom,....., s/Total.
    lorsque je fait un tri sur un mois, je souhaiterais avoir le total de ce qui est dans la colonne s/total affiche dans la listview.
    cris

    voici mon code:
    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
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    73
    74
    75
    76
    77
    78
    79
    80
    81
    82
    83
    84
    85
    86
    87
    88
    89
    90
    91
    92
    93
    94
    95
    96
    97
    98
    99
    100
    Private Sub CommandButton1_Click()
    Me.Hide
    Sheets("Massage").Select
    End Sub
    Private Sub Massage_Click()
     Load Resa_Massage
     Resa_Massage.Show
     Unload UserForm8
     UserForm8.Show
     Sheets("Menu").Select
    End Sub
    Private Sub Retour_Menu_Click()
     Sheets("Menu").Select
     Unload UserForm8
     End Sub
    Private Sub TextBox1_Change()
    Me.TextBox1 = Sheets("Massage").Range("J2")
    End Sub
     
    Private Sub ComboBox1_Click()
     mois_choisi = ComboBox1.Text
    End Sub
     
    Private Sub userform_Activate()
     
     Sheets("Massage").Select
     Application.DisplayFullScreen = True
     
     TextBox1.Value = Sheets("Massage").Range("J2").Value
     
    With Resa_Massage
    .StartUpPosition = 3
    .Width = Application.Width
    .Height = Application.Height
    .Left = 0
    .Top = 0
    End With
     
    'Private Sub UserForm_Initialize()
        With ListView9
            With .ColumnHeaders
                'Suppression des anciens entêtes
                .Clear
                'Alimentation des titres de colonne :
                .Add , , "Mois", ListView9.Width * 0.1, lvwColumnLeft
                .Add , , "Nom", ListView9.Width * 0.17, lvwColumnLeft
                .Add , , "Nº MH", ListView9.Width * 0.06, lvwColumnCenter
                .Add , , "Date", ListView9.Width * 0.1, lvwColumnCenter
                .Add , , "Type de Massage", ListView9.Width * 0.2, lvwColumnCenter
                .Add , , "Réglement", ListView9.Width * 0.12, lvwColumnCenter
                .Add , , "Durée", ListView9.Width * 0.1, lvwColumnCenter
                .Add , , "Prix", ListView9.Width * 0.06, lvwColumnCenter
                .Add , , "Total", ListView9.Width * 0.09, lvwColumnCenter
            End With
            'Remplissage des colonnes suivant liste des mois sélectionnés
            Remplissage "Tous les mois"
            'Spécifie l'affichage en mode "Détails"
            ListView9.View = lvwReport
        End With
        '--------------------------------------------------
        'Alimentation de la ComboBox
        With ComboBox1
            .AddItem "Tous les mois"
            .AddItem "Janvier"
            .AddItem "Fevrier"
            .AddItem "Mars"
            .AddItem "Avril"
            .AddItem "Mai"
            .AddItem "Juin"
            .AddItem "Juillet"
            .AddItem "Aout"
            .AddItem "Septembre"
            .AddItem "Octobre"
            .AddItem "Novembre"
            .AddItem "Decembre"
            'Affectation de la valeur 0 par défaut lors de l'affichage du ComboBox (Tous les mois)
            .ListIndex = 0
        End With
    End Sub
    Private Sub ComboBox1_change() 'DblClick(ByVal Cancel As MSForms.ReturnBoolean)
        'Procédure de remplissage des colonnes suivant le paramètre "mois" choisi
        Remplissage ComboBox1.Value
    End Sub
    Sub Remplissage(mois)
        With ListView9
            'Remplissage des colonnes
            .ListItems.Clear
            For Each V In Range("A4:A" & Range("A65536").End(xlUp).Row)
                If V.Value = mois Or mois = "Tous les mois" Then
                    x = x + 1
                    .ListItems.Add , , V.Text
                    .ListItems(x).ForeColor = V.Font.Color
                    For j = 1 To 8
                        .ListItems(x).ListSubItems.Add , , V.Offset(0, j).Text
                        .ListItems(x).ListSubItems(j).ForeColor = V.Offset(0, j).Font.Color
                    Next j
                End If
            Next V
    End With
    End Sub

  2. #2
    Membre Expert
    Homme Profil pro
    Retraité
    Inscrit en
    Avril 2011
    Messages
    1 858
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Retraité

    Informations forums :
    Inscription : Avril 2011
    Messages : 1 858
    Par défaut
    Re, Re bonsoir,

    Tu peux intégrer le calcul du total dans la procédure de remplissage de ta ListView.

    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
    Sub Remplissage(mois)
    Dim Total As Double
        With ListView9
            'Remplissage des colonnes
            .ListItems.Clear
            For Each V In Range("A4:A" & Range("A65536").End(xlUp).Row)
                If V.Value = mois Or mois = "Tous les mois" Then
                    x = x + 1
                    .ListItems.Add , , V.Text
                    .ListItems(x).ForeColor = V.Font.Color
                    For j = 1 To 8
                        .ListItems(x).ListSubItems.Add , , V.Offset(0, j).Text
                        .ListItems(x).ListSubItems(j).ForeColor = V.Offset(0, j).Font.Color
                    Next j
                    Total = Total + V.Offset(0, 8)
                End If
            Next V
            TextBox2.Value = Total
        End With
    End Sub
    Cordialement.

  3. #3
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut
    je viens de voir ta reponse.
    super ca fonctionne tres bien.
    merci beaucoup
    cris

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

Discussions similaires

  1. Tri de dates dans listview
    Par Le Djé dans le forum VB 6 et antérieur
    Réponses: 6
    Dernier message: 18/01/2006, 19h48
  2. Problème Total dans un header
    Par snoop57 dans le forum IHM
    Réponses: 8
    Dernier message: 06/12/2005, 15h15
  3. Ajouter une colonne (par du code) dans Listview
    Par __fabrice dans le forum VB 6 et antérieur
    Réponses: 2
    Dernier message: 23/11/2005, 17h39
  4. [VB.NET] Total dans un datagrid
    Par Golzinne dans le forum Windows Forms
    Réponses: 10
    Dernier message: 12/11/2005, 18h29
  5. Sous-total dans un etat
    Par Mr White dans le forum Access
    Réponses: 1
    Dernier message: 26/10/2005, 11h47

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