Ranger par ordre alphabetique

[maval]

Bonjour

J'ai code ci-dessous pour mettre par ordre alpha lorsque je rentre les infos manuellement sur la feuille qui fonctionne très bien

'Rangement par ordre alphabétique
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lmax As Long
If Not Intersect(Target, Range("B4:N" & Rows.Count)) Is Nothing Then
  lmax = Cells(Rows.Count, "b").End(xlUp).Row
  If lmax > 4 Then Range("B4:N" & lmax).Sort key1:=Range("B4"), order1:=xlAscending, Header:=xlNo
End If
End Sub

J'ai un Userform ou je rentre des infos et je valide pour se ranger dans la feuille nommer Liste.
j'aimerai qu'il range toutes les infos par ordre alpha sur la feuille.

Je vous remercie d'avance

 

[Dranreb]

Re : Ranger par ordre alphabetique

Bonjour.

Juste une remarque préalable:
Il ne serait pas nécessaire que la base soit classée pour que toutes les listes le soient dans des ComboBox gérées par mon objet de type ComboBoxLiées. Accessoirement, au prix d'un dispositif un tout petit peu plus complexe à ajouter dans la partie du code que j'appelle "applicative" par opposition à la programmation "de service", il permettrait même, pour une recherche, de choisir ou taper dans l'un d'eux un des acteurs, genre ou nationalité. Ils y seraient aussi classés dans leurs listes, qui n'auraient plus besoin de la feuille Données, tout étant puisé dans la liste de base.

 

[maval]

Re : Ranger par ordre alphabetique

Bonjour Dranreb,

Je te remercie de ta réflexion qui est tout a fait pertinente, le problème est que je ne suis pas capable de le faire?

Je te remercie est te souhaite une bon WE

 

[Dranreb]

Re : Ranger par ordre alphabetique

Oui mais est-ce que ça conviendrait, que la base ne soit pas classée, mais que seulement ses éléments y seraient ainsi présentés dans les List des ComboBox ?
J'estime que l'objet ComboBoxLiées est facile à utiliser pour un programmeur inexpérimenté. Il faut juste savoir ce qu'est une propriété, une méthode et un évènement. Pas besoin d'étudier comment ils procèdent, juste lire attentivement les commentaires guides d'utilisation qui y figurent.

 

[maval]

Re : Ranger par ordre alphabetique

Re,

En faite ma demande est que lorsque je rempli mon userform est que je valide les infos des textbox et combobox soit placer sur la feuille nommé Liste est au bon emplacement sur la bonne ligne " par ordre croissant".

Merci

 

[Dranreb]

Re : Ranger par ordre alphabetique

Tant pis.
À une autre fois peut être, pour un problème plus intéressant.

Edit. Parce que là c'est trop facile: Il suffit en gros de parcourir les valeurs de la colonnes 1 de haut en bas jusqu'à ce qu'on y trouve une valeur supérieure à celle qu'on veut insérer, et on est sur la ligne devant laquelle il faut en insérer une nouvelle où y ranger les infos.

 

[BOISGONTIER]

Re : Ranger par ordre alphabetique

Bonsoir,

Cf PJ

JB

 

[BOISGONTIER]

Re : Ranger par ordre alphabetique

Bonjour,

Sur cette version , lors d'un ajout de titre, l'opérateur choisit dans un ComboBox les différents acteurs d'une liste. Il peut ajouter dynamiquement un nouvel acteur en frappant ,XXXXXX. Celui ci est ajouté à la liste des acteurs.




JB

 

[maval]

Re : Ranger par ordre alphabetique

Bonjour JB

Vraiment super je te remercie beaucoup et en plus le coup d'ajouter un acteur dans la liste génial.
Sur ta première version j'ai modifier l'aspect et ajouter des textbox tous fonctionne Nickel j'ai juste a modifier avec la deuxième version mais sa, sa pose pas de problème.
Je voudrai te demander s'il t'ais possible de me faire la même chose que tu ma fait sur le premier formulaire avec les étoiles, se qui voudrais dire que je note dans les 2 textbox "3 & 4" les notes 1, 2.5 ect... et je me retrouve les étoiles dans ma feuille excel bien sur si cela est possible.

Je joint mon fichier modifier

Un grand merci à toi

 

[BOISGONTIER]

Re : Ranger par ordre alphabetique

Voir PJ



JB

 

[maval]

Re : Ranger par ordre alphabetique

Re,

Je te remercie beaucoup tu temps passer pour moi.
Une question pourquoi si je rentre 3.5 ou 1.5 ect... dans la colonne "G ou H" je n'ai pas d'étoiles ni le 3.5 ou 1.5 ect...
j'ai essayé avec l point ou la virgule c'est pareil?

Merci beaucoup

 

[BOISGONTIER]

Re : Ranger par ordre alphabetique

Il faut les saisir via le formulaire. Si la saisie est faite directement dans la feuille, il faut cliquer sur le bouton genère des étoiles

Pour une saisie directement dans la feuille, c'est faisable

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DVEtoile.xls

C'est fait

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormDVDSaisieBD.xls

JB

 

[maval]

Re : Ranger par ordre alphabetique

Re,

J'avais bien compris comme cela. Je les saisi via le formulaire et j'ai ni les étoiles ni les 1.5 ou 3.5 ect.

 

[BOISGONTIER]

Re : Ranger par ordre alphabetique

Il faut saisir 4,5 dans le formulaire

http://boisgontierjacques.free.fr/fichiers/Formulaire/FormDVDSaisieBD.xls

JB

 

[maval]

Re : Ranger par ordre alphabetique

Re,

Toutes mes excuses, je n'ai pas de mot pour te remercier pour ce remarquable travail.

Je te souhaite une bonne fin d'après midi et merci encore