Discussion :

[SixteenVBA]

Bonjour tout le monde,

J'ai cherché sur internet mais je n'arrive à avoir ce que je veux ni à adapter les codes... J'ai un tableau allant de A à S, le nombre de lignes varies. En colonne E, j'ai mes numéros de commande qui se suivent. Je souhaite qu'il y ai une alternance entre gris et blanc quand le numéro de commande change. Voici un exemple :



Pouvez-vous m'aider?

Par VBA ou MEFC !

Merciii !

[Arkham46]

Bonjour,

Avec MFC :
- FREQUENCE pour compter le nombre de valeurs distinctes précédentes
- MOD pour alterner 0/1

Une expression qui ressemble à ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=0=MOD(SOMME(SI(FREQUENCE(INDIRECT("A2:A" & EQUIV($A2;$A:$A;0));INDIRECT("A2:A" & EQUIV($A2;$A:$A;0)))>0;1));2)

[SixteenVBA]

Bonjour Arkham,

merci pour ta réponse.

J'ai testé le code en le mettant dans la MFC sur "Utiliser une formule pour déterminer pour quelles cellules le format sera appliqué". J'ai mis ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=0=MOD(SOMME(SI(FREQUENCE(INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));INDIRECT("E2:E" & EQUIV($E2;$E:$E;0)))>0;1));2)

Résultat : toute la page se met de la couleur choisi dans le format

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=MOD(SOMME(SI(FREQUENCE(INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));INDIRECT("E2:E" & EQUIV($E2;$E:$E;0)))>0;1));2)

Résultat : aucun résultat, pas de changement

Peux-tu m'aider? Merci

[vinc_bilb]

Bonjour,

Et bien, une mise en forme condit avec Equation devrait le faire facilement
Du style (Excel anglais)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=AND(C2<>C1,C2<>"")

[Arkham46]

@vinc_bilb : ton code indique les ruptures, mais ne permet pas de distinguer les blocs identiques pour appliquer une alternance de couleur

@SixteenVBA : commence par mettre la formule dans une cellule pour visualiser le résultat du calcul

[SixteenVBA]

J'ai mis ma formule dans une cellule et le résultat est "vrai"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=0=MOD(SOMME(SI(FREQUENCE(INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));INDIRECT("E2:E" & EQUIV($E2;$E:$E;0)))>0;1));2)

Comment je dois l'interpréter? Merci

[vinc_bilb]

Rebonjour

En colonne E, j'ai mes numéros de commande qui se suivent.

=> si c'est effectivement trié, une simple MFC pour indiquer les changements de commande (voir exemple donné) suffit et c'est beaucoup plus simple

[SixteenVBA]

@vinc_bilb , quel MFC appliqué? Car comme je l'ai dit plus haut, la propositon @Arkham46 ne fonctionne pas où alors je ne sais pas l'adapter.

Merci

[Arkham46]

@SixteenVBA : il faut regarder le résultat sur l'ensemble des lignes. Ma formule fonctionne chez moi mais il faut bien la mettre en place pour que l'indice de ligne soit incrémenté. Si tu mets la formule sur une cellule en ligne 2 et que tu tires la formule sur l'ensemble des ligne, est-ce que tu vois l'alternance de vrai/faux ?


@vinc_bilb : c'est quoi "une simple MFC pour indiquer les changements de commande" ?
Penses-tu a un séparateur avec une bordure ?
Cela pourrait être une alternative.

[patricktoulon]

sinon solution pure VBA
soit dans le module de la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim i&
    With ActiveSheet
    If Target.Column = 1 Then    'colonne a ADAPTER!!!!!!!!
        .Cells(1, 1).Interior.Color = RGB(230, 230, 230)    ' couleur grise a adapter
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1).Offset(-1).Value = .Cells(i, 1).Value Then
                .Cells(i, 1).Interior.Color = .Cells(i - 1, 1).Interior.Color
            Else
                .Cells(i, 1).Interior.Color = IIf(.Cells(i - 1, 1).Interior.Color = vbWhite, RGB(230, 230, 230), vbWhite)
            End If
        Next
    End If
End With
End Sub

soit dans le module thisworkbook

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim i&
    With Sheets(1) ' sheets a ADAPTER!!!!!!!!
    If Target.Column = 1 Then    'colonne a ADAPTER!!!!!!!!
        .Cells(1, 1).Interior.Color = RGB(230, 230, 230)    ' couleur grise a adapter
        For i = 2 To .Cells(Rows.Count, 1).End(xlUp).Row
            If .Cells(i, 1).Offset(-1).Value = .Cells(i, 1).Value Then
                .Cells(i, 1).Interior.Color = .Cells(i - 1, 1).Interior.Color
            Else
                .Cells(i, 1).Interior.Color = IIf(.Cells(i - 1, 1).Interior.Color = vbWhite, RGB(230, 230, 230), vbWhite)
            End If
        Next
    End If
End With
End Sub

meme si tu reviens modifier une precedente cellule les couleurs se remettent en place

[SixteenVBA]

@Arkham46 non le resultat est vrai partout, et l'incrémentation est bien présente comme tu peux le voir sur la capture ci-dessous :



Ou alors j'ai loupé quelque chose?

@patricktoulon je teste ça tout de suite !

[SixteenVBA]

@Arkham46 ta proposition pour la MFC donne ceci :



Donc on constate que ca marche presque ! J'ai mis en jaune les problèmes car plus simple que de l'expliquer par des phrases.

[Arkham46]

Ma première formule fonctionne uniquement pour des valeurs numériques.
Ta colonne était de type texte sur la première capture, je n'avais pas vu.
Pour du texte, c'est un peu plus complexe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=0=MOD(SOMME(SI(FREQUENCE(EQUIV(INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));0);EQUIV(INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));INDIRECT("E2:E" & EQUIV($E2;$E:$E;0));0))>0;1));2)

Avec cette formule tu peux gérer la mise en couleur alternée.
Sur ta dernière capture écran, tu as du décaler d'une ligne. Il ne faut pas appliquer la mise en forme depuis la première ligne mais depuis la deuxième.

Sinon si une solution de mise en évidence avec un séparateur te convient, la formule de détection de rupture de vinc_bilb suffit.

[patricktoulon]

re
normal que ca ne fonctionne pas il faut adapter la ligne (5) aussi cells(1,5) a la place cells(1,1)c'est la cellule pilote pour toutes les autres

[Cachlab]

Bonjour,

Sinon en VBA, ça peut donner quelquechose comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Couleur_Alternee()
Cellule_debut = "E2"
Colonne = Range(Cellule_debut).Column
Ligne_debut = Range(Cellule_debut).Row
Ligne_fin = Range("E65000").End(xlUp).Row - 1
For i = Ligne_debut To Ligne_fin
    couleur_fond = Cells(i, Colonne).Interior.Color
    If couleur_fond = RGB(255, 255, 255) Then couleur_alterne = RGB(217, 217, 217) Else couleur_alterne = RGB(255, 255, 255)
    If Cells(i + 1, Colonne).Value = Cells(i, Colonne).Value Then
    Cells(i + 1, Colonne).Interior.Color = couleur_fond
    Else
    Cells(i + 1, Colonne).Interior.Color = couleur_alterne
    End If
Next
End Sub

++

Edit : pas assez rapide, lol ... et le code de Patrick et bien plus "propre" !

[SixteenVBA]

@Cachlab super ton code ! J'ai pu l'insérer directement dans mon VBA déjà existant !!

Je vais abuser en te demandant comment le modifier pour que ca mette la ligne complete de couleur et non pas que la cellule?

Merci aux autres également, vos codes marchent, mais celui-ci s'adapte plus facilement à mon code existant !

[patricktoulon]

Edit : pas assez rapide, lol ... et le code de Patrick et bien plus "propre" !

non pas plus propre je m'embarasse pas avec des variables puisqu'elle seraient utilisées que la
c'est juste un raisonnement

sinon ton code et le mien c'est exactement la meme chose :ton code peut avoir des avantages dans un autre contexte

Je vais abuser en te demandant comment le modifier pour que ca mette la ligne complete de couleur et non pas que la cellule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

cells(i+1,colonne).entirerow.interior.color=......