Classement automatique

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
lafouine
Le #20467781
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"
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







Philippe.R
Le #20468271
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" 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"
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











lafouine
Le #20468471
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"
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" 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"
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














Philippe.R
Le #20468901
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" 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"
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" 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"
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


















lafouine
Le #20469781
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"
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" 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" 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" 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"
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





















Publicité
Poster une réponse
Anonyme