trier les couleur vert et blanc excel

Membre depuis le 15/08/2021
Envoyé le 15/08/2021 à 17:20


Bonjour,
JAN 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 ce trouve sur la ligne 4
il y a 2 colleur blanc et vert
les chiffre 2 3 6 9 10 13 16 17 23 24 27 30 31 sont en blancs
je voudrais que les chiffres blanc soie en ligne 18 et commence en c
de gauche vers la droite et séparer des vert en excel


Bipbipcoyote Bipbipcoyote
3 805 contributions
Membre depuis le 06/03/2001
Envoyé le 15/08/2021 à 21:22


Bonjour,
Voici une solution mais il serait plus élégant de savoir pourquoi est-ce que ces dates sont en vert et d'autres en blanc . En tout cas, voici une procédure qui redétermine les couleurs d'arriere plan et ensuite on utilise l'offset pour recopier la donnée. J'ai pris comme départ, le numéro 1 dans la cellule A4 et la série continue jusque AF4
On parcourt cette plage de cellules et avec un IF on teste le contenu. On en profite pour colorer la cellule et l'on va recopier la valeur sur la ligne 18 (4+14) grâce à la fonction Offset . Quand je place un fond vert, j'utilise une couleur blanche pour la police de caractères

Sub Modifier_Couleur_ArPlan()
Dim cel As Range
For Each cel In Range("A4:AF4") ' on parcourt la plage
If cel = 1 Then ' on teste le contenu de la cellule
cel.Interior.ColorIndex = 10 'On colorie : 10 = vert
cel.Font.Color = RGB(255, 255, 255) 'On colorie la police de caractères
End If
If cel = 2 Then
cel.Interior.ColorIndex = 2 '2 = blanc
cel.Offset(14, 1) = cel 'On recopie sur la ligne 18
End If
If cel = 3 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, 1) = cel
End If
If cel = 4 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 5 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 6 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -1) = cel
End If
If cel = 7 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 8 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 9 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -3) = cel
End If
If cel = 10 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -3) = cel
End If
If cel = 11 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 12 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 13 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -5) = cel
End If
If cel = 14 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 15 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 16 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -7) = cel
End If
If cel = 17 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -7) = cel
cel.Offset(14, -7) = cel
End If
If cel = 18 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 19 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 20 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 21 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 22 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 23 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -12) = cel
End If
If cel = 24 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -12) = cel
End If
If cel = 25 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 26 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 27 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -14) = cel
End If
If cel = 28 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 29 Then
cel.Interior.ColorIndex = 10
cel.Font.Color = RGB(255, 255, 255)
End If
If cel = 30 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -16) = cel
End If
If cel = 31 Then
cel.Interior.ColorIndex = 2
cel.Offset(14, -16) = cel
End If
Next
End Sub

Visitez mon Site Google est mon ami, il répond mieux que moi, posez lui d'abord vos questions
jerem1984
1 contribution
Membre depuis le 02/12/2021
Envoyé le 02/12/2021 à 21:34


Merci pour le code ! je m'en vais le tester de suite [;)]



Discussion trop ancienne

Cette discussion a été automatiquement fermée car elle n'a plus reçue de nouveau message depuis trop longtemps.

Nous vous suggérons de créer un nouveau message

« Retour sur la liste des messages de ce forum