Macro Commentaire et Image

Version imprimable

Bonjour tous,

Je débute en vba.
Je joue avec vba pour créer des commentaires avec une image insérée dedans.
Mon problème est aujourd'hui que je n'arrive pas insérer ce commentaire là où je veux.

Mon fichier excel ce présente comme suit
A	Q
ID1	Chemin1.jpg
ID2	Chemin2.jpg
ID3	Chemin3.jpg
ID4	Chemin4.jpg
ID5	Chemin5.jpg
ID6	Chemin6.jpg
ID7	Chemin7.jpg
ID8	Chemin8.jpg
ID9	Chemin9.jpg
Avec mon script je crée le commentaire sur les cellules de colonne Q alors que je les voudrais sur la colonne A.
Avez vous une solution ou des pistes pour que je trouve par moi même?

Merci d'avance.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 Sub Commentaire() Range("Q1:Q361").Select Dim c As Range Dim fich For Each c In Selection fich = c.Value If FichierExiste(CStr(c.Value)) = True Then If fich <> "" Then c.ClearComments c.AddComment c.Comment.Shape.Fill.UserPicture c.Value c.Comment.Shape.Height = 100 c.Comment.Shape.Width = 80 c.Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft c.Comment.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft End If End If Next c Exit Sub End Sub

08/08/2016, 18h26
unparia

Bonjour
Ce qui veut dire que tu souhaites mettre un commentaire sur la cellule :

Code:

Cells(c.row,1)

que tu peux également désigner par

Code:

Range("A" & c.row)

je te laisse appliquer.

Merci! c'est parfait

Voilà mon code avec l’aménagement.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Commentaire()
    Range("Q1:Q361").Select
    Dim c As Range
    Dim fich
 
    For Each c In Selection
        fich = c.Value
 
 
    If FichierExiste(CStr(c.Value)) = True Then
        If fich <> "" Then
            Cells(c.Row, 1).ClearComments
            Cells(c.Row, 1).AddComment
            Cells(c.Row, 1).Comment.Shape.Fill.UserPicture c.Value
            Cells(c.Row, 1).Comment.Shape.Height = 150
            Cells(c.Row, 1).Comment.Shape.Width = 120
            Cells(c.Row, 1).Comment.Shape.ScaleHeight 1.2, msoFalse, msoScaleFromTopLeft
            Cells(c.Row, 1).Comment.Shape.ScaleWidth 1, msoFalse, msoScaleFromTopLeft
        End If
    End If
    Next c
    Exit Sub
 
End Sub