RTF/CELLULES/ACCESS

Question

Bonjour,

Voila mon probème :

1°) Lors d'un evenement sur une colonne j'utilise Worksheet_SelectionChange pour ouvrir un form de commentaire.

        TextBox_Comment.Text = Workbooks(g_String_File_Name).Sheets(g_String_Onglet_Cd).Cells(l_Integer_Number_Row, g_Integer_Col_Comment)

        TextBox_Comment.TextRTF = Workbooks(g_String_File_Name).Sheets(g_String_Onglet_Cd).Cells(l_Integer_Number_Row, g_Integer_Col_CommentRTF)

2°) L'utilisateur enregistre le commentaire dans la cellule excel et dans une bdd access(en format RTF et en format classique dans deux champs différents).

    Workbooks(g_String_File_Name).Sheets(g_String_Onglet_Cd).Cells(l_Integer_Number_Row, l_Integer_Number_Column).Value = TextBox_Comment.Text
   
    Workbooks(g_String_File_Name).Sheets(g_String_Onglet_Cd).Cells(l_Integer_Number_Row, g_Integer_Col_CommentRTF).Value = TextBox_Comment.TextRTF

3°) Lorsque l'utilisateur souhaite relire le commentaire il clique sur la cellule et le format apparait (bold ....).




Questions :

Avant de cliquer sur la cellule le format n'apparait pas dans la cellule, comment faire pour avoir une vision du format sans cliquer sur la cellule pour faire apparaitre le formulaire?

kanga11 · Answer

Est-il nécessaire de réaliser un algorithme pour décompresser le format RTF et l'integrer dans la cellule excel?

RTF/CELLULES/ACCESS

1 réponse

Votre réponse

Discussions similaires