bonjour à tous,
Voilà j'utilise la macro suivante associée à un bouton :
Application.ScreenUpdating = False
Range('feuil2!B4').Insert Shift:=xlToRight
Range('feuil2!B4') = Range('feuil1!E4')
Application.ScreenUpdating = True
celle ci me copie la cellule E4 de la feuille1 dans la cellule B4 de la feuille 2 et me deplace le contenu de la cellule B4 de la feuille 2 dans la cellule B5 de la feuille 2 etc....
le soucis que j'ai c'est que je me retrouve avec un classement par ordre décroissant car la derniere valeur remplace l'ancienne en la plaçant à droite.
exemple 64 55 24 3 2 1
que faudrait il modifier pour que le classement se fasse dans l'ordre croissant? (que le dernier chiffre entré se place à droite de l'avant dernier chiffre pour se retrouver dans l'ordre croissant etc..).
1 2 3 24 55 64
Merci
Sylvain
Voilà j'utilise la macro suivante associée à un bouton :
Application.ScreenUpdating = False
Range('feuil2!B4').Insert Shift:=xlToRight
Range('feuil2!B4') = Range('feuil1!E4')
Application.ScreenUpdating = True
celle ci me copie la cellule E4 de la feuille1 dans la cellule B4 de la feuille 2 et me deplace le contenu de la cellule B4 de la feuille 2 dans la cellule B5 de la feuille 2 etc....
le soucis que j'ai c'est que je me retrouve avec un classement par ordre décroissant car la derniere valeur remplace l'ancienne en la plaçant à droite.
exemple 64 55 24 3 2 1
que faudrait il modifier pour que le classement se fasse dans l'ordre croissant? (que le dernier chiffre entré se place à droite de l'avant dernier chiffre pour se retrouver dans l'ordre croissant etc..).
1 2 3 24 55 64
Merci
Sylvain