Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Classement automatique

Classement automatique

5 réponses
Avatar
lafouine
Bonjour,

Je souhaiterais faire un classement automatique de la colonne "moyenne"==>le
premier étant celui avec la plus faible valeur. Le 1er du classement doit
se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er n'est pas
forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et petit
valeur mais il me faut 1 deuxième tableau pour le classement==> pas
intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi
Signaler un problème avec ce contenu

5 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
lafouine
Désolé, avec un fichier joint que l'on peut ouvrir c'est mieux !

http://www.cijoint.fr/cjlink.php?file=cj200911/cij6mJ2CDe.xls


"lafouine" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire un classement automatique de la colonne
"moyenne"==>le premier étant celui avec la plus faible valeur. Le 1er du
classement doit se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er n'est
pas forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et petit
valeur mais il me faut 1 deuxième tableau pour le classement==> pas
intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi







Avatar
Philippe.R
Bonsoir,
Essaye ceci dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:AG11")) Is Nothing Then
Range("A2:AG11").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub

(pour y accéder, clic droit sur l'onglet et "visualiser le code")
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:%
Désolé, avec un fichier joint que l'on peut ouvrir c'est mieux !

http://www.cijoint.fr/cjlink.php?file=cj200911/cij6mJ2CDe.xls


"lafouine" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire un classement automatique de la colonne
"moyenne"==>le premier étant celui avec la plus faible valeur. Le 1er du
classement doit se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er n'est
pas forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et
petit valeur mais il me faut 1 deuxième tableau pour le classement==> pas
intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi











Avatar
lafouine
Merci bcp pour la réponse rapide
Je regarde ça demain, car je suis vraiment une bille en VBA, je ne sais même
pas quoi faire après "visualiser le code"
J'ai copié ta formule et après ??? je vais aller sur des sites pour débutant
VBA.
Merci encore et bonne nuit !

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Essaye ceci dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:AG11")) Is Nothing Then
Range("A2:AG11").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub

(pour y accéder, clic droit sur l'onglet et "visualiser le code")
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:%
Désolé, avec un fichier joint que l'on peut ouvrir c'est mieux !

http://www.cijoint.fr/cjlink.php?file=cj200911/cij6mJ2CDe.xls


"lafouine" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire un classement automatique de la colonne
"moyenne"==>le premier étant celui avec la plus faible valeur. Le 1er
du classement doit se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er n'est
pas forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et
petit valeur mais il me faut 1 deuxième tableau pour le classement==>
pas intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi














Avatar
Philippe.R
Bonjour,
Marche à suivre :
Tu colles effectivement le code VBA fourni dans la grande fenêtre de
l'éditeur, qui s'est ouverte par "visualiser le code"
Le classement sera ensuite mis à jour automatiquement à chaque changement
effectué dans la plage allant de F2 à AG11
Pour effectuer le 1er classement sans modifier de valeur, il suffit de
revalider une quelconque des cellules de la plage.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:
Merci bcp pour la réponse rapide
Je regarde ça demain, car je suis vraiment une bille en VBA, je ne sais
même pas quoi faire après "visualiser le code"
J'ai copié ta formule et après ??? je vais aller sur des sites pour
débutant VBA.
Merci encore et bonne nuit !

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonsoir,
Essaye ceci dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:AG11")) Is Nothing Then
Range("A2:AG11").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub

(pour y accéder, clic droit sur l'onglet et "visualiser le code")
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:%
Désolé, avec un fichier joint que l'on peut ouvrir c'est mieux !

http://www.cijoint.fr/cjlink.php?file=cj200911/cij6mJ2CDe.xls


"lafouine" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire un classement automatique de la colonne
"moyenne"==>le premier étant celui avec la plus faible valeur. Le 1er
du classement doit se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er n'est
pas forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et
petit valeur mais il me faut 1 deuxième tableau pour le classement==>
pas intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi


















Avatar
lafouine
Merci bcp, vous êtes vraiment trop fort.
Cela donne envie de connaître VBA. Il va falloir que j'y consacre du temps.

Bonne journée !

Lafouine

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de news:

Bonjour,
Marche à suivre :
Tu colles effectivement le code VBA fourni dans la grande fenêtre de
l'éditeur, qui s'est ouverte par "visualiser le code"
Le classement sera ensuite mis à jour automatiquement à chaque changement
effectué dans la plage allant de F2 à AG11
Pour effectuer le 1er classement sans modifier de valeur, il suffit de
revalider une quelconque des cellules de la plage.
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:
Merci bcp pour la réponse rapide
Je regarde ça demain, car je suis vraiment une bille en VBA, je ne sais
même pas quoi faire après "visualiser le code"
J'ai copié ta formule et après ??? je vais aller sur des sites pour
débutant VBA.
Merci encore et bonne nuit !

"Philippe.R" <AS_rauphil_chez_wanadoo.fr> a écrit dans le message de
news:
Bonsoir,
Essaye ceci dans le module de la feuille :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:AG11")) Is Nothing Then
Range("A2:AG11").Sort Key1:=Range("A2"), Order1:=xlAscending, _
Header:=xlNo, OrderCustom:=1, MatchCase:úlse, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End If
End Sub

(pour y accéder, clic droit sur l'onglet et "visualiser le code")
--
Avec plaisir
http://dj.joss.free.fr/trombine.htm
http://jacxl.free.fr/mpfe/trombino.html
Philippe.R
Pour se connecter au forum :
http://www.excelabo.net/web/mpfe
News://news.microsoft.com/microsoft.public.fr.excel
"lafouine" a écrit dans le message de
news:%
Désolé, avec un fichier joint que l'on peut ouvrir c'est mieux !

http://www.cijoint.fr/cjlink.php?file=cj200911/cij6mJ2CDe.xls


"lafouine" a écrit dans le message de news:

Bonjour,

Je souhaiterais faire un classement automatique de la colonne
"moyenne"==>le premier étant celui avec la plus faible valeur. Le 1er
du classement doit se trouver en haut du tableau.
J'arrive à faire un classement avec la fonction RANG (mais le 1er
n'est pas forcément en première ligne de mon tableau...).
J'ai essayé de reporter les chiffres plus bas avec fonction equiv et
petit valeur mais il me faut 1 deuxième tableau pour le classement==>
pas intéressant
Merci de votre aide. Je ne connais pas le VBA

http://cjoint.com/?lbrKRsXbDi