Réorganisation listing

Bonjour,

J'ai le fichier joint. Et j'aimerai qu'il y ai un classement automatique par ordre alphabétique lors de la saisie d'un nouvel adhérent.

Comment faire ?

Merci.

PS: pour lancer la Userform, faire CTRL+M

Bonjour Erwann1308,

Voici le code à modifier pour effectuer un tri après appui sur le bouton "Nouveau"

Private Sub CommandButton3_Click()
Dim L As Integer

If MsgBox("Etes-vous certain de vouloir INSERER ce nouveau contact ?", vbYesNo, "Demande de confirmation") = vbYes Then 'condition : si oui au message
L = Sheets("RAME").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE

Range("A" & L).Value = ComboBox6 'Insère la donnée de la liste déroulante dans la colonne A
Range("B" & L).Value = TextBox1 'Insère la donnée de la textbox1 dans la colonne B
'et à suivre....
Range("C" & L).Value = TextBox2
Range("D" & L).Value = TextBox3
Range("E" & L).Value = TextBox4
Range("F" & L).Value = TextBox5
Range("G" & L).Value = TextBox6
Range("H" & L).Value = TextBox7
Range("I" & L).Value = TextBox8
Range("J" & L).Value = TextBox9
Range("K" & L).Value = TextBox10
Range("L" & L).Value = ComboBox2
Range("M" & L).Value = ComboBox3
Range("N" & L).Value = ComboBox4
Range("O" & L).Value = TextBox11
Range("P" & L).Value = ComboBox5
End If

'Code permettant de modifier le format de la plage de cellule en format nombre
With Ws.Range("D2:d10")
            .NumberFormat = "0"
            .Value = .Value
End With

' Affiche une boîte de message
MsgBox ("Adhérent inséré dans fichier") 'Vous informant que le présent contact est inséré dans votre tableau Excel.

Ws.Range("A3:P" & L + 1).Sort Key1:=Ws.Range("B3"), Order1:=xlAscending
Unload Me ' Vide et ferme l'Userform ( formulaire)
UserForm1.Show 'Affiche le  formulaire
End Sub

BonjourErwan

Voilà à tester, le classement se fait que sur les boutons" modifié et nouveau"

j'ai également corriger l'alimentation de ta Combox 1 pour que l'entete "nom" ne soit plus dans la liste

Réfléchir dans le cas d'homonyme pour qu'il y ai un classement également par prénom, si besoin dit le moi

Impossible de saisir la date de naissance à regarder

Bonne aprem

et florian à été plus rapide mdr

Merci à vous 2 !!

Par contre, il n'y pas moyen de conserver la mise en page et que les formules suivent ??

Merci beaucoup.

bonjour.

normalement sur ma version le tri se fait sur toute la feuille

je regarde ça lorsque j ai un pc sous les doigts

Bonjour,

je viens de vérifier le fichier les formules suivent bien le tri.

Par contre, il n'y pas moyen de conserver la mise en page et que les formules suivent ??

La mise en page suit bien mais les nouveaux noms créés sont effectivement sans formule, c'est ça que tu veux ajouter?

Donc à chaque ajout veux tu que les formules soient ajouter? en fin de tableau?

A bientôt

Bonjour,

Initialement, c'est que le nom ajouté soit classé automatiquement dans l'ordre alphabétique.

Maintent, s'il est possible de le faire et de copier les formules de cellules, je ne dis pas non .

Merci.

Bonsoir Erwan,

La semaine passe très vite, je pense avoir un peu de temps pendant le week end pour ajouter les formules,

Patience, je suis pas un rapide

Bonjour Erwann1308,

Voici un essai en pièce jointe

Du coup j'attend la reponse par rapport ou code de florian qui m'a l'air nickel,

Merci Flo

Salut,

Le test de Florian53 est super.

Juste une remarque, je ne peut plus rentrer de date de naissance.

Super boulot !!

Merci.

bonjour Erwan j avais déjà le même problème sur ton fichier initiale impossible de saisir les ddn.