Grisé d'une couleur une colonne sous condition

xorre · 4 Novembre 2014

Bonjour,

j'ai un certain nombre de traitement récurent que j'aimerais automatiser je vous explique ce que je cherche à faire:

En gros, j'ai 6 colonnes d'un tableau

je souhaite que

1 - Tous les C = ANN l'IY de sa ligne en D = T et vice versa
Si ID2 = ANN alors IY = T et si IY = T alors ID2 = ANN

2 - SI un 0 est présent dans IY le supprimer

3 - Si la case IY est vide, la colorer en gris

4 - Puis appliquer un tri uniquement et sur l'ensemble de ces colonnes

ID valeur de A a Z
IY couleur de cellule en gris en haut
DA Valeurs plus ancien au plus récent

Le tout dans cet ordre.
Ce fichier est une extraction d'un plus gros fichier j'aurais donc à rapatrier les modifications éventuelles du fichier exemple vers mon vrai fichier 🙂

Le tout peut-il / doit-il être fait en VBA ou des simples équations dans les cellules serait suffisant ?

Merci d'avance à la communauté pour son aide !

DoubleZero · 4 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Bonjour à toutes et à tous,

xorre, pourrait-on voir, sur un nouvel onglet, le résultat attendu ?

A bientôt 🙂

xorre · 4 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Bonjour,

En fait, le fichier fourni était déjà dans l'attendu 🙂

J'ai donc rajouté un avant / après afin de mieux visualiser les différences !
Ce que je - peux - avoir en entrée
et un attendu final

Par contre ce fichier fait office de reporting pour des utilisateurs

Je profite pour savoir y-a-t-il un moyen d'importer des fichiers texte parser ( toujours la même structure d'information parser par des ; ) vers des cellules cibles et de dérouler ?
si oui sauriez vous me "diriger" peut être vers des discussions sur lesquelles je pourrais essayer de me base pour avancer sur ce sujet en parallèle car après plusieurs recherches infructueuses :/

merci pour ta participation !

DoubleZero · 5 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Bonjour, xorre, le Forum,

Peut-être ainsi :

Code:

Option Explicit
Sub Valeurs_modifier_cellules_vides_coloer()
    Dim i As Long, j As Long, k As Long
    With Application: .ScreenUpdating = False: .Calculation = xlManual: End With
    Columns(4).Replace What:="0", Replacement:=""
    For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
        If Range("c" & i) = "ANN" Then Range("c" & i).Offset(, 1) = "T"
    Next
    For j = Cells(Rows.Count, "d").End(xlUp).Row To 1 Step -1
        If Range("d" & j) = "T" Then Range("d" & j).Offset(, -1) = "ANN"
    Next
    For k = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & k).Offset(, 3) = "" Then Range("a" & k).Offset(, 3).Interior.ColorIndex = 15    ' = "ANN"
    Next
    Range("a1:e" & Range("a65000").End(xlUp).Row).Sort Key1:=Range("a1") _
                                                     , Order1:=xlAscending, Key2:=Range("e1"), Order2:=xlAscending, Header:=xlYes
    With Application: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂

xorre · 5 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

merci beaucoup, il me manque probablement une key 3 qui place la couleur gris en haut, mais je vais me débrouiller pour l'ajouter !

Quelques petits tests unitaires mais ca m'a l'air convenir à ce que j'attends de mon tableau

merci grandement ! ( même si je ne comprends pas tout le code, je vais essayer de décortiquer 🙂 )

PS :

petit soucis pour utiliser un nouveau tri par couleur je n'y parviens pas :/

DoubleZero · 6 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Bonjour, xorre, le Forum,

xorre à dit:
merci beaucoup, il me manque probablement une key 3 qui place la couleur gris en haut, mais je vais me débrouiller pour l'ajouter !

PS : petit soucis pour utiliser un nouveau tri par couleur je n'y parviens pas :/

Je ne vois pas 😕 comment trier d'abord sur la colonne a, puis sur la colonne d, tout en positionnant en haut les cellules grisées.

Le fichier déposé en #3 ne me permet pas de comprendre le véritable résultat souhaité... à moins que mes mirettes 🙁 ne soient perturbées !

A bientôt 🙂

xorre · 6 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Bonjour,

J'ai ajouté une image du tri que j'applique manuellement et que j'aimerais réalisé de façon automatisé en sus de ce que tu m'as déjà fait et qui correspond parfaitement à tous les traitements à faire (excepté pour ce trie par couleur)

J'ai tenté de bidouiller avec les SortOnValue.Color mais je ne parviens pas à appliquer.... :/

Effectivement, c'est mal expliqué de ma part.... le tri sur la date arrive en dernier car indépendamment de la date, je cherche à avoir un tri sur l'id pour les regrouper, sur la couleur grise pour avoir mon indicateur T en dernier s'il ye n a un sur mon ID en question puis par la date
Il est possible qu'une occurence existe à posteriori de celui ou j'aurai effectivement un indicateur T mais je le veux quand même en dernière position 🙂

Grand merci pour ton aide

DoubleZero · 6 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Re-bonjour,

Un autre essai... malgré de gros doutes 😕...

Code:

Option Explicit
Sub Valeurs_modifier_cellules_vides_colorer_V2()
    Dim i As Long, j As Long, k As Long
    With Application: .ScreenUpdating = False: .Calculation = xlManual: End With
    Columns(4).Replace What:="0", Replacement:=""
    For i = Cells(Rows.Count, "c").End(xlUp).Row To 1 Step -1
        If Range("c" & i) = "ANN" Then Range("c" & i).Offset(, 1) = "T"
    Next
    For j = Cells(Rows.Count, "d").End(xlUp).Row To 1 Step -1
        If Range("d" & j) = "T" Then Range("d" & j).Offset(, -1) = "ANN"
    Next
    For k = Cells(Rows.Count, "a").End(xlUp).Row To 1 Step -1
        If Range("a" & k).Offset(, 3) = "" Then
            With Range("a" & k).Offset(, 3): .Interior.ColorIndex = 15: .Value = "zzzz": End With
        End If
    Next
    Range("a1:e" & Range("a65000").End(xlUp).Row).Sort Key1:=Range("d1") _
                                                     , Order1:=xlDescending, Key2:=Range("a1"), Order2:=xlDescending, Header:=xlYes, Key3:=Range("e1"), Order3:=xlDescending, Header:=xlYes
    Columns(4).Replace What:="zzzz", Replacement:=""
    With Application: .Calculation = xlAutomatic: .ScreenUpdating = True: End With
End Sub

A bientôt 🙂

xorre · 6 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

tes doutes sont fondés 🙂

ca ne fonctionne pas ce trie me place d'abord toutes les colonnes vides puis tous les T

le trie déjà opéré sur le fichier source est celui attendu donc s'il y a modification, c'est que le tri appliqué n'est pas le bon :S

DoubleZero · 6 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

Re-bonjour,

xorre à dit:
tes doutes sont fondés 🙂...

Je donne ma langue et mon petit neurone au chat !

A bientôt 🙂

xorre · 13 Novembre 2014

Re : Grisé d'une couleur une colonne sous condition

et ton gros neurone * 🙂

l'image prise sur le trie réalisé manuellement dans le message du 06/11/2014 11h33 ne t'aide pas ?

C'est dommage que je ne puisse pas utiliser la macro à cause de ce tri manquant ... 🙁

Grisé d'une couleur une colonne sous condition

xorre

XLDnaute Junior

Pièces jointes

DoubleZero

XLDnaute Barbatruc

xorre

XLDnaute Junior

Pièces jointes

DoubleZero

XLDnaute Barbatruc

xorre

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

xorre

XLDnaute Junior

Pièces jointes

DoubleZero

XLDnaute Barbatruc

xorre

XLDnaute Junior

DoubleZero

XLDnaute Barbatruc

xorre

XLDnaute Junior

Discussions similaires

Grisé d'une couleur une colonne sous condition

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Pièces jointes

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency