XL 2010 MEFC selon plusieurs lignes

[carlos]

Bonjour,
J'ai en colonne A ces valeurs triées, j'aimerais mettre une MEFC en alternance pour marquer les changements de valeurs.
A
A
A
J
J
B
Psq
Psq
Psq
Psq
???
???
Résultat attendu par exemple si on joue sur la couleur de la police:
A
A
A
J
J
B
Psq
Psq
Psq
Psq
???
???
Remarque : il ne peut y avoir de formules intégrées dans la feuille car je la .clear.
Merci
Carlos

 

[natorp]

Bjr Carlos

Comme ça ? voir le fichier joint

Cordialement, Gérard

 

[carlos]

Bjr natorp,
pas tout à fait. Je ne veux pas colorier la premiere lettre des qu'il y a un changement mais alterner la couleur des groupes de mots, comme l'exemple mis sur le premier post.

 

[Dranreb]

Bonjour.
Avec cette fonction perso, peut être :

Function ChangeQuandChange(Rng As Range) As Boolean
Dim T(), L&
If Rng.Rows.Count < 2 Then Exit Function
T = Rng.Value
ChangeQuandChange = False
For L = UBound(T, 1) To 2 Step -1
   ChangeQuandChange = ChangeQuandChange Xor T(L, 1) <> T(L - 1, 1)
   Next L
End Function

 

[carlos]

Bonjour Dranreb,
merci pour cette proposition mais comment je peux l'intégrer dans la MEFC d'excel.
J'ai tenté de copier la fonction dans MEFC mais j'ai pas eu de bons résultats.

 

[carlos]

Avec le fichier excel...

 

[Dranreb]

La formule n'est pas tout à fait bonne, c'est :

=ChangeQuandChange(A$1:A1)

 

[carlos]

J'ai modifier mon fichier mais ca ne marche pas. Bizarre.

 

[Dranreb]

Non vous n'avez pas compris. Là c'est =ChangeQuandChange(A$2:A2)
C'est à dire depuis la référence absolue à la première ligne ou la MeFC s'applique jusqu'à la référence relative à la ligne en cours, qui est toujours la même que la 1ère dans la formule à la définition de la MeFC, mais ça ne représente une seule cellule que pour la 1ère ligne.

 

[carlos]

Bonsoir,
j'ai du mal m'exprimer!
Sur le fichier joint, il y a ce que j'attends colorié mais avec formule dans cellule et ça qui fonctionne.
Je voudrais me passer des formules dans les cellules.
Merci
Carlos

 

[Dranreb]

La formule de votre MeFC n'est toujours pas bonne: =ChangeQuandChange(A1:A$2) au lieu de =ChangeQuandChange(A$2:A2)
La plage où elle s'applique est $A$2:$A$65536 et il faut qu'il prenne pour :
A2 : =ChangeQuandChange(A$2:A2)
A3 : =ChangeQuandChange(A$2:A3)
A4 : =ChangeQuandChange(A$2:A4)
etc.
Donc, pour la A2, et du coup pour l'intégralité de la MeFC, c'est cette seule et même cellule A2 deux fois mais avec référence relative à la ligne pour la répétition de droite seulement.

 

[Dranreb]

Pour que la fonction soit vraie pour la 1ère ligne corrigez la comme ça :

Function ChangeQuandChange(Rng As Range) As Boolean
Dim T(), L&
ChangeQuandChange = True
If Rng.Rows.Count < 2 Then Exit Function
T = Rng.Value
For L = UBound(T, 1) To 2 Step -1
   ChangeQuandChange = ChangeQuandChange Xor T(L, 1) <> T(L - 1, 1)
   Next L
End Function

 

[mapomme]

Bonsoir à tous,

Un essai avec une MFC à formule...

edit: bonsoir @Dranreb

 

[carlos]

Bonsoir Dranreb,
super ca marche impeccable.
Je n'ai pas compris toute ta fonction mais je vais tenter de percer le secret.
Bonne soirée
Karl

 

[carlos]

Re,
Je n'avais pas vu ta proposition avec la formule.
C'est encore plus simple.
Du haut niveau.
Merci beaucoup