classement alpha d'un tableau à un autre en respectant 1 critère

[hervoul]

Bjr,
je voudrais classer des noms qui ont déjà été classés dans un tableau selon un critère simple (des chiffres de 8 à 18,5). Mais ils sont éparpillés... je voudrais simplement les classer alphabétiquement dans un tableau d'une autre feuille, et si possible rassemblés les un sous les autres...
Merci.
Rvoul
PS : voir fichier joint

 

[nyko283]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Bonjour hervoul,

je passerait par une variable tableau que je trierait avant de recopier dans le tableau de l'onglet "vam-nombre".

Voici le lien d'un tres bon tuto sur qui de silkyroad
Utiliser les variables tableaux en VBA Excel
bon week end

 

[Gael]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Bonjour Hervoul, Bonjour Nyko283, le forum,

En formules dans l'exemple joint avec 2 plages variables définies (Inesrtion nom définir):

=DECALER('Elèves-VMA'!$A$4:$A$40;;EQUIV('nombre - VMA'!M$28;'Elèves-VMA'!$B$3:$L$3))

Pour Elèves qui correspond au tableau de 8 à 13
et

=DECALER('Elèves-VMA'!$A$44:$A$80;;EQUIV('nombre - VMA'!M$52;'Elèves-VMA'!$B$43:$L$43))

Pour Elèves2 qui correspond au tableau de 13,5 à 18,5

Pour les formules, sachant que les cellules qui ne contiennent pas de nom contiennent le caractère "^", j'ai utilisé la fonction NBCAR de façon à afficher toutes les valeurs d'au moins 2 caractères soit la formule:

=SI(SOMME((NBCAR(Elèves)>2)*1)>=LIGNES($A$29:$A29);INDEX(Elèves;PETITE.VALEUR(SI(Elèves<>"";LIGNE(Elèves));LIGNES($A$29:$A29))-3);"")

Formule matricielle à valider avec Ctrl-MAJ-Entrée

Cf exemple joint.

@+

Gaël

 

[david84]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Bonjour tout le monde,
ci-joint fichier (données classées par ordre alpha comme demandé).
A+

 

[phlaurent55]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Bonjour à tous,

une solution par macro

à+
Philippe

 

[hervoul]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

...merci à tous; et bon WE.
RVoul

 

[david84]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Re
une autre solution par macro (plus rapide si les plages sont importantes) :

Sub triTableau()
Dim Plage As Range, Plage2 As Range, nom, ligne&, t!
Application.ScreenUpdating = False
Set Plage = Sheets("Elèves-VMA").Range("B4:L40")
Set Plage2 = Sheets("Elèves-VMA").Range("B44:L80")
ligne = 1
colonne = 1
For i = 2 To Plage.Columns.Count + 1
    With Sheets("Elèves-VMA")
        nom = Sheets("Elèves-VMA").Range(.Cells(4, i), .Cells(40, i)).Value
    End With
    Dim Tablo()
    ReDim Tablo(1 To Plage.Rows.Count)
    For j = 1 To Plage.Rows.Count
        If Len(nom(j, 1)) > 0 Then Tablo(ligne) = nom(j, 1): ligne = ligne + 1: Nb = Nb + 1
    Next j
    
    For k = 1 To Nb
        For l = k To Nb
            If LCase(Tablo(l)) < LCase(Tablo(k)) Then
                temp = Tablo(l)
                Tablo(l) = Tablo(k)
                Tablo(k) = temp
            End If
        Next l
    Next k
    With Sheets("nombre - VMA")
        .Range(.Cells(29, i - 1), .Cells(65, i - 1)) = Application.Transpose(Tablo)
    End With
    ligne = 1
    Nb = 0
Next i

For i = 2 To Plage.Columns.Count + 1
    With Sheets("Elèves-VMA")
        nom = Sheets("Elèves-VMA").Range(.Cells(44, i), .Cells(80, i)).Value
    End With
    ReDim Tablo(1 To Plage.Rows.Count)
    For j = 1 To Plage.Rows.Count
        If Len(nom(j, 1)) > 0 Then Tablo(ligne) = nom(j, 1): ligne = ligne + 1: Nb = Nb + 1
    Next j
    
    For k = 1 To Nb
        For l = k To Nb
            If LCase(Tablo(l)) < LCase(Tablo(k)) Then
                temp = Tablo(l)
                Tablo(l) = Tablo(k)
                Tablo(k) = temp
            End If
         Next l
    Next k
    With Sheets("nombre - VMA")
        .Range(.Cells(68, i - 1), .Cells(104, i - 1)) = Application.Transpose(Tablo)
    End With
    ligne = 1
    Nb = 0
Next i
Application.ScreenUpdating = True
End Sub

A+

 

[hervoul]

Re : classement alpha d'un tableau à un autre en respectant 1 critère

Re...merci encore, j'ai trouvé ce dont j'avais besoin, avec une petite préférence pour les macros...
RVoul