Nom et prénom

[maval]

Bonjour

J'ai un USF avec une listbox et textbox. J'aimerais que lorsque je doit entrer un nouvelle hadérent en cliquant sur le bouton nouvelle hadérent je puisse entrer le nom et le prénom et Nom + Prénom a l'aide d'une InputBox comme.
Je joint mon fichier exemple

Cordialement

Maval

 

[phlaurent55]

Re : Nom et prénom

Bonjour maval,

Pourquoi compliquer les choses 😕😕😕

voir une solution en pièce jointe

à+
Philippe

 

[maval]

Re : Nom et prénom

Bonjour Philippe

Merci c'est très sympa. Oui pourquoi compliquer la vie ? C'est bien vrai.....

Juste un petit plus. Et-il possible d'ajouter le N° d'adhérent automatiquement sans le rentrer par la textBox en sachant que le N° et toujours un de plus, et cerise sur le gâteau, ranger par ordre alphabétique par la colonne "C".

Je te remercie beaucoup de ton aide et te souhaite une bonne soirée

Cordialement

Maval

 

[youky(BJ)]

Re : Nom et prénom

Bonsoir à vous,
maval, exemple pour le N°
numero= Application.Max([A:A])+1
Bruno

 

[maval]

Re : Nom et prénom

Bonjour Bruno,

Merci mais ou le mettre j'ai fait ceci mais sa ne fonctionne pas

Private Sub CommandButton3_Click()

derligne = Sheets(1).Range("A65535").End(xlUp).Row + 1
'Cells(derligne, 1) = LabelID  'TextBox1.Value
Cells(derligne, 2) = ComboBox2.Value
Cells(derligne, 3) = TextBox4.Value & " " & TextBox5.Value
Cells(derligne, 4) = TextBox4.Value
Cells(derligne, 5) = TextBox5.Value

'Mise en ordre alphabétique sur la feuille
   Range("A3:E250").Select
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Feuil1").Sort.SortFields.Add Key:=Range("C3"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Feuil1").Sort
        .SetRange Range("A3:E250")
        .Header = xlNo
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Unload Me
       UserForm_Initialize

UserForm1.Show

numero = Application.Max([A:A]) + 1




End Sub

@+

Maval

 

[phlaurent55]

Re : Nom et prénom

Re,

le fichier en retour

à+
Philippe

 

[maval]

Re : Nom et prénom

Bonjour Philippe,

Je te remercie beaucoup Nickel...! Je te souhaite une bonne journée.

Maval