Mod ligne et filtre

A

abcd

XLDnaute Barbatruc

• 12 Novembre 2008

• #2

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 12 Novembre 2008

• #3

Re : Mod ligne et filtre

Bonsoir à vous deux,

Sinon par code VBA, ça donne :

Code:

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+

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 12 Novembre 2008

• #4

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

 

Pièces jointes

• MOD ET LIGNE.xls

  16 KB · Affichages: 106

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 12 Novembre 2008

• #5

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+

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 12 Novembre 2008

• #6

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é !

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 12 Novembre 2008

• #7

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 !!!!!!

 

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 12 Novembre 2008

• #8

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

 

Vote positif 0 Vote négatif

A

abcd

XLDnaute Barbatruc

• 12 Novembre 2008

• #9

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

 

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 13 Novembre 2008

• #10

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

 

Vote positif 0 Vote négatif

Tibo

XLDnaute Barbatruc

• 13 Novembre 2008

• #11

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 ... 😱

 

Dernière édition: 13 Novembre 2008

Vote positif 0 Vote négatif

DIGGERJACK

XLDnaute Occasionnel

• 13 Novembre 2008

• #12

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

 

Vote positif 0 Vote négatif