Mise en forme conditionnelle et tri
Résolu/Fermé
ADM3440
Messages postés
12
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
30 mai 2017
-
28 mai 2017 à 23:55
ADM3440 Messages postés 12 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 30 mai 2017 - 30 mai 2017 à 00:32
ADM3440 Messages postés 12 Date d'inscription vendredi 24 mars 2017 Statut Membre Dernière intervention 30 mai 2017 - 30 mai 2017 à 00:32
A voir également:
- Mise en forme conditionnelle et tri
- Mise en forme conditionnelle excel - Guide
- Mise en forme conditionnelle en fonction d'une autre cellule ✓ - Forum Excel
- Étendre une mise en forme conditionnelle ✓ - Forum Excel
- Triez cette liste par ordre alphabétique des villes et par note de la meilleure à la moins bonne. quel mot est formé par les 8 premières lettres de la colonne code ? ✓ - Forum Excel
- Appliquer mise en forme conditionnelle sur tout le classeur ✓ - Forum Bureautique
3 réponses
Utilisateur anonyme
29 mai 2017 à 00:07
29 mai 2017 à 00:07
Hello
Oui c'est possible.
http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC
Cordialement
Oui c'est possible.
http://www.excelabo.net/excel/conditionformat.php#couleurdeMEFC
Cordialement
Utilisateur anonyme
29 mai 2017 à 00:32
29 mai 2017 à 00:32
sub TriCoul(R As Range)
Dim Bas As Long, Haut As Long
Dim Col As Integer
Dim i As Long, j As Long
Dim Milieu As Variant, Echange As Variant
Col = R.Column
Bas = R.Row
Haut = R.Rows.Count + i - 1
i = Bas
j = Haut
Milieu = Cells((Int(Bas + Haut) / 2), Col).Interior.Color
Do
While Cells(i, Col).Interior.Color i = i + 1
Wend
While Milieu j = j - 1
Wend
If i Echange = Cells(i, Col).Interior.Color
Cells(i, Col).Interior.Color = Cells(j, Col).Interior.Color
Cells(j, Col).Interior.Color = Echange
Echange = Cells(i, Col).Value
Cells(i, Col).Value = Cells(j, Col).Value
Cells(j, Col).Value = Echange
i = i + 1
j = j - 1
End If
Loop Until i > j
If Bas If i end sub
sub TriCoulRange()
TriCoul Selection
end sub
Dim Bas As Long, Haut As Long
Dim Col As Integer
Dim i As Long, j As Long
Dim Milieu As Variant, Echange As Variant
Col = R.Column
Bas = R.Row
Haut = R.Rows.Count + i - 1
i = Bas
j = Haut
Milieu = Cells((Int(Bas + Haut) / 2), Col).Interior.Color
Do
While Cells(i, Col).Interior.Color i = i + 1
Wend
While Milieu j = j - 1
Wend
If i Echange = Cells(i, Col).Interior.Color
Cells(i, Col).Interior.Color = Cells(j, Col).Interior.Color
Cells(j, Col).Interior.Color = Echange
Echange = Cells(i, Col).Value
Cells(i, Col).Value = Cells(j, Col).Value
Cells(j, Col).Value = Echange
i = i + 1
j = j - 1
End If
Loop Until i > j
If Bas If i end sub
sub TriCoulRange()
TriCoul Selection
end sub
Raymond PENTIER
Messages postés
58652
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
19 septembre 2024
17 198
29 mai 2017 à 03:14
29 mai 2017 à 03:14
Oui, c'est possible et très facile. Cela fait partie des options de tri.
ADM3440
Messages postés
12
Date d'inscription
vendredi 24 mars 2017
Statut
Membre
Dernière intervention
30 mai 2017
30 mai 2017 à 00:32
30 mai 2017 à 00:32
super !
merci beaucoup
merci beaucoup
29 mai 2017 à 00:27
404 NOT FOUND
The resource requested could not be found on this server
pouvez-vs le sauvegarder ds
https://www.cjoint.com/c/GECcEaOYqiB
29 mai 2017 à 00:48
pouvez-vs m'inclure la macro
https://www.cjoint.com/c/GECwV11oUCB
29 mai 2017 à 22:08
Onglet Trier
Choisir Trier Par.. la colonne VILLE.
Choisir Trier Couleur de cellule
Dans Ordre Choisir Couleur
cliquer sur OK