XL 2010 MEFC selon plusieurs lignes

natorp

XLDnaute Accro

• 28 Novembre 2018

• #2

Bjr Carlos

Comme ça ? voir le fichier joint

Cordialement, Gérard

 

Pièces jointes

• Classeur2.xls

  16.5 KB · Affichages: 29

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #3

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Novembre 2018

• #4

Bonjour.
Avec cette fonction perso, peut être :

VB:

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #5

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.

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #6

Avec le fichier excel...

 

Pièces jointes

• Classeur2.xls

  34.5 KB · Affichages: 19

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Novembre 2018

• #7

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

Code:

=ChangeQuandChange(A$1:A1)

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #8

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

 

Pièces jointes

• Classeur2.xls

  34.5 KB · Affichages: 18

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Novembre 2018

• #9

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.

 

Dernière édition: 28 Novembre 2018

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #10

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

 

Pièces jointes

• Classeur2.xls

  36 KB · Affichages: 19

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Novembre 2018

• #11

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.

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 28 Novembre 2018

• #12

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

VB:

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

 

Vote positif 0 Vote négatif

mapomme

XLDnaute Barbatruc

Supporter XLD

• 28 Novembre 2018

• #13

Bonsoir à tous,

Un essai avec une MFC à formule...

edit: bonsoir @Dranreb

 

Pièces jointes

• carlos- MFC- v1.xlsx

  11.2 KB · Affichages: 25

Dernière édition: 28 Novembre 2018

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #14

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

 

Vote positif 0 Vote négatif

C

carlos

XLDnaute Impliqué

Supporter XLD

• 28 Novembre 2018

• #15

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

 

Vote positif 0 Vote négatif