Discussion :

[FloVeil]

Bonjour à tous,

J'aurai voulu savoir si quelqu'un aurait une solution ou les lignes de code pour que les saisies que j'entre dans un Userform ne s'intègrent pas à la dernière ligne de mon tableau comme c'est le cas actuellement sur mon fichier mais qu'elles s'insèrent directement à la ligne qui correspond au tri personnalisé que j'ai en place sur mon tableau?

A l'heure actuelle, je rentre mes données dans mon userform, elles s'insèrent à la dernière ligne de mon tableau et ensuite je vais dans tri personnalisé et met à jour mon tableau. Est ce que cette étape peut être automatisé via VBA?

Merci d'avance pour votre aide, n'hésitez pas si vous voulez une version light du fichier ou les lignes de codes du Userform pour vous faire une idée?

[Philippe Tulliez]

Bonjour,
Personnellement je continuerais à insérer mes données à la suite des autres et j'utiliserais une procédure de tri personnalisé lors de la fermeture du UserForm

[FloVeil]

Merci Philippe pour votre réponse.

Quand vous dites que vous utiliseriez une procédure de tri personnalisé lors de la fermeture du Userform, vous voulez dire que vous ne changeriez rien ou qu'il est possible via VBA de programmer cela?

[Niagala]

Quand vous dites que vous utiliseriez une procédure de tri personnalisé lors de la fermeture du Userform, vous voulez dire que vous ne changeriez rien ou qu'il est possible via VBA de programmer cela?

Bonjour.
Oui C'est possible.

Voici un exemple de code que tu peux adapter et appeler à la fermeture du UserForm

Code :

Sub Trie_Tableau()

'Trie décroissant
Dim DLt As Long ' La dernière ligne du tableau
DLt = Feuil13.Range("A" & Rows.Count).End(xlUp).Row

Feuil13.Sort.SortFields.Clear
Feuil13.Sort.SortFields.Add2 Key:=Range("B2:B" & DLt) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

Feuil13.Sort.SortFields.Add2 Key:=Range("A2:A" & DLt) _
, SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal

With Feuil13.Sort
.SetRange Range("A1:G" & DLt) ' Le tableau
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.Apply
End With
Range("A1").Select

End Sub

A la fermeture du UserForm
Code :

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
Call Trie_Tableau
End Sub