XL 2019 Recopier mes feuilles dans mon USF

Phil Du59 · Mercredi à 10:34

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 · Hier à 18:38

job75 à dit:

Bonjour le forum,

Utilisez ce code :

VB:

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 .

job75 · Hier à 20:38

J'ai revu le code, testez-le :

VB:

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
With UserForm1.ListBox3: .Clear: .AddItem [A2]: End With
With Sheets("STATS").[H2:Q31]
    Application.ScreenUpdating = False: .Parent.Activate: Me.Activate: Application.ScreenUpdating = True 'exécute le tri
    UserForm1.ListBox4.ColumnCount = .Columns.Count
    UserForm1.ListBox4.ColumnWidths = Application.Rept((UserForm1.ListBox4.Width - 10) \ .Columns.Count & ";", .Columns.Count)
    If Application.Count(.Columns(1)) Then UserForm1.ListBox4.List = .Resize(Application.Count(.Columns(1))).Value
End With
With UserForm1.ListBox5: .Clear: .AddItem Sheets("STATS").[L1]: End With
UserForm1.Show 0 'ouverture en non modal
End Sub

Attention, vérifiez que le calcul est bien en Automatique (pour la mise à jour de A2).

Phil Du59 · Hier à 21:07

job75 à dit:

J'ai revu le code, testez-le :

VB:

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
With UserForm1.ListBox3: .Clear: .AddItem [A2]: End With
With Sheets("STATS").[H2:Q31]
    Application.ScreenUpdating = False: .Parent.Activate: Me.Activate: Application.ScreenUpdating = True 'exécute le tri
    UserForm1.ListBox4.ColumnCount = .Columns.Count
    UserForm1.ListBox4.ColumnWidths = Application.Rept((UserForm1.ListBox4.Width - 10) \ .Columns.Count & ";", .Columns.Count)
    If Application.Count(.Columns(1)) Then UserForm1.ListBox4.List = .Resize(Application.Count(.Columns(1))).Value
End With
With UserForm1.ListBox5: .Clear: .AddItem Sheets("STATS").[L1]: End With
UserForm1.Show 0 'ouverture en non modal
End Sub

Attention, vérifiez que le calcul est bien en Automatique (pour la mise à jour de A2).

job75 à dit:

J'ai revu le code, testez-le :

VB:

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
With UserForm1.ListBox3: .Clear: .AddItem [A2]: End With
With Sheets("STATS").[H2:Q31]
    Application.ScreenUpdating = False: .Parent.Activate: Me.Activate: Application.ScreenUpdating = True 'exécute le tri
    UserForm1.ListBox4.ColumnCount = .Columns.Count
    UserForm1.ListBox4.ColumnWidths = Application.Rept((UserForm1.ListBox4.Width - 10) \ .Columns.Count & ";", .Columns.Count)
    If Application.Count(.Columns(1)) Then UserForm1.ListBox4.List = .Resize(Application.Count(.Columns(1))).Value
End With
With UserForm1.ListBox5: .Clear: .AddItem Sheets("STATS").[L1]: End With
UserForm1.Show 0 'ouverture en non modal
End Sub

Attention, vérifiez que le calcul est bien en Automatique (pour la mise à jour de A2).

Pour l'instant c'est ok , je reteste demain avec le changement de date si rien ne change , merci bonne soirée Job

XL 2019 Recopier mes feuilles dans mon USF

Phil Du59

XLDnaute Nouveau

Pièces jointes

Phil Du59

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Phil Du59

XLDnaute Nouveau

Discussions similaires

XL 2019 Recopier mes feuilles dans mon USF

Phil Du59

XLDnaute Nouveau

Pièces jointes

Phil Du59

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Pièces jointes

Phil Du59

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency