XL 2013 Somme de textbox &ListBox

[BLynda]

Bonjour à tous
Je vous remercie d'avance pour votre aide

Je souhaiterais avoir la somme des notes affichées dans les deux ListBox ainsi que les deux textBox "txt Note1 "& "txt Note2" dans la textbox "Total de la classe".

Chaque fois que je décoche une ligne ça me le soustrait dans le total et la txtbox "Totale de la classe" se met à jour automatiquement.

Merci

 

[MP59]

Bonjour BLynda,
un début vite fait pour donner une piste.

 

[job75]

Bonjour BLynda, bienvenue sur XLD, salut MP59,

Pour un 1er message ce n'est pas bien fameux :

- les tableaux des feuilles Classe1 et Classe2 sont de natures différentes, ce n'est pas cohérent

- dans l'UserForm il faut une seule ListBox

- on ne voit pas à quoi peuvent servir les 2 OptionButtons.

A+

 

[BLynda]

Bonjour BLynda,
un début vite fait pour donner une piste.

Hello
Merci pour ton aide je regarderai si y'a pas une meilleure idée, si non je suis preneuse

Lynda

 

[BLynda]

Bonjour BLynda, bienvenue sur XLD, salut MP59,

Pour un 1er message ce n'est pas bien fameux :

- les tableaux des feuilles Classe1 et Classe2 sont de natures différentes, ce n'est pas cohérent

- dans l'UserForm il faut une seule ListBox

- on ne voit pas à quoi peuvent servir les 2 OptionButtons.

A+

Bonjour Job 75,

En effet les deux feuilles ne sont pas de meme nature, merci pour la remarque.
Le travail que je veux faire est seulement sur la feuille "Classe 1"
Additionner les choix cocher dans les deux listes box "S1" & "S2" et avoir le total dans la textBox "Total de la calsse"

Merci

 

[job75]

Qu'est-ce que ça veut dire "Total de la classe" ? La TextBox est dans le cadre "Moyenne".

 

[job75]

Bon j'ai fait le ménage, voyez le fichier joint et le code de l'UserForm :

Private Sub ListBox1_Change()
Dim i%, s1#, n1%, s2#, n2%
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then
            If IsNumeric(CStr(.List(i, 1))) Then s1 = s1 + .List(i, 1): n1 = n1 + 1
            If IsNumeric(CStr(.List(i, 2))) Then s2 = s2 + .List(i, 2): n2 = n2 + 1
        End If
    Next
    txtNote1 = IIf(n1, s1, "")
    txtNote2 = IIf(n2, s2, "")
    If n1 + n2 Then txtMoyenne = (s1 + s2) / (n1 + n2) Else txtMoyenne = ""
End With
End Sub

Private Sub UserForm_Initialize()
Dim i%
With ListBox1
    For i = 0 To .ListCount - 1
        .Selected(i) = True
    Next
End With
End Sub

La ListBox de 3 colonnes est alimentée par sa propriété RowSource pour pouvoir afficher les en-têtes.

 

[job75]

Dans la macro précédente j'ai ajouté les CStr.

Autrement les éléments vides, comme les cellules, sont comptés numériques.

 

[BLynda]

Super bon ménage
Petite question: peux tu m'expliquer la premiere ligne de déclaration des variables?

Et big thanks pour ton aide

Lynda

 

[job75]

Dim i%, s1#, n1%, s2#, n2% c'est la même chose que :

Dim i As Integer, s1 As Double, n1 As Integer, s2 As Double, n2 As Integer

 

[BLynda]

Merci beaucoup