Bonjour à Tous,

Tout en avancant d'autres questions viennent.

Voilà j'ai crée un UserForm dans lequel j'ai un certain nombre de boutons. Entre autre le bouton "Sort".

Quand je clique dessus il me trie bien les données de l'onglet 4...mais
il m'affiche dans mon onglet "Summary" * la liste trié. Ce qui est étrange c'est que lorsque je scroll eh bien la liste disparaît.

Une explication ? Voici le code ci-dessous:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub FRM_BTN_Contacts_Emails_Sort_Click()
 
Dim S As Worksheet
Dim R As Range
 
' je sélectionne l'onglet
 
Set S = Sheets("Contacts")
 
' je séléctionne la région à trier
 
Set R = Sheets("Contacts").[a1].CurrentRegion
 
' paramètres du tri
 
With S.Sort
 
    .SortFields.Clear
    .SortFields.Add Range("A1"), xlSortOnValues, xlAscending, xlSortNormal
    .SetRange R   ' R s'est vu attribué une zone plus haut
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlSortColumns
    .Apply
 
End With
 
' Je libère de la mémoire
 
Set S = Nothing
Set R = Nothing
 
End Sub