Discussion :

[Klode784]

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

[SfJ5Rpw8]

Bonsoir,

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

[Klode784]

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

[SfJ5Rpw8]

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

[Klode784]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Klode784]

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