XL 2019 colorier deux lignes sur deux

LE BLEVEC · Mardi à 12:20

bonjour
j'utilise la formule mod pour colorier 1 ligne sur 2, mais je voudrais avec cette formule, colorier :exemple ligne 1 et 2 en orange, ligne 3 et 4 rien ou une autre couleur et ainsi de suite
je vous remercie par avance de votre réponse
merci
camille

sylvanu · Mercredi à 17:11

Re,
😅 Effectivement ça bogue. Mais à cause de votre macro.
Le fait de passer en TDS, la macro doit être adaptée. Par ex pour Affichage :

VB:

Sub Affichage()
    Range("Tableau1[[#Headers],[N°]]").Select
    ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("Tableau1[Gagné]"), SortOn:=xlSortOnValues, Order:=xlDescending _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort
        .Header = xlYes
        .Apply
    End With
End Sub

Rheeem · Mercredi à 17:14

Les tableaux supportent la coloration par ligne ,par defaut c'est une ligne sur deux tu peux la modifier pour colorer deux lignes par la même couleur

LE BLEVEC · Mercredi à 17:45

sylvanu à dit:

Re,
😅 Effectivement ça bogue. Mais à cause de votre macro.
Le fait de passer en TDS, la macro doit être adaptée. Par ex pour Affichage :

VB:

Sub Affichage()
    Range("Tableau1[[#Headers],[N°]]").Select
    ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort.SortFields.Add _
        Key:=Range("Tableau1[Gagné]"), SortOn:=xlSortOnValues, Order:=xlDescending _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Jeu").ListObjects("Tableau1").Sort
        .Header = xlYes
        .Apply
    End With
End Sub

MERCI
si tu peux renvoyer le fichier modifié je te remercie
camile

sylvanu · Mercredi à 18:04

Re,
En partant de la PJ de TooFatBoy du post #7, avec la macro du post #16.
Feuille "Jeu" protégée par mot de passe "1234"
Je n'ai modifié que la macro du bouton "Pour affichage tableau"

TooFatBoy · Mercredi à 18:07

LE BLEVEC à dit:
essai le fichier en feuille protegé

Si ta macro essaye de modifier un TS sur une feuille protégée, il y a de grandes chances que ça plante.

Fais un essai après avoir déprotégé la feuille.
Si ça ne plante pas, alors ça vient bien du fait que ton tableau est un TS.

TooFatBoy · Mercredi à 18:09

TooFatBoy à dit:
As-tu essayé la version sous forme de TS ?

sylvanu · Mercredi à 18:15

@TooFatBoy,
Dans ma PJ la feuille est protégée et la macro fonctionne.

TooFatBoy · Mercredi à 18:18

sylvanu à dit:
@TooFatBoy,
Dans ma PJ la feuille est protégée et la macro fonctionne.

Je vais regarder ça quand j'aurais allumé mon PC. Merci.

Mais sais-tu déjà me dire s'il y a un rapport entre la macro qui plante et les rayures à doubles lignes demandées ?

Et j'aimerais vraiment savoir s'il a essayé les rayures avec la version TS de #7.

TooFatBoy · Mercredi à 18:26

sylvanu à dit:
Le fait de passer en TDS, la macro doit être adaptée.

Oula !!! ça y est, grâce à ta phrase j'ai compris quoi leblevec voulait en fait dire.

Donc au final ce ne sont pas du tout les macros qui ne s'exécutent plus, mais juste une macro (travaillant sur le TS d'une feuille protégée) qui plante.
Je comprends mieux.

Un immense MERCI à toi sylvanu, sinon ça risquait de durer longtemps cette histoire...

TooFatBoy · Mercredi à 18:49

sylvanu à dit:
😅 Effectivement ça bogue. Mais à cause de votre macro.

Alors là, ça me troue le fondement !

J'étais persuadé avoir essayé "autrefois" de faire un tri sur un TS d'une feuille protégée et que ça n'avait pas fonctionné, sauf à la déprotéger ou à la protéger pour l'utilisateur seulement.
Pourtant là, ni l'un ni l'autre, et ça fonctionne impec ! 👍

Donc ceci fonctionnerait aussi :

VB:

Sub Affichage()
    With Range("Tableau1").ListObject.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range("Tableau1[Gagné]"), _
                        SortOn:=xlSortOnValues, _
                        Order:=xlDescending, _
                        DataOption:=xlSortNormal
        .Header = xlYes
        .Apply
    End With
End Sub

LE BLEVEC · Jeudi à 17:59

TooFatBoy à dit:
Si ta macro essaye de modifier un TS sur une feuille protégée, il y a de grandes chances que ça plante.

Fais un essai après avoir déprotégé la feuille.
Si ça ne plante pas, alors ça vient bien du fait que ton tableau est un TS.

c'est grave tu as as fais déjà beaucoup pour moi
je remercie
camille

LE BLEVEC · Jeudi à 18:01

TooFatBoy à dit:
Si ta macro essaye de modifier un TS sur une feuille protégée, il y a de grandes chances que ça plante.

Fais un essai après avoir déprotégé la feuille.
Si ça ne plante pas, alors ça vient bien du fait que ton tableau est un TS.

c'est pas grave tu as deja fais beaucoup pour moi
je te remercie
camille

XL 2019 colorier deux lignes sur deux

LE BLEVEC

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Rheeem

XLDnaute Junior

LE BLEVEC

XLDnaute Junior

sylvanu

XLDnaute Barbatruc

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

LE BLEVEC

XLDnaute Junior

LE BLEVEC

XLDnaute Junior

Discussions similaires

XL 2019 colorier deux lignes sur deux

XLDnaute Junior

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

XLDnaute Barbatruc

Pièces jointes

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Junior

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency