recoverybis
XLDnaute Nouveau
Bonjour,
Je reviens vers vous car certaines incertitudes dues à mes modestes connaissances en VBA me chagrinent. Explication, ma base de données contient 25 colonnes du reste toutes ne sont pas forcément remplies et d’autres contiennent des formules après chaque insertion via un bouton sur l’Userform les données sont triées en ordre croissant pour ce faire j’ai utilisé l’enregistreur de Macro j’ai donc sélectionné la colonne des noms en l’occurrence la C et j’ai nommé le code qui en résulte Trier.
Ma réflexion est la suivante, compte tenu du nombre de colonnes avec en moyenne 400 abonnées.
Le code issu de l’enregistreur de macro ci dessous est – il suffisamment performant ?
En effet, existe – il un risque de sorte que les renseignements relatifs aux intéressés se concatènent sans cohérence après le tri ? Exemple :
Avant le tri
Nom Z Prénom Z Adresse Z Etc ……
Nom A Prénom A Adresse A Etc…..
Après le tri
Nom A Prénom Z Adresse A
Nom Z Prénom A Adresse Z
Merci à tous ceux qui m’accorderont quelques instants pour me répondre
Voici le code
Sub Trier()
' Trier Macro
Columns("C:C").Select
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("C1"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BD").Sort
.SetRange Range("A2:V500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Je reviens vers vous car certaines incertitudes dues à mes modestes connaissances en VBA me chagrinent. Explication, ma base de données contient 25 colonnes du reste toutes ne sont pas forcément remplies et d’autres contiennent des formules après chaque insertion via un bouton sur l’Userform les données sont triées en ordre croissant pour ce faire j’ai utilisé l’enregistreur de Macro j’ai donc sélectionné la colonne des noms en l’occurrence la C et j’ai nommé le code qui en résulte Trier.
Ma réflexion est la suivante, compte tenu du nombre de colonnes avec en moyenne 400 abonnées.
Le code issu de l’enregistreur de macro ci dessous est – il suffisamment performant ?
En effet, existe – il un risque de sorte que les renseignements relatifs aux intéressés se concatènent sans cohérence après le tri ? Exemple :
Avant le tri
Nom Z Prénom Z Adresse Z Etc ……
Nom A Prénom A Adresse A Etc…..
Après le tri
Nom A Prénom Z Adresse A
Nom Z Prénom A Adresse Z
Merci à tous ceux qui m’accorderont quelques instants pour me répondre
Voici le code
Sub Trier()
' Trier Macro
Columns("C:C").Select
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("BD").Sort.SortFields.Add Key:=Range("C1"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("BD").Sort
.SetRange Range("A2:V500")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub