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
- Dans la table des matières de ce document, le chapitre 6 et ses 2 sections n'apparaissent pas. trouvez l'erreur dans la structure du document et corrigez-la. mettez à jour la table des matières. quel est le mot formé par les lettres en majuscules de la table des matières après sa mise à jour ? - Forum Word
- Appliquer mise en forme conditionnelle sur tout le classeur ✓ - Forum Bureautique
- Mise en forme conditionnelle excel par rapport à une autre cellule ✓ - Forum Excel
- Dans cette présentation, sarah avait encadré directement le titre de certaines diapositives avant d'automatiser cette mise en forme pour tout le document. sur quelles diapositives avait-elle encadré directement le titre ? ✓ - 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
58389
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
18 avril 2024
17 090
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