Discussion :

[Kestion100]

Bonjour,
Je voudrais me servir d'une macro pour selectionner un champ de cellules en partant de A2 jusqu'à la cellule contenant ma dernière valeur (lignes et colonnes) puis les trier dans l'ordre alphabétique des valeurs d'une colonne de ce champ de cellules.

Par exemple:

Champ: de A2 à AI500 (cellule dans laquelle je trouverais la dernière valeur de mon tablleau), à trier dans l'ordre alphabétique des valeurs des cellules de la colonne AB.

J'imagine que l'instruction du tri ne dois pas être compliquée et je la trouve en enregistrant une macro, j'ai lu pas mal de choses sur la recherche de la cellule contenant la dernière valeur d'un tableau mais n'arrive pas trop à réutiliser tout ça, enfin, je bloque complètement sur l'enchaînement des deux.


Merci

[bifconsult]

Pour renvoyer la dernière cellule utilisée d'une colonne :

Code :

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

dernier_rang = Cells(Cells.Rows.Count, x).End(xlUp).Row

x étant le numéro de la colonne ou son appellation alphabétique (exemple pour la colonne B : 2 ou "B")

Ensuite, pour le tri, lancer l'enregistreur de macro et adapter le code généré en remplaçant le numéro du dernier rang utilisé par la variable 'dernier_rang' (sans guillemets).

[Guiiand]

Bonjour,

La formule qu'a propose bisconfit est valable si toute tes colonnes ont la meme
taille ou que tu connais la colonne la plus longue.

Je te propose quelque chose de plus souple, qui te renvoie egalement la derniere colonne.
Avec ceci, tu devrais avoir toutes les infos dont tu as besoins.

Code :

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

1
2
3
4
5
6
7
8
9
    Ligne_Premiere_Cellule = UsedRange.Rows.Row
    Nombre_De_Ligne = UsedRange.Rows.Count
 
    Colonne_Premiere_Cellule = UsedRange.Columns.Column
    Nombre_De_Colonne = UsedRange.Columns.Count
 
    Ligne_Derniere_Cellule = Ligne_Premiere_Cellule + Nombre_De_Ligne - 1
 
    Colonne_Derniere_Cellule = Colonne_Premiere_Cellule + Nombre_De_Colonne - 1

[Kestion100]

Si je comprends bien, pour la première réponse, quelque chose du genre:

Code :

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

1
2
3
4
5
6
7
Sub XYZ()
 
dernier_rang = Cells(Cells.Rows.Count, x).End(xlUp).Row
 
' J'insère le code pour le tri
 
End Sub ?

Pour la seconde, en revanche, je ne vois pas la syntaxe??? Il ne faut pas déclarer de variables.....


Merci

[Guiiand]

Bonjour,

J'ai juste donné la syntaxe pour trouvé les 4 coins de ta zone utile (UsedRange).

Après, à toi de les utiliser à bon escient.

Au plaisir

[Menhir]

Attention avec la propriété "End".

S'il y a des cellules vides dans la colonne scrutée, elle va renvoyer la dernière cellule occupée avant la première cellule vide, y compris si après cette cellule vide se trouvent d'autres cellules occupées.
Il n'est donc pas possible de l'utiliser dans n'importe quel cas.

Pour ce qui est du tri, voir la méthode Sort de l'objet Worksheet.
Mais, comme le conseille bifconsult, il vaut mieux que tu fasses d'abord un petit coup d'enregistrement automatique de macro en faisant un tri "à la main" pour voir sa syntaxe car elle est un peu complexe et que l'aide Excel (ou plus exactement sa traduction) n'est pas très pratique pour ce type de syntaxes.