XL 2016 Modification les valeurs d'une même colonne d'une ListBox dans USF

[Damien0507]

Bonjour à tous.

Je viens solliciter votre aide car je pêche un peu (beaucoup) sur un fichier que je suis entrain de construire.

J'ai construit un USF pour aller chercher dans une BDD des informations suivant plusieurs ComboBox et tout s'inscrit nickel dans ma ListBox.
J'arrive à faire de la multisélection de mes lignes que je souhaite modifier.
Par contre dès que je rentre dans des TextBox les valeurs à modifier, je n'arrive qu'à modifier ligne par ligne et non pas ma l'intégralité de ma multisélection.

Mon fichier servira de planning pour mon personnel.

Je souhaiterais pouvoir par exemple sélectionner ces 5 personnes (Multi sélection OK)
Modifier la date (en colonne 0 de la ListBox) mais également l'heure d'entrée (colonne 8 de la ListBox) et de sortie (Colonne 10 de la ListBox) et Lorsque j'appuie sur le bouton "Modification Date et Heures Globales" ces 3 éléments se changent dans la ListBox pour les 5 personnes en une seule fois et non pas ligne par ligne.

Pour information:
Je sais vous aller me dire que si il n'y a que 5 personnes à changer on peut faire du ligne à ligne, ça prendra moins de temps de le faire que de programmer....
Mais en fait j'ai plusieurs centaines de personnes à modifier chaque semaine.....

Ci-dessous la capture de la programmation du bouton "Modifier"

J'espère que vous pourrez m'apporter vos lumières sur ce problème .

Merci d'avance pour votre grande aide.

Bonnejournée à vous.

Cordialement.

Damien.

 

[Oneida]

Bonjour,
Il faut faire une boucle sur votre listbox pour rechercher les "lignes" selectionnees.
La listbox ne doit pas etre remplie par RowSource=kakechose
un exemple

Private Sub CommandButton1_Click()
        With ListBox1
            Nb = .ListCount - 1
            For i = 0 To Nb
                If .Selected(i) = True Then
                    .List(i, 0) = "azert"        'Formateur
                    .List(i, 1) = "qsdf"     '@Mail
                End If
            Next i
        End With

End Sub

 

[Damien0507]

Bonjour Oneida,

Tout d'abord merci pour votre réactivité et le temps que vous avez passé sur ma problématique.

Donc j'ai testé votre codage, mais ça ne fonctionne pas....
J'ai dû mal faire quelque chose... Je débute dans ce monde très intéressant...
Voici ma macro

Function show_data_in_listbox()
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = ""
Sheets("Personnel").Activate
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
ListBox1.List = Range("A1:G" & lastrow).Value
End Function


Private Sub UserForm_Initialize()
Call show_data_in_listbox
With ListBox1
Nb = .ListCount - 1
For i = 0 To Nb
If .Selected(i) = True Then
.List(i, 0) = "Aaaaaaaaaa" 'Formateur
.List(i, 1) = "Aaaaaaaaa" '@MAIL
End If
Next i
End With
End Sub

Ma ListBox s'affiche bien, mais ne se trie pas....

Merci encore à vous.

 

[Oneida]

Bonjour,
Ma ListBox s'affiche bien, mais ne se trie pas....
Pourquoi voulez vous qu'elle se tri, vous ne l'avez pas demande!
Vous avez demande a ce qu'elle soit mise a jour

 

[Damien0507]

Oups.... je suis sur 2 choses en même temps....

Le sujet pour lequel je vous ai sollicité et un tri par ordre alphabétique dans une autre ListBox....

Je reviens vers vous une fois que j'aurais tout remois en place.

Désolé encore pour le désagrément.

 

[Damien0507]

Si on entre les bons codes aux bons endroits ça marche beaucoup mieux.......

Super, ça fonctionne nickel.

Merci beaucoup beaucoup beaucoup.