mettre par odre alphabétique automatiquement

boulou

XLDnaute Occasionnel

• 11 Mars 2011

• #16

Re : mettre par odre alphabétique automatiquement

Bonjour.
Là vous m'impressionnez !
Mais comment l'adapter à des plages de cellules non jointes, exemple
(bc103:bc150),(be103:be150),(bi103:bi150)
Merci dès à présent pour le correctif à apporter.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 11 Mars 2011

• #17

Re : mettre par odre alphabétique automatiquement

Bonjour à tous,

pas tout suivi mais pour des cellules non jointes :

Code:

Range("bc103:bc150,be103:be150,bi103:bi150").Select

Boulou, il eût peut être été préférable que tu crées ta propre discussion, pas sûr qu'il y ait un rapport avec celle en cours...

bonne journée
@+

 

Vote positif 0 Vote négatif

JNP

XLDnaute Barbatruc

• 11 Mars 2011

• #18

Re : mettre par odre alphabétique automatiquement

Bonjour le fil 🙂,

JCGL à dit:

Il est de coutume sur XLD "d'améliorer" les fichiers déposés...

Cliquez pour agrandir...

Entièrement d'accord 😉.

Fo_rum à dit:

Si tu veux un tri dès la saisie en colonne A, il te faudra rechercher la ligne à compléter.

Cliquez pour agrandir...

Du fait, en repartant de celui de Fo_rum, une proposition à la saisie en A 😛...
Si ça convient, il faudra juste que je rajoute une vérification sur le prénom, pour pouvoir avoir 2 Dupont, par exemple 🙄...
Bonne journée 😎

 

Pièces jointes

• TriAuto.xls

  35.5 KB · Affichages: 53
• TriAuto.xls

  35.5 KB · Affichages: 63
• TriAuto.xls

  35.5 KB · Affichages: 55

Vote positif 0 Vote négatif

DL_13

XLDnaute Occasionnel

• 11 Mars 2011

• #19

Re : mettre par odre alphabétique automatiquement

Bonjour le Fil

Merci JCGL pour le "permets-toi" donc voici la version avec détection automatique de la dernière colonne remplie

Code:

Option Explicit
Dim i As Byte, X As Integer
Sub Tri_Data()
X = Range("IV1").End(xlToLeft).Column
On Error Resume Next
    For i = 1 To X
        Sheets("Data").Columns(i).Sort Key1:=Cells(1, i), Order1:=xlAscending
    Next i
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Mars 2011

• #20

Re : mettre par odre alphabétique automatiquement

Re-bonjour,

@ glock76,

Pas de naufrage dans la désespérance, j’espère 😕…

@ Fo_rum et JNP 🙂,

Bravo pour vos merveilles !

@ DL_13,

Je ne parviens pas à adapter le nouveau code au fichier de glock76 😱.

Bon après-midi 😎…

 

Vote positif 0 Vote négatif

G

glock76

XLDnaute Nouveau

• 11 Mars 2011

• #21

Re : mettre par odre alphabétique automatiquement

merci doublezero 🙂
c'est bie, ce que je voulais

et pourma culture perso tu as fait comment stp
c'est compliqué ou pas ?

merci a tous pour votre participation

ps dsl de repondre que maintenant j'ai âs eu le temps aujourd'hui

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 11 Mars 2011

• #22

Re : mettre par odre alphabétique automatiquement

Re-bonjour,

@ glock76,

Si besoin, voici la procédure pour dupliquer le code de la macro sur le fichier de travail :

En cas de souci, ne pas hésiter à demander de l’aide.

glock76 à dit:

...et pourma culture perso tu as fait comment stp
c'est compliqué ou pas ?

Cliquez pour agrandir...

Pour ce qui concerne la complexité, je te conseille de recourir à l'enregistreur de macro, pour les opérations simples pouvant être automatisées.

c'est quoi un enregistreur

Cliquez pour agrandir...

Ne sachant "écrire" en VBA, je fais régulièrement appel à lui ! Sous Excel 2007, il se trouve dans l'onglet "Développeur".

Dans l'aide d'Excel, en tapant "Enregistrer une macro", tu peux trouver les indications nécessaires pour débuter.

Je te souhaite bon courage dans ton apprentissage et, en cas de besoin, ne pas oublier que le présent forum regorge de personnes bienveillantes 🙂 et hautement qualifiées 🙂 pour t'apporter l'aide sollicitée. Il ne faut pas avoir honte : je crie régulièrement "au secours" 😱...

A bientôt 😀 !

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 12 Mars 2011

• #23

Re : mettre par odre alphabétique automatiquement

Bonjour, le Fil, le Forum,

@ glock76,

Le fichier joint a subi quelques modifications :

- pour un gain de temps, la saisie de nouvelles données doit toujours s'effectuer en A8 (non pas en fin de tableau). Le positionnement sur cette cellule est automatique ;

- afin d'éviter la recopie vers le haut, la formule en colonnes D et G est automatisée.

Cela conviendra-t-il 🙂 ?

 

Pièces jointes

• 00 - glock76 - V02.zip

  18.4 KB · Affichages: 24

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 12 Mars 2011

• #24

Re : mettre par odre alphabétique automatiquement

Salut

JNP, j’avais pensé aussi la simple évènementielle suivante en préconisant de ne saisir le nom qu’en dernier sur la ligne mais je me suis dit qu’on pouvait avoir besoin de rectifier des données (majuscules pour les noms par exemple) :

Code:

  Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Column > 1 Or Target.Count > 1 Then Exit Sub
     Range("A7:H" & Cells(Rows.Count, 1).End(xlUp).Row).Sort Key1:=[A7], Order1:=1
  End Sub

Ne connaissant pas le contexte, j’ai préféré attendre.


Dans le nouveau fichier,seule la démarche change (simple clic) mais j'ai rajouté l'excellente idée de DoubleZero : préparer le terrain en copiant les formules et formats.

 

Pièces jointes

• TriDerli.xls

  33 KB · Affichages: 43

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 13 Mars 2011

• #25

Re : mettre par odre alphabétique automatiquement

Bonjour, le Fil 🙂, le Forum,

Une nouvelle proposition, avec le fichier joint, laquelle prend en considération le tri en fonction des noms et prénoms (j'ai enfin pu trouver le petit morceau de code qui me faisait défaut 😀...) !

Un bon dimanche à toutes et à tous 😎, une bise à JNP 🙂.

 

Pièces jointes

• 00 - glock76 - V03.zip

  18.5 KB · Affichages: 23

Vote positif 0 Vote négatif