Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient triées
lors du changement de couleur. les lignes en noir au début et les lignes en
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient triées
lors du changement de couleur. les lignes en noir au début et les lignes en
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient triées
lors du changement de couleur. les lignes en noir au début et les lignes en
Salut à toi
Je te propose ce code :
Salut à toi
Je te propose ce code :
Salut à toi
Je te propose ce code :
Une information supplémentaire,
Une information supplémentaire,
Une information supplémentaire,
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" a écrit dans le message de groupe de
discussion :
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" <gabrielno@gmail_nospam.com> a écrit dans le message de groupe de
discussion : uWIbLzUiKHA.1648@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" a écrit dans le message de groupe de
discussion :
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" a écrit dans le message de groupe de
discussion :
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" <gabrielno@gmail_nospam.com> a écrit dans le message de groupe de
discussion : uWIbLzUiKHA.1648@TK2MSFTNGP05.phx.gbl...
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Bonjour,
A ) Si tu modifies la couleur d'une cellule en utilisant l'içone
affichant le tableau des couleurs, la procédure
n'est pas déclenchée -> donc pas de mise à jour
tu dois double-cliquer sur une cellule de la colonne A:A
pour provoquer la mise à jour après avoir modifié la
couleur du texte d'une cellule.
B ) ta ligne de formule : =NBVAL(A1:A2)
Tu la places juste en dessous de ta ligne d'étiquettes
ça te permettra d'ajouter toutes les lignes que tu veux
sans venir perturber ta procédure !
Dans le module feuille, tu remplaces ta procédure par celle-ci
Cette procédure de la colonne G:G, donc je suppose
qu'elle est disponible !
'------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rg As Range
If Target.Column = 1 And Target.Count = 1 Then
Application.ScreenUpdating = False
Application.EnableEvents = False
nom = Target
Set Rg = Range("G4:G" & Range("A65536").End(xlUp).Row)
Rg.NumberFormat = "General"
Rg.Formula = "=Couleur(" & Rg(1).Offset(, -6). _
Address(0, 0) & ")"
Rg.Value = Rg.Value
With Rg.Offset(, -6).Resize(, 7)
.Sort key1:=.Item(1, 7), order1:=xlAscending, _
Key2:=.Item(1, 1), Order2:=xlAscending
End With
[A:A].Find(what:=nom).Select
Rg = ""
Application.EnableEvents = True
Application.ScreenUpdating = True
End If
End Sub
'------------------------------------------
Dans un module standard, tu copies ceci :
'-------------------------------------------
Function Couleur(Rg As Range)
Couleur = Rg.Font.ColorIndex
End Function
'-------------------------------------------
"Gabriel" a écrit dans le message de groupe de
discussion :
Bonjour,
Je souhaite réaliser un tableau avec Excel 2003 ou les lignes seraient
triées lors du changement de couleur. les lignes en noir au début et
les lignes en rouges à la fin et chacune des 2 couleurs triées
alphabétiquement (première colone).
En faite actuellement mon tableau se tri automatiquement par ordre
alphabétique (sur la première colonne) à chaque nouvelle ligne ajoutée.
grace à un VBA trouvé sur l'excellent site de JB
(http://boisgontierjacques.free.fr/)
Et je souhaiterai que les lignes que je passe en rouge viennent se
mettre à la fin du tableau mais triées également par odre alphabétique
(les noires en haut triées par ordre alphabétique et les rouges en bas
triées par ordre alphabétique)
est-ce jouable ?
Merci.
Ton fichier en retour.
http://cjoint.com/?bguNBwhqjs
Avec des trucs basés sur la couleur du texte, le même principe
s'applique... si tu modifies le format "couleur" du texte avec
le bouton "couleur texte" de la barre d'outil, cela ne déclenche
aucun événement et les fonctions ne sont pas calculées sauf si
tu appuies sur la touche F9.
dans la fonction, le premier paramètre, c'est la plage de cellules,
le deuxième "Cell" c'est une cellule de référence contenant le
bon format (couleur du texte) que tu veux calculer.
Ton fichier en retour.
http://cjoint.com/?bguNBwhqjs
Avec des trucs basés sur la couleur du texte, le même principe
s'applique... si tu modifies le format "couleur" du texte avec
le bouton "couleur texte" de la barre d'outil, cela ne déclenche
aucun événement et les fonctions ne sont pas calculées sauf si
tu appuies sur la touche F9.
dans la fonction, le premier paramètre, c'est la plage de cellules,
le deuxième "Cell" c'est une cellule de référence contenant le
bon format (couleur du texte) que tu veux calculer.
Ton fichier en retour.
http://cjoint.com/?bguNBwhqjs
Avec des trucs basés sur la couleur du texte, le même principe
s'applique... si tu modifies le format "couleur" du texte avec
le bouton "couleur texte" de la barre d'outil, cela ne déclenche
aucun événement et les fonctions ne sont pas calculées sauf si
tu appuies sur la touche F9.
dans la fonction, le premier paramètre, c'est la plage de cellules,
le deuxième "Cell" c'est une cellule de référence contenant le
bon format (couleur du texte) que tu veux calculer.