Application d'un style de tableau personnalisé en VBA

Résolu
jesaispastout88 Messages postés 36 Statut Membre -  
jesaispastout88 Messages postés 36 Statut Membre -
Bonjour,

J'ai créé un style de tableau que j'ai appelé "paramètres".
Je souhaite appliquer cette mise en forme à ma zone qui s'appelle JEUNES.
Quand j'exécute mon code, il n'y a pas de message d'erreur mais la mise en forme ne s'applique pas.
Sauriez-vous me dire pourquoi ?
D'avance, merci. 

    DerLigne = Range("B" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.Names.Add Name:="JEUNES", RefersToR1C1:= _
        "=Paramètres!R4C2:R" & DerLigne & "C4"
        ActiveSheet.ListObjects("JEUNES").TableStyle = "paramètres"


Configuration: Windows / Firefox 77.0

3 réponses

  1.
    PouleFauna Messages postés 138 Statut Membre
     
    Cela est sans doute du à un code fonctionnel mais qui ai mal appliqué.

    En gros : Ton ordi accepte le code mais ne l'applique pas.
    0
    1. jesaispastout88 Messages postés 36 Statut Membre 1
       
      Bonjour PoulFauna,

      Merci pour ton intervention.
      Pour toi, mon code est bon mais mon ordinateur ne l'applique pas. A quoi serait-ce du et comment faire afin qu'il l'applique ?
      0
  2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, la zone nommée JEUNES est-elle bien créée, au bon endroit?
    0
    1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588
       
      peux-tu partager ton fichier?
      0
      1. jesaispastout88 Messages postés 36 Statut Membre 1 > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         
        Bonjour yg_be,

        Merci pour ta proposition.
        A force d'avoir cherché l'origine du problème, j'ai modifié mon script qui affiche une erreur à la dernière ligne 
        ActiveSheet.ListObjects("JEUNES").TableStyle = "paramètres"


        Le code entier est : 

        Sub essai()
        '
        ' essai Macro

            Range("B4").Select
            Range(Selection, Selection.End(xlToRight)).Select
            Range(Selection, Selection.End(xlDown)).Select
            With Selection.Interior
                .Pattern = xlNone
                .TintAndShade = 0
                .PatternTintAndShade = 0
            End With

            DerLigne = Range("B" & Rows.Count).End(xlUp).Row
            ActiveWorkbook.Names.Add Name:="JEUNES", RefersToR1C1:= _
                "=Paramètres!R4C2:R" & DerLigne & "C4"
            ActiveSheet.ListObjects("JEUNES").TableStyle = "paramètres"
                
        End Sub


        Et le fichier est accessible ici : https://www.partage-temporaire.fr/2020/06/08/essai-1/
        Merci d'avance.
        0
      2. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > jesaispastout88 Messages postés 36 Statut Membre
         
        merci de spécifier "basic" quand tu partages du VBA.
        je pense que ceci fonctionnera: 
        Sheets("Paramètres").ListObjects("Tableau3").TableStyle = "paramètres"

        il me semble que tu mélanges le concept de zone nommée et le concept de tableau.
        0
  3. jesaispastout88 Messages postés 36 Statut Membre 1
     
    Tu as raison sur tous les points :
    Je confonds bien (il faut que je regarde ça).
    Ton script corrigé me convient tout-à-fait.

    Merci beaucoup.
    0