Police d'une ligne de texte dans une cellule de table catia

Bonjour,

Je suis actuellement sur des plans dans lesquels j'ai des nomenclatures rempli via excel et macro.

dans l'entete de ma nomenclature j'ai 2 ligne ds la cellule et je souhaite avoir une ligne avec une hauteur de texte
à 3.5 et la seconde a 2. comment je peux faire via vb
voici un extrait du code pour ecrire ds l'entete.

Code:

''''''''''''''ecrit la premiere ligne avec la taille et police '''''''''

        For b_ExpCat = d_ExpCat To d_ExpCat - 5 Step -1
        
            If b_ExpCat = d_ExpCat Then Table_Entete(b_ExpCat) = "Masse (Kg)" & Chr(10) & "Weight (Kg)"
            If b_ExpCat = d_ExpCat - 1 Then Table_Entete(b_ExpCat) = "Matière, norme, dessin..." & Chr(10) & "Material, standard, drawing... "
            If b_ExpCat = d_ExpCat - 2 Then Table_Entete(b_ExpCat) = "Désignation des pièces" & Chr(10) & "Item description"
            If b_ExpCat = d_ExpCat - 3 Then Table_Entete(b_ExpCat) = "Qté" & Chr(10) & "Qty"
            If b_ExpCat = d_ExpCat - 4 Then Table_Entete(b_ExpCat) = "Repère" & Chr(10) & "Item"
            
        Next b_ExpCat
                        
        e_ExpCat = 1
        
        l_Expcat = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
''''''''''''''''''creation de la table
        Set nomenclature = drawingTables1.Add(0, 0, l_Expcat + 1, d_ExpCat, 5, 20)
        nomenclature.ComputeMode = CatTableComputeOFF  ''''''''''''''''arrete le refresh
            
        For t = 1 To l_Expcat + 1

            For c_ExpCat = 1 To d_ExpCat

                    With nomenclature.GetCellObject(t, c_ExpCat)
                        .SetFontSize 0, 0, 2.5
                        .SetFontName 0, 0, "Arial (True type)"
                    End With
            Next c_ExpCat
        Next t
'''''''''''''''''''''''''ecrire l'entete
        With nomenclature
       
            While e_ExpCat < d_ExpCat '- 4
                Select Case Table_Entete(e_ExpCat)
                Case "T_txt2"
                    .SetCellString l_Expcat + 1, e_ExpCat, "N° Constructeur"
                    .SetColumnSize e_ExpCat, 35
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                Case "T_txt3"
                    .SetCellString l_Expcat + 1, e_ExpCat, "N° Dessin" & Chr(10) & "Drawing number"
                    .SetColumnSize e_ExpCat, 28
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                Case "T_txt5"
                    .SetCellString l_Expcat + 1, e_ExpCat + 1, "Symbole"
                    .SetColumnSize e_ExpCat + 1, 28
                    .SetCellAlignment l_Expcat + 1, e_ExpCat, CatTableMiddleCenter
                End Select
                e_ExpCat = e_ExpCat + 1
            Wend
.
.
.
.



Merci d'avance pour votre aide
Raphael

Salut Raphaël,

Je n'ai pas trouvé de solution pour avoir 2 tailles de police différentes dans la même cellule.

Une alternative serait de de rajouter une cellule supplémentaire et d'effacer la trait séparant les 2 cellules avec la fonction SetCellBorderType.

ça donne quelques chose si tu lance un enregistrement de macro et que tu le fais manuellement ?

Enregistrement macro ne marche pas

B'jour,
Je sais pas si ce problème est toujours d'actualité mais tu peux utiliser la commande suivante :
MonTableau.GetCellObject(i, j).SetFontSize 0, 0, 2.5

c'est faisable.

Code:

dim toto as drawingtext
set toto = table.getcellsobject(L,C)
Call toto.SetParameterOnSubString(catFontSize, 0, Len(Split(toto, Chr(10))), 7)

0 : premier caracter
len split ... : longueur de la premeière ligne

Merci je vais essayer