XL 2013 Somme de textbox &ListBox

MP59

XLDnaute Occasionnel

• 8 Juillet 2020

• #2

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

 

Pièces jointes

• lyndab-fichier-excemple (1).xlsm

  32.8 KB · Affichages: 6

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 8 Juillet 2020

• #3

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+

 

Vote positif 0 Vote négatif

B

BLynda

XLDnaute Nouveau

• 9 Juillet 2020

• #4

MP59 à dit:

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

Cliquez pour agrandir...

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

Lynda

 

Vote positif 0 Vote négatif

B

BLynda

XLDnaute Nouveau

• 9 Juillet 2020

• #5

job75 à dit:

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+

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2020

• #6

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2020

• #7

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

VB:

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.

 

Pièces jointes

• lyndab-fichier-excemple (2).xlsm

  26 KB · Affichages: 17

Dernière édition: 9 Juillet 2020

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 9 Juillet 2020

• #8

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

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

 

Vote positif 0 Vote négatif

B

BLynda

XLDnaute Nouveau

• 10 Juillet 2020

• #9

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 10 Juillet 2020

• #10

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

VB:

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

 

Vote positif 0 Vote négatif

B

BLynda

XLDnaute Nouveau

• 10 Juillet 2020

• #11

Merci beaucoup

 

Vote positif 0 Vote négatif