Discussion :

[obyone118]

bonjour,

j'ai crée un userform, et je souhaiterais que lorsque je clique sur ajouter la textbox s'ajoute à la liste puis la liste se trie automatiquement par ordre alphabetique

voici le debut de mon code

Code :

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

1
2
3
4
5
Private Sub Ajouter_Click()
ligne = Sheets("donnees").[d65000].End(xlUp).Row + 1 
Sheets("donnees").Cells(ligne, 4) = Me.Tb_noms 
Unload Me
End Sub

pouvez vous m'aider pour le tri
cordialement

Obyone

[jfontaine]

Bonjour,

Pour le tri c'est l'instruction Sort

Code :

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

1
2
3
4
5
6
7
8
 
 
Private Sub Ajouter_Click()
ligne = Sheets("donnees").[d65000].End(xlUp).Row + 1 
Sheets("donnees").Cells(ligne, 4) = Me.Tb_noms 
Range("D2:D" & ligne).Sort Range("D2"), xlAscending
Unload Me
End Sub

Le code reste a tester

[obyone118]

merci pour la reponse rapide
mais j'ai un code d'erreur 1004
cette operation requiert que les cellules fusionnées soient de tailles identique.
je n'ai aucune cellules fusionnées dans la feuille donnees
j'ai un peu changer le code par celui ci

Code :

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

1
2
3
4
5
6
7
Private Sub Ajouter_Click()
ligne = Sheets("donnees").[d65000].End(xlUp).Row + 1 'ajout noms sur la derniere ligne de la colonne d
Sheets("donnees").Cells(ligne, 4) = Me.Tb_noms 'copie du nom sur la derniere ligne(voir au dessus) de d(=4)
Sheets("donnees").Range("D2:D" & ligne).Sort Range("D2"), xlAscending
 
Unload Me
End Sub

meme numero d'erreur mais le texte change

reference de tri non valide, verifiez qu'elle se trouve bien parmis les données à trier et que la zone Trier n'est pas identique ou vide?

j'ai besoin d'aide
je veux bien trier la colonne D de la feuille Donnees
mais excel a pas l'air de le vouloir, avez vous une idée
merci

[diude54]

si le nom de la colonne est en D1 essai de l'inclure dans la plage de données