J'ai un certain nombre de valeurs associ=E9 =E0 des noms et un=20
classement est effectu=E9 en fonction du nombre de pts de=20
chacun !!!
J'attribuerais r=E9guli=E8rement des pts aux personnes et=20
j'aimerais ainsi que le classement se remmette en ordre=20
d=E9croissant automatiquement (sans trie,...)
Faut-il utiliser une macro et si oui comment je dois=20
faire ???
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
garnote
Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news: 09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne
sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille
qui apparaîtra :
Sub TriAutomatique()
Set ici = Range("tableau")
Set clé = ici(1, 2)
ici.Sort Key1:=clé, Order1:=xlDescending
End Sub
3. Faire un clic droit sur ton onglet de feuille,
cliquer sur «Visualiser le code» et coller
cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub
Else
Call TriAutomatique
End If
End Sub
En espérant avoir été clair,
Serge
"lapinou" <jeremietardy@free.fr> a écrit dans le message de news:
09ae01c394a4$079c5860$a401280a@phx.gbl...
Explications :
J'ai un certain nombre de valeurs associé à des noms et un
classement est effectué en fonction du nombre de pts de
chacun !!!
J'attribuerais régulièrement des pts aux personnes et
j'aimerais ainsi que le classement se remmette en ordre
décroissant automatiquement (sans trie,...)
Faut-il utiliser une macro et si oui comment je dois
faire ???
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news: 09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
lapinou
merci beaucoup je vais essayer demain ;-)
Tchao
-----Message d'origine----- Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
.
merci beaucoup je vais essayer demain ;-)
Tchao
-----Message d'origine-----
Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne
sur des lignes adjacentes et que tes points sont dans la
colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille
qui apparaîtra :
Sub TriAutomatique()
Set ici = Range("tableau")
Set clé = ici(1, 2)
ici.Sort Key1:=clé, Order1:=xlDescending
End Sub
3. Faire un clic droit sur ton onglet de feuille,
cliquer sur «Visualiser le code» et coller
cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("tableau").Columns(2)) Is
Nothing Then
Exit Sub
Else
Call TriAutomatique
End If
End Sub
En espérant avoir été clair,
Serge
"lapinou" <jeremietardy@free.fr> a écrit dans le message
de news:
J'ai un certain nombre de valeurs associé à des noms et un
classement est effectué en fonction du nombre de pts de
chacun !!!
J'attribuerais régulièrement des pts aux personnes et
j'aimerais ainsi que le classement se remmette en ordre
décroissant automatiquement (sans trie,...)
Faut-il utiliser une macro et si oui comment je dois
faire ???
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
.
Salut je t'écris pr mon prob excel ça me mets un erreur 400 pr le tri automatique ??? "La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine----- Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
.
Salut je t'écris pr mon prob excel
ça me mets un erreur 400 pr le tri automatique ???
"La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine-----
Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne
sur des lignes adjacentes et que tes points sont dans la
colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille
qui apparaîtra :
Sub TriAutomatique()
Set ici = Range("tableau")
Set clé = ici(1, 2)
ici.Sort Key1:=clé, Order1:=xlDescending
End Sub
3. Faire un clic droit sur ton onglet de feuille,
cliquer sur «Visualiser le code» et coller
cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("tableau").Columns(2)) Is
Nothing Then
Exit Sub
Else
Call TriAutomatique
End If
End Sub
En espérant avoir été clair,
Serge
"lapinou" <jeremietardy@free.fr> a écrit dans le message
de news:
J'ai un certain nombre de valeurs associé à des noms et un
classement est effectué en fonction du nombre de pts de
chacun !!!
J'attribuerais régulièrement des pts aux personnes et
j'aimerais ainsi que le classement se remmette en ordre
décroissant automatiquement (sans trie,...)
Faut-il utiliser une macro et si oui comment je dois
faire ???
Salut je t'écris pr mon prob excel ça me mets un erreur 400 pr le tri automatique ??? "La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine----- Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
.
Denis Michon
Bonjour,
As-tu essayé quelque chose comme ceci :
Header peut prendre la valeur Xlyes ou xlno selon que ton tableau a des étiquettes de colonnes.
'--------------------- Sub TriAutomatique()
With Worksheets("Feuil1") With .Range("A1:G50") .Sort Key1:=.Range("A2"), Order1:=xlDescending, Header:=xlYes End With End With End Sub '---------------------
Salutations!
a écrit dans le message de news:07d001c39581$681e6c90$ Salut je t'écris pr mon prob excel ça me mets un erreur 400 pr le tri automatique ??? "La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine----- Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
Merci pour votre aide !!!
Tchao
.
Bonjour,
As-tu essayé quelque chose comme ceci :
Header peut prendre la valeur Xlyes ou xlno selon que ton tableau a des étiquettes de colonnes.
'---------------------
Sub TriAutomatique()
With Worksheets("Feuil1")
With .Range("A1:G50")
.Sort Key1:=.Range("A2"), Order1:=xlDescending, Header:=xlYes
End With
End With
End Sub
'---------------------
Salutations!
<anonymous@discussions.microsoft.com> a écrit dans le message de news:07d001c39581$681e6c90$a401280a@phx.gbl...
Salut je t'écris pr mon prob excel
ça me mets un erreur 400 pr le tri automatique ???
"La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine-----
Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne
sur des lignes adjacentes et que tes points sont dans la
colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille
qui apparaîtra :
Sub TriAutomatique()
Set ici = Range("tableau")
Set clé = ici(1, 2)
ici.Sort Key1:=clé, Order1:=xlDescending
End Sub
3. Faire un clic droit sur ton onglet de feuille,
cliquer sur «Visualiser le code» et coller
cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("tableau").Columns(2)) Is
Nothing Then
Exit Sub
Else
Call TriAutomatique
End If
End Sub
En espérant avoir été clair,
Serge
"lapinou" <jeremietardy@free.fr> a écrit dans le message
de news:
J'ai un certain nombre de valeurs associé à des noms et un
classement est effectué en fonction du nombre de pts de
chacun !!!
J'attribuerais régulièrement des pts aux personnes et
j'aimerais ainsi que le classement se remmette en ordre
décroissant automatiquement (sans trie,...)
Faut-il utiliser une macro et si oui comment je dois
faire ???
Header peut prendre la valeur Xlyes ou xlno selon que ton tableau a des étiquettes de colonnes.
'--------------------- Sub TriAutomatique()
With Worksheets("Feuil1") With .Range("A1:G50") .Sort Key1:=.Range("A2"), Order1:=xlDescending, Header:=xlYes End With End With End Sub '---------------------
Salutations!
a écrit dans le message de news:07d001c39581$681e6c90$ Salut je t'écris pr mon prob excel ça me mets un erreur 400 pr le tri automatique ??? "La méthode sort de la classe range a échoué" ???
Tchao
-----Message d'origine----- Salut Lapinou,
Je suppose ici que tes noms sont dans une même colonne sur des lignes adjacentes et que tes points sont dans la colonne
juste à droite. Tu pourrais alors :
1. Nommer ta plage, par exemple, «tableau»,
2. Taper Alt + F11 et coller cette macro sur la feuille qui apparaîtra :
Sub TriAutomatique() Set ici = Range("tableau") Set clé = ici(1, 2) ici.Sort Key1:=clé, Order1:=xlDescending End Sub
3. Faire un clic droit sur ton onglet de feuille, cliquer sur «Visualiser le code» et coller cette macro sur la feuille qui apparaîtra :
Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("tableau").Columns(2)) Is Nothing Then
Exit Sub Else Call TriAutomatique End If End Sub
En espérant avoir été clair,
Serge
"lapinou" a écrit dans le message de news:
09ae01c394a4$079c5860$ Explications :
J'ai un certain nombre de valeurs associé à des noms et un classement est effectué en fonction du nombre de pts de chacun !!! J'attribuerais régulièrement des pts aux personnes et j'aimerais ainsi que le classement se remmette en ordre décroissant automatiquement (sans trie,...) Faut-il utiliser une macro et si oui comment je dois faire ???
