Mod ligne et filtre

[DIGGERJACK]

Bonsoir le forum

En utilisant la formule suivante on colorie une ligne sur deux en Mise En Forme Conditionnelle

=mod(ligne();2) et en selectionnant une couleur

Le soucis est que lorsque la base de donnée est filtrée la formule ne permet pas de conserver la coloration sur deux lignes

Comment modifier la formule si cela est possible ou alors faut il passer par macro et dans ce cas quel est le code

Merci de votre aide

Bonne soirée

 

[abcd]

Re : Mod ligne et filtre

Bonsoir,

Formule de la MFC :
A1 : =MOD(SOUS.TOTAL(103;A$1:A1);2)
à copier vers le bas.

Cette formule ne tient pas compte du numéro des lignes, mais du nombre de lignes visibles au-dessus de la cellule concernée.

abcd

 

[Compte Supprimé 979]

Re : Mod ligne et filtre

Bonsoir à vous deux,

Sinon par code VBA, ça donne :

Sub UneLigneSurDeux()
Dim DerLig As Long, Lig As Long
Dim FlgVisible As Boolean, FlgCoul As Boolean
' Définir les FLAG à FAUX
FlgVisible = False: FlgCoul = False
' Trouver la dernière ligne remplie
DerLig = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
' Pour chaque ligne de la 2ème à la dernière
For Lig = 2 To DerLig
  ' Met le FLAG VISIBLE à VRAI si la ligne est cachée
  FlgVisible = Rows(Lig).EntireRow.Hidden
  ' Si le FLAG VISIBLE est à FAUX
  If FlgVisible = False Then
    ' Si le FLAG COULEUR est à FAUX
    If FlgCoul = False Then
      'Mets le FLAG COULEUR à VRAI
      FlgCoul = True
      Range("A" & Lig & ":E" & Lig).Interior.ColorIndex = 6
    Else
      ' Sinon passe le FLAG à FAUX
      FlgCoul = False
    End If
  End If
Next
End Sub

A+

 

[DIGGERJACK]

Re : Mod ligne et filtre

Bonsoir abcd

Je te joins un fichier parce que je n'arrives pas à appliquer ta MFC

Quelque chose doit m'échapper

Merci de ton aide

 

[Compte Supprimé 979]

Re : Mod ligne et filtre

Re,

Je ne comprends pas !?
Dans le fichier la MFC fonctionne très bien !?

Faut aller te coucher Diggerjack 😀

A+

 

[abcd]

Re : Mod ligne et filtre

Re,

Mais cela fonctionne très bien !

Tu ne peux filtrer que sur la colonne E, les autres n'ayant pas deux valeurs identiques.

Après filtre sur 1, tu verras que l'alternance des couleurs est respectée, des lignes paires jaunes, d'autres blanches.

abcd

Edition :
Merci Bruno d'avoir confirmé !

 

[DIGGERJACK]

Re : Mod ligne et filtre

Bonsoir le forum brunoM45 et abcd

En effet elle fonctionne sur excel 2007 mais pas avant ( 2003 ) ou alors il faut vraiment que j'ailles me coucher

M'autorises tu à aller manger juste avant parce que la nuit risque d'être longue sinon

Ta macro fonctionne (sauf erreur de ma part et là c'est au lit direct ) sur le premier filtre mais pas après ..............

Bonne soirée

Je vais aller manger et me coucher avant de me faire lyncher !!!!!!

 

[jeanpierre]

Re : Mod ligne et filtre

Bonsoir DIGGERJACK, abcd, Bruno,

Le code 103 n'existe que depuis Xp ou 2003.

Sous 2000 cela ne fonctionne pas.

Ne reste que la macro.

Bonne soirée.

Jean-Pierre

 

[abcd]

Re : Mod ligne et filtre

Re,

J'y pensais aussi à l'instant, une différence de version, mais comme tu ne mentionnes pas dans ton profil sous quelle version tu travailles, difficile, ... difficile.

Sur XL2003 cela fonctionne, mais il me semble que l'argument 103 n'existe qu'à partir de cette version.
Essaie donc en remplaçant le 103 par 3.

abcd

 

[DIGGERJACK]

Re : Mod ligne et filtre

Bonjour à tous

Un bon repas une bonne nuit ...........

Abcd j'ai rajouté dans mon, profil la version Excel utilisée.
Allant toujours sur le forum ne traitant pas d'excel 2007 je ne pensais pas l'information très utile c'est chose réparée.D'ailleurs a ce sujet toi non plus tu n'as pas renseigné la version que tu utilises

En tout cas merci pour ta réponse et en modifiant le 103 par 3 cela fonctionne à merveille

Bonne journée

 

[Tibo]

Re : Mod ligne et filtre

Bonjour,

Pas sûr que ce soit impossible avec Excel 200.

Sous réserve d'avoir compris, voir ce fil :

https://www.excel-downloads.com/threads/probleme-dune-mise-en-forme.78513/

Je te laisse adapter et tester.

@+

Edit : j'avais pas lu le fil jusqu'au bout ... 😱

 

[DIGGERJACK]

Re : Mod ligne et filtre

Re le forum Tibo

Pour être complet voici la formule que j'utilises ( si ça peut aider )

=SI($A3<>"";MOD(SOUS.TOTAL(3;A$1:A3);2);"") et cela fonctionne à merveille


Bonne journée