Merci pour la réponse mais les indications de format du commentaire n'apparaissent pas.Bonjour,
Voir Pj
Slts
Merci pour la réponse mais les indications de format du commentaire n'apparaissent pas.
Merci mapomme, idem ca ne fonctionne pas, quand je clic droit voici ce qui apparait. les indications de "format de commentaire" n'apparaissent pas...Attention !
Sur mon office 365, les "anciens commentaires" tels qu'on les connaissait s’appellent désormais "Notes"
Quand on clique droit sur la note pour avoir le menu "Format de commentaire", il faut avnt de clique droit s'assurer que le curseur ait la forme de 4 flèches (nord, est, sud ouest). Pour cela s'approcher du cadre de la note. Sinon on obtient un meni qui ne permet que de modifier la police du texte de la note et non le format de la note elle-même.
Notez que Krosoft n'a pas adapté tous les menus et sous-menus : certains ont pris le nouveau terme note alors que d’autres ont conservé la dénomination commentaire.
Exact Apple ...Re,
Vous êtes un adepte d'Apple me semble-t-il. En tant que mapomme, je ne peux pas vous jeter la pierre
Pouvez-vous joindre un petit classeur avec une note "vierge" dans une ou deux cellules pour que je vois ce que ça donne sur PC ?
Sub InsérerImageDansNote()
Const LargeurMax = 150
Dim Cellule As Range, wks As Worksheet, image, MonImage As Picture, larg, haut
Set Cellule = ActiveCell: Set wks = Cellule.Parent ' cellule où placer la note - Feuille contenant cette cellule
image = Application.GetOpenFilename("JPG Files, *.jpg") ' acquisition du chemin et nom de l'image
If image = False Then Exit Sub ' si aucun fichier, alors quitter sans rien faire
Set MonImage = wks.Pictures.Insert(image) ' insertion d'une image sur la feuille
larg = MonImage.Width: haut = MonImage.Height ' lecture largeur et hauteur
MonImage.Delete ' supprimer l'image sur la feuille
Cellule.ClearComments: Cellule.AddComment ' suppression et recréation de la note
With Cellule
.Comment.Visible = False ' note visible qu'au passage sur la cellule
.Comment.Text "" ' vider le texte de la note
.Comment.Shape.Fill.UserPicture image ' insérer l'image dans la note
.Comment.Shape.Width = LargeurMax ' fixer la largeur à la constante
.Comment.Shape.Height = (haut / larg) * LargeurMax 'redimensionner la note (rapport entre largeur et hauteur)
End With
End Sub