les commentairesRésolu

Question

bonjour,

voilà ds mon code VBA excel j'utilise ceci pour ecrire un commentaire.

With Worksheets(1).Range("i8").AddComment
    .Visible = True
    .Text "coucou "
End With

ainsi lorsque je me positionne sur ma cellule le com apparait...
le hic c qu'il apparait à droite de ma cellule alors que moi je le voudrais a gauche!!

possible? pas possible? that is the question!!

Achi ++

mortalino · Accepted Answer

Salut,

le problème du Left :
    Range("I8").Comment.Shape.Select True
    Selection.ShapeRange.Left =  True
c'est que ce sera placé tout à gauche (sous la colonne A).

Il faut privilégier le IncrementLeft :
    Range("I8").Comment.Shape.Select True
    Selection.ShapeRange.IncrementLeft -180

Je t'ai mis  -180  mais à toi suivant la taille de trouver la bonne valeur te correspondant le mieux.

@++ 

<hr size ="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

Renfield · Answer

Je pense que tu peux jouer avec 

.Shape.Left .....

Renfield
Admin CodeS-SourceS- MVP Visual Basic

cs_Achi · Answer

bonjour,

ton code fonctionne Mortalino,
mais ce que je souhaite c'est que le com soit masqué et qu'il apparaisse sur passage de la souris... comme un com classique.
le souci ds ce code c'est qu'il me laisse le commentaire sur la droite et qu'il me garde le com de gauche visible... et lorsque je masque mon commentaire lors du passage de ma souris c'est le commentaire de droite qui apparait.

Achi

mortalino · Answer

Salut,

au passage de la souris, en vba, c'est impossible, car l'évènement MouseMove n'existe pas sur les cellules.
Au pire, tu peux le faire s'afficher lors de la sélection de la cellule, mais tu ne peux fairer mieux.

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

VBADjamel · Answer

Voila le code

If Cells(I, 1).Value = "Gravimétrie (métal) :" Then
    Cells(I, 2).ClearComments
    Cells(I, 2).AddComment
    Cells(I, 2).Comment.Visible = False
    Cells(I, 2).Comment.Text "Métal Précieux"
    Cells(I, 2).Comment.Shape.TextFrame.Characters.Font.ColorIndex = 10  'Vert
    Cells(I, 2).Comment.Shape.TextFrame.Characters.Font.Size = 10
    Cells(I, 2).Comment.Shape.TextFrame.Characters.Font.Bold = True

Tu peux corriger pout ton exemple

Tchooo

Les commentaires

5 réponses

Votre réponse

Discussions similaires