pour Eric: attention virus ds fichier

[JM]

Eric,
c'est sympa de vouloir m'aider, mais ton fichier commentaire.zip
contient un virus "W97M.Marker.gen"
donc inutilisable
(voir ta réponse à ma question sur la position du commentaire)
A+
JM

 

[jon]

bonjour

recherche dans les anciens messages, nous avons déjà du poster à ce sujet ou sur des sujets similaires

vite fait :
activesheet.shapes("commentaire 1").top = range("A1").top
activesheet.shapes("commentaire 1").left = range("C2").left

bye

 

[Eric C]

Bonsoir le forum
Bonsoir JM & jon

Désolé pour le contre temps. En réalité, j'avais désactivé mon anti-virus de bureau. En fait ce virus est plus un espion qu'autre chose.
Voici le code car maintenand je n'arrive plus à zipper mes fichiers.La galère quoi. Mais chose promise chose due.

'Attribute VB_Name = "CommentaireSpecial"

'commentaire mis en forme avec quelques effets spéciaux

Sub CommentaireSpecial()
'mpfe, AV & FS
Dim Line1$, Line2$, Line3$, Line4$, Line5$, Txt$

Range("C3").ClearComments
Line1 = "Commentaire du " & Format(Date, "dd/mm/yyyy") & " :" & vbLf
Line2 = "Caractéristiques :" & vbLf
Line3 = "- titre en gras" & vbLf
Line4 = "- corps maigre" & vbLf
Line5 = "alignement : centré"
Txt = Line1 + Line2 + Line3 + Line4 + Line5
With Cells(3, 3).AddComment(Txt).Shape.OLEFormat.Object.Font
.Name = "Arial" 'règle police et taille
.Size = 10
End With
With Cells(3, 3).Comment.Shape
.AutoShapeType = msoShapeExplosion1
.TextFrame.AutoSize = True 'ajuste taille auto
.OLEFormat.Object.Interior.ColorIndex = 24 'motif
.Line.ForeColor.SchemeColor = 10 'couleur bordure
.Line.Weight = 3# ''style bordure double
.Line.Style = msoLineThinThin 'épaisseur bordure
With .TextFrame
.Characters(1, Len(Line1)).Font.Bold = True
.HorizontalAlignment = xlHAlignCenter
Txt = Line1 + Line2 + Line3 + Line4
.Characters(Len(Txt) + 1, Len(Line5)).Font.Bold = True
End With
End With

End Sub

@ ++ Eric C

 

[JM]

Merci les amis du forum
désolé Eric pour ton virus, à noter qu'il a été repéré assez facilement
(donc connu)
A plus
JM