1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6

RTF/CELLULES/ACCESS

Signaler
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
 -
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
 -
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?

1 réponse

Réponse 1 / 1
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
Est-il nécessaire de réaliser un algorithme pour décompresser le format RTF et l'integrer dans la cellule excel?
Répondre Posez votre question