Discussion :

[Perduc]

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 :

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

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

[unparia]

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

Code :

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

Cells(c.row,1)

que tu peux également désigner par

Code :

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

Range("A" & c.row)

je te laisse appliquer.

[Perduc]

Merci! c'est parfait

Voilà mon code avec l’aménagement.

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
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