enregistrer et classer

[nrdz83]

Bonjour à tous dans un userform j'ai ce code qui me permet de saisir dans les colonnes de ma base de données>>>
Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
DerLig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Liste").Cells(DerLig, 1) = TextFR
Sheets("Liste").Cells(DerLig, 2) = TextEN
End Sub

Est il possible de rajouter un code a la suite de celui-ci de façons a ce qu'il classe automatiquement par ordre alphabetique . j'ai ce code mais il fonctionne pas a 100% tous n'est pas classé.
Range("A2:b" & [A65000].End(xlUp).Row).Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("A1") _
, Order2:=xlAscending, Header:=xlYes, OrderCustom:=n + 1

D'avance merci à tous pour vos lumières et bon dimanche frileux , amitié s🙄

 

[BERRACHED said]

Re : enregistrer et classer

Salut,nrdz

tu peux mettre le code dans le module de la feuille ainsi le tri dynamique ce fait automatiquement a chaque saisie voil un code Boigsontier que tu peux adapater :

[B]Tri dynamique[/B]

[B]Le tri par nom est effectué à chaque saisie d'une ligne [/B]

Dim ligne, témoin
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column >= 1 And Target.Column <= 3 And Target.Count = 1 Then
   témoin = True
   ligne = Target.Row
 End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Target.Column >= 1 And Target.Column <= 3 And Target.Count = 1 And témoin Then
     If Target.Row <> ligne And Cells(ligne, 1) <> "" Then
       [A2:C1000].Sort Key1:=[A2]
       témoin = False
     End If
     ligne = Target.Row
 End If
End Sub

Cordialement

 

[nrdz83]

Re : enregistrer et classer

Re bonjour à tous c'est bon j'ai eu réponse a mon sujet j'avais posé une question similaire voici le code

Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
DerLig = Sheets("Liste").Range("A" & Rows.Count).End(xlUp).Row + 1
Sheets("Liste").Cells(DerLig, 1) = TextFR
Sheets("Liste").Cells(DerLig, 2) = TextEN
With Sheets("Liste")
dl1 = .Range("a65536").End(xlUp).Row

.Range("a2:b" & dl1).Sort _
Key1:=.Columns("A"), _
Order1:=xlAscending, _
OrderCustom:=1, _
MatchCase:=False, _
Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
Unload Me
Sheets("accueil").Activate


End Sub


bonne journée à tous