Mise en forme conditionnelle et tri
Résolu
ADM3440
Messages postés
12
Statut
Membre
-
ADM3440 Messages postés 12 Statut Membre -
ADM3440 Messages postés 12 Statut Membre -
Bonjour,
Est-ce possible de faire un tri lorsqu’on fait une MFC ? Par exemple, j’ai plusieurs colonnes et ds une d’elles, j’ai le nom de certaines villes qui sont en rouge; est-ce possible de faire le tri par les cellules ROUGES
Est-ce possible de faire un tri lorsqu’on fait une MFC ? Par exemple, j’ai plusieurs colonnes et ds une d’elles, j’ai le nom de certaines villes qui sont en rouge; est-ce possible de faire le tri par les cellules ROUGES
A voir également:
- Mise en forme conditionnelle et tri
- Mise en forme conditionnelle excel - Guide
- Comment faire un tri personnalisé sur excel - Guide
- Mise en forme tableau croisé dynamique - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Appliquez à tous les paragraphes du document à télécharger, à l’exception des titres et des sous-titres, la mise en forme suivante : - Guide
3 réponses
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
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
404 NOT FOUND
The resource requested could not be found on this server
pouvez-vs le sauvegarder ds
https://www.cjoint.com/c/GECcEaOYqiB
pouvez-vs m'inclure la macro
https://www.cjoint.com/c/GECwV11oUCB
Onglet Trier
Choisir Trier Par.. la colonne VILLE.
Choisir Trier Couleur de cellule
Dans Ordre Choisir Couleur
cliquer sur OK