comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à chaque
ajout de ligne
--
zezette27
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.) en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.) en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.) en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 765D61D9-B11D-458D-A42C-130CD451A864@microsoft.com...
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui lui
reste fixe et en dernière colonne le bonus attribué par le classement donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur "visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il est
valable pour une saisie dans les colonnes A et B à partir de A1. A toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur à
chaque
ajout de ligne
--
zezette27
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 765D61D9-B11D-458D-A42C-130CD451A864@microsoft.com...
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 110D82A8-8165-4E64-A279-1A21E00B0BC6@microsoft.com...
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 765D61D9-B11D-458D-A42C-130CD451A864@microsoft.com...
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27
Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 110D82A8-8165-4E64-A279-1A21E00B0BC6@microsoft.com...
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 765D61D9-B11D-458D-A42C-130CD451A864@microsoft.com...
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27
Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message de
news: 110D82A8-8165-4E64-A279-1A21E00B0BC6@microsoft.com...
comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27
Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le message
de
news: 765D61D9-B11D-458D-A42C-130CD451A864@microsoft.com...
super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27
Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 6C823AC4-D409-42AB-B25E-4568F9BF89A8@microsoft.com...
mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27
Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" <zezette27@discussions.microsoft.com> a écrit dans le
message
de
news: 9E6D952D-BA40-43AC-971D-24C3B8F70E1D@microsoft.com...
comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27
ok et merci pour tout,super l'aide!!!
si besoin je te recontacte.
merci encore
--
zezette27Tu saisis une ligne, comme celles qui sont déjà saisies, et quand tu as
saisi les cinq cellules, le tri se fait automatiquement. Tu n'as rien de
particulier à faire.
Daniel
"zezette27" a écrit dans le message de
news:comment fait on pour lancer la macro que tu viens de m'envoyer ?
--
zezette27Regarde le classeur à l'adresse suivante :
http://cjoint.com/?lrqmCh8jO1
Daniel
"zezette27" a écrit dans le message
de
news:super mais j'ai ma ligne 1 qui vient se mettre dans le tri !
je veux aussi mettre en première colonne le numéro de classement, qui
lui
reste fixe et en dernière colonne le bonus attribué par le classement
donc
qui reste fixe aussi.
ce qui donne:
classement,nom,cheval,club,points,temps,bonus
Merci beaucoup pour cette aide.
--
zezette27Fais un clic droit sur l'onglet de ta feuille et clique sur
"visualiser
le
code".
Copie le code suivant; j'ai supposé que tes données étaient en
colonnes
de A
à E avec une ligne d'entêtes tels que tu les a donnés (nom, cheval
etc.)
en
ligne 1.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Complet As Boolean
If Target.Column > 5 Then Exit Sub
Complet = False
For i = 0 To 4
If Target.Offset(0, i).Value = "" Then Complet = True
Next i
If Complet = False Then Exit Sub
Columns("A:E").Sort Key1:=Range("D2"), Key2:=Range("E2"),
Key3:=Range("A2"), _
Header:=xlYes
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:mon tableau est du style:
nom,cheval,club,point,temps et le jeux le classer d'abord en
fonction
des
points croissants puis du temps croissant puis du nom
merci pour l'aide je débute
--
zezette27Bonjour.
Mets le code suivant dans la feuille où tu saisis tes données; il
est
valable pour une saisie dans les colonnes A et B à partir de A1. A
toi
de
l'adapter. Adapte également les paramètres du tri :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column > 2 Then Exit Sub
If Target.Column = 1 And Target.Offset(0, 1) = "" Then Exit Sub
If Target.Column = 2 And Target.Offset(0, -1) = "" Then Exit
Sub
Range("A:B").Sort Range("A1")
End Sub
Cordialement.
Daniel
"zezette27" a écrit dans le
message
de
news:comment fait on pour créer une macro.
je voudrai créer une macro pour trier automatiquement un classeur
à
chaque
ajout de ligne
--
zezette27