XL 2019 excel vba coloriser une ligne sur deux sur lignes filtrées

[pascal21]

bonsoir à tous
coloriser une ligne sur deux en format conditionnel, je sais faire par contre ca ne fonctionne pas dés que l'on filtre des lignes
on se retrouve avec des lignes qui ont la meme couleur les une apres les autres
je pensais trouver une solution en vba, mais je n'ai rien trouvé qui fonctionne
c'est sur une zone c5:l350
merci de votre aide
sujet résolu

 

[Cousinhub]

Bonjour,
Mettre sous forme de Tableau Structuré?
Sélectionne une cellule du Tableau, Ctrl + L (confirmer qu'il y a une ligne d'en-tête)
Ainsi, plus de pb...

 

[pascal21]

=SI($C6="";"";NON(MOD(SOUS.TOTAL(103;$C6:$C52);2)))

j'ai trouvé la solution en format conditionnel en adaptant une vieille demande

 

[job75]

Bonsoir pascal21, Cousinhub)

c'est sur une zone c5:l350

Attention l'utilisation de SOUS.TOTAL sur la colonne C nécessite qu'il n'y ait pas de cellules vides dans la plage C5:C350.

A+

 

[Cousinhub]

Bonsoir pascal21, Cousinhub)

Attention l'utilisation de SOUS.TOTAL sur la colonne C nécessite qu'il n'y ait pas de cellules vides dans la plage C5:C350.

A+

Hi,
Tout à fait, cependant il préfère faire "compliqué" (inscrit depuis 2005, peut-être réfractaire aux nouvelles fonctionnalités?)
Bonne soirée

 

[pascal21]

y a des nouvelles fonctionnalités??

 

[Cousinhub]

y a des nouvelles fonctionnalités??

Peut-être à ton insu????? lol
Tu connais les TS (Tableaux Structurés)?

 

[Nain porte quoi]

y a des nouvelles fonctionnalités??

Hello,

a quoi servirait de changer de version si c'était toujours les mêmes fonctionnalités ? 🤯

 

[pascal21]

non les tableaux structurés je ne connais pas
je vais regarder si ça existe pour excel 2019

 

[job75]

je pensais trouver une solution en vba, mais je n'ai rien trouvé qui fonctionne

Pour colorer une ligne visible sur deux voyez le fichier joint et cette fonction VBA :

Function Une_sur_deux(deb As Range, c As Range)
Application.Volatile
Dim coul As Boolean
coul = True
For Each c In deb.Parent.Range(deb, c)
    If Not c.Rows.Hidden Then coul = Not coul
Next c
Une_sur_deux = coul
End Function

Filtrez le tableau C4:I350.

 

[mapomme]

Bonsoir @pascal21🙂, à tous😉,

Une autre méthode sans VBA. Tout est expliqué dans le classeur joint.

 

[TooFatBoy]

Bonjour,

non les tableaux structurés je ne connais pas
je vais regarder si ça existe pour excel 2019

Oui, ça existe même pour Excel depuis 2010, si je ne me trompe.

Le Tableau Structuré c'est ce qu'il y a de mieux pour toi si tu peux en utiliser, ça gère les rayures automatiquement. Ainsi, pas besoin de MFC ni de macro VBA. 😉