afficher seulement les commentaires des cellules trier

Re : afficher seulement les commentaires des cellules trier

Bonjour,

ci-joint le fichier complété.
J'espère que ca répond à la demande

Re : afficher seulement les commentaires des cellules trier

SUPER MERCI, gwenlorin c'est tout a fait ça.

Re : afficher seulement les commentaires des cellules trier

re-salut, tout est impec sauf que je pense qu'il manque une ligne dans ton code, celle qui rajoute le nom de la photo dans la colonne B.

merci d'avance
christophe

__________________________________________________________________
Sub Ajout_commentaires()
Dim cell As Range

Application.ScreenUpdating = False '--- bloque la mise à jour de l'affichage pour plus de rapidité

LastRow = ActiveSheet.Cells.SpecialCells(xlLastCell).Row '--- dernière ligne occupée. tient compte de l'évolution de la taille du fichier

ICI '--- ajout du nom de la photo dans la colonne B pour plus de simplicité

For Each cell In Range(Cells(5, 1), Cells(LastRow, 1)).SpecialCells(xlVisible) 'détection des lignes visibles
If cell.Offset(0, 1).Value <> "" Then '--- test si la cellule à côté contient un nom de fichier image
cell.AddComment ' ajoute commentaire
With cell.Comment.Shape
.Width = 150 'Largeur commentaire
.Height = 150 'Hauteur
.Fill.UserPicture "C:\photo\" & CStr(cell.Offset(0, 1).Value) '--- nom de la photo dans la colonne 2. A adapter au besoin
End With
End If
Next

Application.ScreenUpdating = True '--- débloque la mise à jour de l'affichage

End Sub

Re : afficher seulement les commentaires des cellules trier

Non c'était juste un commentaire pour te préciser d'ajouter cette information sur la feuille.
La macro ne peut pas deviner quelle photo mettre
A supprimer.

Re : afficher seulement les commentaires des cellules trier

et il n'y a pas moyen de le faire en sachant que le nom des photos est 00001.jpg, 00002.jpg, et ainsi de suite ????