Discussion :

[creunch]

Bonjour,

D'un coté, j'ai une liste de nom trié par ordre alphabétique dans une colonne et de l'autre, j'ai un userform dans lequel il y a une textbox dans laquel j'inscrit des noms et un bouton "valider" .

Est ce que vous auriez une solution pour que lorsque j'appuis sur le bouton "valider", le nom présent dans la text box vienne s'insérrer dans la liste de ma feuille excel au bonne endroit( toujours par ordre alphabétique)


Exemple:

avant insertion : Alain
Claude
Gerard
Mathilde
Simon

Après insertion: Alain
Claude
Gerard
Laurie
Mathilde
Simon


Merci d'avance de vos réponse

[rvtoulon]

bonjour,
en admettant que la liste de noms se trouve dans la colonne A et débute en A2, A1 ayant le nom du champ:
j'ai utilisé l'enregistreur de macro pour le classement par ordre alphabétique.
code :

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
Private Sub CommandButton1_Click()
With Sheets("Feuil1")
derlign = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("A" & derlign).Value = Me.TextBox1.Value
 
'classement par ordre alphabétique
.Sort.SortFields.Clear
.Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
End With
 
    With Sheets("Feuil1").Sort
        .SetRange Range("A2:A" & derlign)
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

[creunch]

Merci pour cette réponse, mais je ne peux utiliser cette solution.
La methode qui consite à insérer une ligne à la fin de la liste puis à faire un tri alphabétique ne convient pas.

Je doit inserer directement le nom au bon endroit dans la liste.

[AlainTech]

Quelle est cette raison impérieuse qui t'empêche de suivre ce conseil?

[rvtoulon]

Quelle est cette raison impérieuse qui t'empêche de suivre ce conseil?

Je partage la question de Alain....

[creunch]

Bonjours,

Je ne peux pas utiliser la fonction de tri alphabétique car ma liste de "nom" est inscrite dans une table dans laquelle il y a des sous-totaux.

La seule solution que je vois est d'inserer le "nom" dans la liste en fonction de son orthographe, sans passer par un tri.

[juac5611]

Merci pour cette réponse, mais je ne peux utiliser cette solution.
La methode qui consite à insérer une ligne à la fin de la liste puis à faire un tri alphabétique ne convient pas.

Je doit inserer directement le nom au bon endroit dans la liste.

Si tu utilise un cellule de la feuille de calcul.
EQUIV(Valeur_cherchée;Matrice_de_recherche;1)
dans ton exemple çà donne 2 (auquel tu ajoute 1 pour selectionner la cellule d'insertion.
Donc EQUIV(Valeur_cherchée;Matrice_de_recherche;1)+1
Sous visual basic tu écris la formule dans une cellule que tu récupère après calcul.
Je ne connais pas l'équivalent de EQUIV en VBA.