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
...Patrick
Salut Cecile: sans VBA tu ajoutes ce code ds un module:
Function MyColor(CkCell As Object) Application.Volatile True 'ajouter un maintenant() pour forcer le recalcul de cette fonction MyColor = Abs(CkCell.Interior.ColorIndex) End Function
et dans ton tableau tu fais = Mycolor(A1) , tu tires vers les bas... et tu tries ensuite sur ces chiffres. Pour retrouver l'ordre initial, insérer peut etre avant tout ceci une colonne avec un chiffre de 1 à .... ta dernière ligne occupée. le tri et le filtre fonctionneront ainsi. Je laisse aux spécialistes le code vba :)) ....Patrick
"Céline Brien" a écrit dans le message de news:exqJ467$
Bonjour à toutes et à tous, En VBA, est-il possible de filtrer selon un format ? Couleur de remplissage par exemple ? Merci de votre aide, Céline
Salut Cecile:
sans VBA
tu ajoutes ce code ds un module:
Function MyColor(CkCell As Object)
Application.Volatile True 'ajouter un maintenant() pour forcer le recalcul de cette
fonction
MyColor = Abs(CkCell.Interior.ColorIndex)
End Function
et dans ton tableau tu fais = Mycolor(A1) , tu tires vers les bas... et tu tries ensuite
sur ces chiffres.
Pour retrouver l'ordre initial, insérer peut etre avant tout ceci une colonne avec un
chiffre de 1 à .... ta dernière ligne occupée.
le tri et le filtre fonctionneront ainsi.
Je laisse aux spécialistes le code vba :))
....Patrick
"Céline Brien" <celinebrien@laurentides.qc.ca> a écrit dans le message de
news:exqJ467$DHA.2348@TK2MSFTNGP09.phx.gbl...
Bonjour à toutes et à tous,
En VBA, est-il possible de filtrer selon un format ? Couleur de
remplissage par exemple ?
Merci de votre aide,
Céline
Salut Cecile: sans VBA tu ajoutes ce code ds un module:
Function MyColor(CkCell As Object) Application.Volatile True 'ajouter un maintenant() pour forcer le recalcul de cette fonction MyColor = Abs(CkCell.Interior.ColorIndex) End Function
et dans ton tableau tu fais = Mycolor(A1) , tu tires vers les bas... et tu tries ensuite sur ces chiffres. Pour retrouver l'ordre initial, insérer peut etre avant tout ceci une colonne avec un chiffre de 1 à .... ta dernière ligne occupée. le tri et le filtre fonctionneront ainsi. Je laisse aux spécialistes le code vba :)) ....Patrick
"Céline Brien" a écrit dans le message de news:exqJ467$
Bonjour à toutes et à tous, En VBA, est-il possible de filtrer selon un format ? Couleur de remplissage par exemple ? Merci de votre aide, Céline