Inserer un nom dans une colonne via une TextBox

Bonjour à tous,

Voici mon problème :

J'ai un USF contenant une TextBox, un bouton Ajouter, un bouton Fermer et une ListBox.

Leur Fonction :

La TextBox sert a y entrer un nom prenom, puis quand je clique sur le bouton Ajouter il me l'ajoute dans la colonne A de la feuille LIST_NOMS en respectant l'ordre alphabétique.

Mais là je sèche, je ne trouve pas de piste sur internet ou je n'ai pas les bon mot clé, mais si vous pouviez me guider j'en serais ravi...

Merci à tous,

bonne soirée

Christian

Bonsoir, je ne sais pas si c'est cela que tu veux... à tester

' à insérer dans le code de l'userform ( en ayant bien sur crée un CommandButton dans l'userform
Private Sub CommandButton1_Click()

'compte le nombre de ligne de la colonne A
 nbligne = Cells(65000, 1).End(xlUp).Row

'insère dans la dernière cellule vide le contenu d'une textbox 
cells(nbligne+1,1) = TextBox.Value

'Trie la 1ère colonne ( composé de code fait avec l'enregistreur de macro donc il y a certainement + simple)
'Tu peux modifier la plage à ta guise en fonction du nombre de cellule dispo
'Pas sur pour le cells ci dessous... à remplacer par un range sinon
cells(nbligne,1).Sort Key1:=Range("A1"), Order1:=xlAscending

end sub

Bonsoir,

Re,

désolé j'ai oublié le tri dans le fichier joint

Voila le code complet

Private Sub CommandButton1_Click()
Dim crit As Range
If TextBox1 = "" Then
MsgBox "Nom et prénom, obligatoire"
Else
cmpt = Range("A" & Rows.Count).End(xlUp).Row + 1
Range("a" & cmpt) = TextBox1
End If
Range("A1").Select
Set crit = Range("A2:A" & cmpt)
    ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("LIST_NOMS").Sort.SortFields.Add Key:=crit, _
    SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("LIST_NOMS").Sort
        .SetRange Range("A1:A" & cmpt)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub

Bonjour kingfadhel,

Merci pour ton code, c'est super sympas je m'en était rapprocher avec l'enregistreur de macro, il me restait le soucis de se placer sur la dernière ligne vide.

Merci encore

Christian

Re,

Bon ba en faite ça marche sur le fichier CCO.xls mais pas sur le miens je te joint le fichier original pour mieux comprendre,

Mais je cherche également à comprendre

Re,

En faite j'ai trouvé le soucis, à l'origine la feuille LIST_NOMS est cachée, j'ai fais le test en affichant la feuille pour l'ajout et ça fonctionne,faut il modifié le code ? si oui comment? par-contre il me dis mémoire insuffisante

Une piste ?

Merci pour tout, bon apétit

Christian

Bonjour

A vérifier

Salut Banzai64,

ça fonctionne nickel, du coup j'ai pu faire la même pour le bouton Ajout site et nickel (c'était pas dur non plus ... j'avais que la feuille à changer).

Me reste maintenant à essayer de corriger le bug de la conversion PDF puis 'importer et envoyer'

En tout cas merci pour ton travail, c'est vraiment sympas, et moi je vais essayer de comprendre mieux la VBA c'est trop bien ça !!

Bonne journée à toi et bon week-end

Christian