XL 2019 Recopier mes feuilles dans mon USF

[Phil Du59]

Bonjour à tous
Je reviens vers vous pour améliorer mon tableau afin d’avoir une meilleure visibilité et de regrouper les données de mes feuilles sur mon USF , si tout est possible bien sur .
Pour entrer mes données je passe par NEW QSO

1° Dans la Listbox 1 , recopier la ligne de B2 à H2 de le feuille LOG .

2° Dans la Listbox 2 (le grand cadre) , recopier les entrées des colonnes B C D E F G et H de façon à voir toujours le dernier entré visible en bas , donc avec la liste qui monte au fur et à mesure (si c’est possible)

3° Dans la Listbox 3 (QSO N°) , recopier la case A2 de la feuille LOG

4° Dans la Listbox 4 (DXCC WORKED) , recopier la case L1 de la feuille STATS

5° Dans la Listbox 5 (celle en bas) , recopier de H2 à Q31 de la feuille STATS (par ordre croissant si possible)

Je pense n’avoir rien oublié dans mes demandes , en tout cas n’hésitez pas à demander si besoin , en fait tout ce que je rentre dans la partie haute de mon USF serait visible dans les ListBox pour avoir un aperçu global .

Par avance Merci , Philippe

 

[Phil Du59]

Bonjour le forum,

Utilisez ce code :

Private Sub Worksheet_Change(ByVal Target As Range)
If UserForms.Count Then CommandButton1_Click 'rouvre l'UserForm pour le mettre à jour
End Sub

Private Sub CommandButton1_Click()
Dim plage As Range, a, i&
Set plage = Range("B3:H" & Cells(Cells.Rows.Count, "B").End(xlUp).Row)
With UserForm1.ListBox1
    .ColumnCount = plage.Columns.Count
    .List = plage.Rows(IIf(plage.Row = 2, 1, 0)).Value
End With
With UserForm1.ListBox2
    .ColumnCount = plage.Columns.Count
    a = plage
    For i = 1 To UBound(a): a(i, 5) = Format(a(i, 5), "hh:mm"): Next i
    .List = a
    If plage.Row = 2 Then .Clear 'si le tableau est vide
End With
UserForm1.ListBox3.AddItem [A2]
UserForm1.ListBox5.AddItem Sheets("STATS").[L1]
With Sheets("STATS").[H2:Q31]
    .Parent.Worksheet_Activate 'exécute le tri
    UserForm1.ListBox4.ColumnCount = .Columns.Count
    UserForm1.ListBox4.ColumnWidths = Application.Rept((UserForm1.ListBox4.Width - 15) \ .Columns.Count & ";", .Columns.Count)
    UserForm1.ListBox4.List = .Value
End With
UserForm1.Show 0 'ouverture en non modal
End Sub

La macro Quick sort est utilisée pour trier le tableau de la feuille STATS.

A+

Bonsoir Job, j'ai relevé des bugs sur le USF
1 En prenant le tableau tel que tu l'as fais , si je veux ajouter des autres personnes , il recommence en haut du tableau et écrase les autres 1 par 1 .
2 Si j'efface le tableau et que je commence à entrer les personnes j'ai un message d'erreur Visual Basic "Erreur d'exécution '13' incompatibilité de type " .
3 Les compteurs pour QSO et DXCC ne vont pas plus loin que 13 sauf si je quitte le USF et ouvre à nouveau la MàJ se fait .
Voilà ce que j'ai trouvé, D'avance merci pour ton aide .