Bonsoir le Forum
Cette ligne pour trier ne fonctionne pas. Je ne sais pas pourquoi.
J'ai regardé pas mal d'exemples mais pas moyen.
Les données de mon tableau commencent en B4 jusqu’à la colonne I
Les entêtes sont en ligne 3
J'aimerais trier mon tableau par ordre alphabétique sur la colonne B donc B3
Merci de votre aide
David
Mon code :
Cette ligne pour trier ne fonctionne pas. Je ne sais pas pourquoi.
.Range("B:I" & Lig).Sort .[B3], xlDescending, Header:=xlYes 'tri alphabétique
J'ai regardé pas mal d'exemples mais pas moyen.
Les données de mon tableau commencent en B4 jusqu’à la colonne I
Les entêtes sont en ligne 3
J'aimerais trier mon tableau par ordre alphabétique sur la colonne B donc B3
Merci de votre aide
David
Mon code :
Private Sub CmdConfirmAjouter_Click()
ListPMT.Value = ""
Lig = Sheets("BDPMT").[B65000].End(xlUp).Row + 1
With Sheets("BDPMT")
.Range("B" & Lig).Value = Me.TextVille.Value
.Range("C" & Lig).Value = Me.TextLieux.Value
.Range("D" & Lig).Value = Me.TextNom.Value
.Range("E" & Lig).Value = Me.TextDate.Value
.Range("F" & Lig).Value = Me.TextMode.Value
.Range("G" & Lig).Value = Me.TextMotif.Value
.Range("H" & Lig).Value = Me.TextAttribution.Value
.Range("I" & Lig).Value = Format(Me.TextDateAttribution.Value, "mm/dd/yyyy")
'Tri du tableau sur la colonne B
.Range("B:I" & Lig).Sort .[B3], xlDescending, Header:=xlYes 'tri alphabétique
End With
End Sub
Dernière édition: