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 tableau word - Guide
- Mise a jour chrome - Accueil - Applications & Logiciels
- Mise en forme tableau croisé dynamique - Guide
- Tri excel - Guide
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
58764
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
19 décembre 2024
17 256
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