listbox qui renvoit abs

J

jack

Guest

• 15 Novembre 2005

• #2

bonsoir


avec le fichier ce sera plus facile à comprendre

slts
jack

 

Vote positif 0 Vote négatif

J

JACK

Guest

• 15 Novembre 2005

• #3

bonsoir
ah ces espaces dans les noms !!!!!!!!
voici donc le bon fichier

slts

jack [file name=listboxetabs.zip size=8207]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/listboxetabs.zip[/file]

 

Pièces jointes

• listboxetabs.zip

  8 KB · Affichages: 17

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 16 Novembre 2005

• #4

bonjour

tu peux tester cette procedure

Private Sub CommandButton1_Click()
Dim i As Byte, x As Byte, j As Byte
Dim Resultat As String, laDate As String

For j = 1 To 4
laDate = laDate & Feuil2.Cells(1, j) & ' '
Next j

Resultat = 'les absents du : ' & laDate & ' sont ' & vbLf

For i = 0 To ListBox1.ListCount - 1 'boucle sur les elements de la listbox
If ListBox1.Selected(i) = True Then
x = x + 1
Cells(i + 5, 2) = 'ABS'
Resultat = Resultat & Cells(i + 5, 1) & vbLf
End If
Next i

Label1 = Resultat
Label2 = 'Nombre d'absents : ' & x

End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub



bonne journée
MichelXld

 

Vote positif 0 Vote négatif

J

JACK

Guest

• 16 Novembre 2005

• #5

Bonsoir à tous

Merci beaucoup Michel

Ta solution me convient et du coup j'ai deux questions :

1) Ma date se trouve sur une feuille nommée 'taches' en F6:I6
quelle modifications dois je apporter pour la récupérer ?

2) J'ai créer un bouton pour remettre à zéro la listbox c'est à dire retirer toutes les sélections précedentes si avant de valider je me rend compte que je me suis trompé et que je veux tout recommencer sans avoir à recliquer sur chaque nom mais, mais, mais..... quel code dois je mettre ?

Merci pour tout

Slts
Jack

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 17 Novembre 2005

• #6

bonjour

pour la premiere partie de ta question tu peux essayer cette adaptation

For j = 6 To 9
laDate = laDate & Sheets('taches').Cells(6, j) & ' '
Next j

pour la deuxieme question


Private Sub CommandButton3_Click()
Dim i As Byte
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next i
End Sub


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

J

JACK

Guest

• 17 Novembre 2005

• #7

Bonsoir à tous

merci Michel tout fonctionne mais pour la seconde réponse la listbox est vidée mais pas le label
il faut passer par une validation ( command button1)
peut on éviter cela c'est à dire qu'en cliquant sur command button3 cela vide à la fois la listbox et le label en même temps

merci beaucoup pour ton aide déjà très précieuse

slts

jack

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 18 Novembre 2005

• #8

bonjour

pour vider le Label

Label1 = ''
Label2 = ''

si tu as besoin d'infos complémentaires sur les objets d'un UserForm

https://www.excel-downloads.com/threads/ref-wiki-2-de-michelxld-ce-qui-touche-aux-userform.92357/


bonne journée
MichelXld

 

Vote positif 0 Vote négatif

J

jack

Guest

• 18 Novembre 2005

• #9

Bonsoir à tous
Merci beaucoup Michel pour tes réponses et surtout pour le lien qui est très riche en informations.

Bon Week End

Slts
Jack

 

Vote positif 0 Vote négatif