Sujet Précédent Sujet Suivant

Application d'un style de tableau personnalisé en VBA

Résolu/Fermé
jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021 - Modifié le 8 juin 2020 à 08:59
jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021 - 8 juin 2020 à 13:32
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
A voir également:

3 réponses

Réponse 1 / 3
PouleFauna Messages postés 107 Date d'inscription lundi 18 mai 2020 Statut Membre Dernière intervention 29 mai 2022
8 juin 2020 à 08:49
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
jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021 1
8 juin 2020 à 08:59
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
Réponse 2 / 3
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
8 juin 2020 à 11:07
bonjour, la zone nommée JEUNES est-elle bien créée, au bon endroit?
0
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
8 juin 2020 à 11:14
peux-tu partager ton fichier?
0
jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021 1 > yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024
8 juin 2020 à 12:25
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
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471 > jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021
8 juin 2020 à 12:54
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
Réponse 3 / 3
jesaispastout88 Messages postés 32 Date d'inscription lundi 1 octobre 2018 Statut Membre Dernière intervention 14 mars 2021 1
8 juin 2020 à 13:32
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

Discussions similaires

"Aucune application permettant d'ouvrir cette URL"
sidojaice -
JIP -

24 réponses
Bibliothèque
cosjac85 -
renard bleu -

3 réponses
generateur de combinaison du loto 5/90
Riccilo -
ccm81 -

3 réponses
Nom de champs du tableau croisé dynamique non valide
Kazooie123 -
SajDri -

6 réponses
Trouver le nom d'un tableau avec sa photo.
lillo56 -
zetnot -

11 réponses