1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

RTF/CELLULES/ACCESS

kanga11
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
 - 18 avril 2008 à 12:08
kanga11
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
 - 18 avril 2008 à 16:18
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
kanga11
Messages postés
2
Date d'inscription
vendredi 11 novembre 2005
Statut
Membre
Dernière intervention
18 avril 2008
18 avril 2008 à 16:18
Est-il nécessaire de réaliser un algorithme pour décompresser le format RTF et l'integrer dans la cellule excel?
0