listbox qui renvoit abs

[jackl]

bonsoir à tous
voici mon problème

Je sélectionne un ou plusieurs noms dans mon usf et je voudrais qu'en face de ceux-ci soient inscrits 'ABS' en colonne B et que leurs noms apparaissent également dans le usf a droite de la listbox dans un label je ainsi que la date récupérée en feuil2 ( a1:b1:c1:d1)

merci de vos réponses

slts
jack

 

[jack]

bonsoir


avec le fichier ce sera plus facile à comprendre

slts
jack

 

[JACK]

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]

 

[MichelXld]

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

 

[JACK]

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

 

[MichelXld]

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

 

[JACK]

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

 

[MichelXld]

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

 

[jack]

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