Discussion :

[dede_bo]

Bonjour à tous

J'ai un problème très étrange en Excel 2013.

J'ai un document Excel qui est généré par une application (faite sur mesure) . Celui-ci contient une liste de donnée.
Une macro, que l'utilisateur doit exécuter manuellement, ajoute la mise en page (simplement mettre les bordures autour des cellules).
Rien de compliqué.

voici le code qui ajoute les bordures:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
 
Sub rempli(fg As Boolean, rg As Range, Optional fst As Boolean = True, Optional gras As Boolean = False)
    ' add border around range rg
    ' if fg : true  => top & bottom will be included
    '    fg : false => top & bottom stay blank
    '    rg : range where the border will be draw
    '
    ' option:
    '   fst : true  => draw the top line (default)
    '   fst : false => top line stay blank
    '  gras : true  => border line is medium
    '  gras : false => border line is thin (default)
    ' ----------------------------------------------
 
    rg.Font.ColorIndex = 0
 
    If Not gras Then
 
        If fg Then
            st = xlContinuous
        Else
            st = xlNone
        End If
        rg.Borders(xlInsideVertical).LineStyle = xlContinuous
 
        rg.Borders(xlEdgeLeft).LineStyle = xlContinuous
        rg.Borders(xlEdgeRight).LineStyle = xlContinuous
 
        If fst Then
            rg.Borders(xlEdgeTop).LineStyle = xlContinuous
        Else
            rg.Borders(xlEdgeTop).LineStyle = xlNone
        End If
        rg.Borders(xlEdgeBottom).LineStyle = st
    Else
        rg.Borders(xlEdgeLeft).Weight = xlMedium
        rg.Borders(xlEdgeRight).Weight = xlMedium
        rg.Borders(xlEdgeTop).Weight = xlMedium
        rg.Borders(xlEdgeBottom).Weight = xlMedium
    End If
End Sub

Sous Excel 2010 et 2016, tout fonctionne à merveille.

Sous Excel 2013, je reçois un message d'erreur : "Unable to set the lineStyle property of the border class"

Ce qui est encore plus étrange, sous Excel 2013 uniquement, en dehors du tableau avec le résultat, cela fonctionne !
Si je sélectionne une cellule dans le tableau du résultat, je clique droit et choisi "Format cells", le pop-up n'apparait pas.
Si je choisi une cellule en dehors de ce résultat, le popup apparait.

J'ai fait un "repair" de MS Office mais sans succès

Je ne sais plus où chercher!

Dans le bureau, il y a plusieurs personnes ayant la même version d'Excel. Le problème est également identique chez eux.

Ce que j'ai déjà fait également c'est d'utiliser cette méthode de travail:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
With rg
    .Borders(xlEdgeTop).LineStyle = xlContinuous
End Width

Mais sans succès.

Voilà, Cela dépasse mes compétences d' Excel.
Toutes idées sont les bienvenues !
Merci d'avance
Bien à vous
Bonne journée
André

[marot_r]

Bonjour.

Qu'est le "tableau de résultats" ? Un tableau croisé dynamique ? Une table de données ?

A+

[dede_bo]

Bonjour,
Avant tout, merci de réagir promptement.

Non, vraiment rien de compliqué. C'est un simple tableau contenant 5 colonnes.
Il y a toujours 380 lignes ... toujours ! pas une de plus, pas une de moins.
Par contre le nombre de colonne est fonction des critères mais ne dépasse jamais 30 colonnes.

C'est une liste de produit avec des valeurs (bidons dans cette copie d'écran) qui sont regroupé sur certain critères.

Je dois simplement ajouter une bordure autour des valeurs ayant ces critères.

Voici un exemple:


Voilà,
Encore merci
André

[marot_r]

Bonjour.

Est-ce que la feuille ne serait pas protégée contre les modifications ?

Idée : au lieu d'utiliser du code VBA, tu peux peut-être regarder du côté de la mise en forme conditionnelle.

A+

[dede_bo]

Bonjour,

Pour la protection, non. Si cela serait le cas, j'aurais le problème dans toute les version.
Pour ce qui concerne la mise en forme conditionnel, l'idée n'est pas mauvaise.
Je vais y regarder.

Vu le nombre de cas particulier, y a t'il une limitation au nombre de condition différentes (± 50)

Merci pour votre support.
Je vais essayer.
Je ne sais pas fournir une réponse aujourd'hui.

Bien à vous
André

[marot_r]

Bonjour.

Les version d'Excel après 2007 n'ont il me semble pas de limite sur le nombre de mises en forme conditionnelles mais 50 règles ça fait un sacré paquet et l'interface ne te présente que 5 règles à la fois.
Ce n'est pas super confortable quand tu en as beaucoup, le VBA est sans doute plus facile à vivre.

Ce qui m'étonne le plus dans ton cas c'est que tu ne puisses pas le faire à la main non plus c'est pour cela que je pensais à la protection.

À tout hasard, as-tu essayé de sélectionner les cellules du tableau, les copier et les coller dans une autre feuille ? Dans un autre classeur ? Est-ce que tu peux les formater dans le nouvel environnement.

A+

[Invité]

Bonjour,

Sans aucune garantie :

Le tableau ci-dessous indique les paramètres pour XlLineStyle (Office 365). Votre paramètre XlNone pour aucun trait n'existe pas dans la liste.
Sinon, essayez de remplacer les xl... par leur valeur numérique.

Regardez également si le problème ne vient pas de cette ligne en la neutralisant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
' rg.Borders(xlInsideVertical).LineStyle = xlContinuous

Pièce jointe 502080