Liste de clients

Bonjour à tous du forum,

J'ai une feuille dans un classeur qui contient toutes les infos de mes clients. J'automatise la création de nouveaux clients via un userform. Lorsque je crée le client, il est placé sur la première ligne disponible à la suite des autres clients.

Est-ce possible de le créer et qu'il soit placé par ordre alphabétique dans la liste?

Merci,

Claude

Bonsoir,

pour être dans l'ordre alphabétique il suffit d'utiliser les fonctions de tri d'excel

Bonsoir et merci pour votre réponse. J'ai trouvé la fonction de tri, nommé la plage à être triée et enregistré le tout dans une macro et un raccourci ctrl-t. Tout fonctionne bien, mais j'aimerais que la macro soit exécutée automatiquement au moment où j'ajoute un nouveau client via mon userform. Ça doit surement être possible?

Merci de votre aide,

Claude

Bonjour,

modifie le code généré ... , créé une procédure en ayant pris soin de supprimer les Select,Selection et autre activate..., on peu t'aider à cela si tu nous montre une partie du code généré (ligne ...Sort..) et que tu la commande en précisant comment on peu déterminer la plage à trié (plage nommée?) son emplacement (qu'elle feuille excel ? classeur contenant ton code ou autre classeur ?) la colonne utilisée pour critère de tri...


puis appelle cette procédure dans le code de ton (éventuel) bouton de validation des données sur ton userfom

Bonjour et merci pour votre aide, c'est très apprécié. Voici le code qui a été généré à l'enregistrement de la Macro.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Tri() ' ' Tri Macro ' Tri les clients par ordre alphabétique '   ' Application.Goto Reference:="Clients" ActiveWorkbook.Worksheets("BDD Clients").Sort.SortFields.Clear ActiveWorkbook.Worksheets("BDD Clients").Sort.SortFields.Add Key:=Range("A3") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal With ActiveWorkbook.Worksheets("BDD Clients").Sort .SetRange Range("A4:H23") .Header = xlNo .MatchCase = False .Orientation = xlTopToBottom .SortMethod = xlPinYin .Apply End With Range("A3").Select End Sub

---

La plage se nomme "Clients", la macro "Tri", la feuille "BDD Clients" et le tri se fait par le nom du client par ordre alphabétique ascendant. La macro a été enregistrée dans un module.

J'ai essayé de modifier la macro pour l'incorporer au bouton "créer" de mon userform pour qu'il soit trié automatiquement. J'ai sûrement manqué quelque chose parce que ça ne fonctionne pas. Peut-être que d'insérer une ligne contenant les renseignements du client serait plus approprié au lieu que de trier à chaque fois. Je regarde toutes les avenues possibles. Merci pour les suggestions.

Je ne sais pas si ça peut être utile, mais voici le code du bouton créer de mon userform pour l'ajout de nouveaux clients.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Private Sub CommandButton1_Click() Dim RNG As Variant Dim i As Byte, Lig As Long   RNG = Array(TextBox1, TextBox2, TextBox3, TextBox4, TextBox5, TextBox6, TextBox7, TextBox8) With Sheets("BDD Clients") Lig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 For i = 0 To 7 .Cells(Lig, i + 1).Value = RNG(i).Value Next i End With   With Sheets("Contrat") For i = 0 To 7 .Range("B10").Offset(i, 0) = RNG(i).Value Next i End With   Unload UserForm3 Unload UserForm1 End Sub

---

Merci,

Claude

Bonsoir à tous du forum,

J'ai fait quelques avancées sur mon projet, mais je bloque pour intégrer le code dans VBA. Un peu d'aide serait apprécié, j'ai placé les 2 codes dans le fil précédent.

Merci,

Claude