Discussion :

[Mugette]

Lorsque ma macro colle le contenu de mon fichier .txt dans le commentaire d'une cellule, il y a une ligne d'espace au dessus de mon commentaire.

Pourquoi ? Comment faire pour régler ce problème?
dois-je utiliser la ppté Autosize ?

Merci d'avance.

Mugette

[Catbull]

Peux tu nous montrer le code que tu utilises?

[Mugette]

Voila le code d'insertion du commentaire.

Code :

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

 ActiveSheet.Cells(zoneLOG.Rows.Count, 29).AddComment Texte_commentaire

J'ai un fonction de Rezise :

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
 
Sub Comments_AutoSize()
 
  Dim MyComments As Comment
  Dim MyWS As Excel.Worksheet
 
  For Each MyWS In ActiveWorkbook.Worksheets
    For Each MyComments In ActiveSheet.Comments
      With MyComments
        .Shape.TextFrame.AutoSize = True
      End With
    Next
  Next
 
End Sub

[SfJ5Rpw8]

ton saut de ligne il n'est pas dans ta variable Texte_commentaire..

pour vérifier rajoute :
----------------------

Code :

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

Debug.print "<" & Texte_Commentaire &">"

tu devrai avoir un texte du genre :

<MonCommentaire>

et pas :

<
MonCommentaire>
.....


Dans la fenêtre Exécution ...

[Mugette]

Excuse moi bbil mais j'ai oublié ça dans le code que j'ai mis :

Code :

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

1
2
 
Texte_commentaire = Texte_commentaire & Chr(10) & commentaire

mais mon commentaire donne ça :

<voila le
commentaire>

et moi je veux

<voila le commentaire>

[SfJ5Rpw8]

remplace chr(10) par : " " ....

[Mugette]

ca marche pas du tout.

Le must serait que la 1ere ligne de mon fichier txt correspond à la 1ere ligne de mon commentaire, la 2ème du txt a la 2eme ligne de mon commentaire...

merci quand même.

[SfJ5Rpw8]

à Je comprends mieux ( je crois...) mais il me manque un peu de ton code...

quand tu fais

Code :

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

Texte_commentaire = Texte_commentaire & Chr(10) & commentaire

tu rajoute au Texte_commentaire existant , un saut de ligne , puis la ligne lue (Commentaire) ... mais comme au départ Texte_commentaire et vide, tu commence par une ligne vide ....

avant d'entrer dans ta boucle de lecture tu devrai lire la premiere ligne du fichier et écrire :

Code :

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

Texte_commentaire = commentaire

[zazaraignée]

Salut

Si tu boucle pour ajouter plusieurs lignes dans ton commentaire, tu devrais plutôt ajouter ton saut de ligne après la variable commentaire. De cette façon lorsque tu initialise ton Texte_commentaire, il ne devrait pas y avoir de ligne vide.

Code :

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

Texte_commentaire = Texte_commentaire & commentaire & Chr(10)

[zazaraignée]

Re bonjour

Il y a autre chose d'important avec les commentaires:
La première ligne est toujours réservée à l'identification de l'usager et est en caractères gras. C'est donc cette ligne qui s'ajoute autaumatiquement.

Tudevras plutôt configurer ton commentaire de cette façon

Code :

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

1
2
    Selection.AddComment
    Selection.Comment.Text Text:=Texte_commentaire

J'ai obtenu ce code par l'enregistreur de macro. Remplace Selection par ActiveSheet... et ça devrait marcher.

N'oublie pas que l'enregistreur de macro est ton ami!