nom du champ image

[nanard25]

Bonjour à Toutes et à Tous,😱

J'aimerais s'il est possible de connaître le nom d' un champ image.

Je m'explique, j'ai crée une feuille paramètre pour que chacun puisse insérer
ses propres informations, j'aimerai pouvoir effacer le champ image puis en
ajouter un qui a pour nom "logo", le champ image s'incrémente après chaque ajout d'une image ex: imagexxx ou xxx peut 236 puis 237 etc...

Merci beaucoup pour votre aide
Bon après midi
Nanard25

 

[Staple1600]

Re : nom du champ image

Bonjour nanard25, le forum.

Teste la macro ci-dessous pour cette question:

J'aimerais s'il est possible de connaître le nom d' un champ image.

Sub test()
Dim x as Long, i as Long
x = ActiveSheet.Shapes.Count
For i = 1 To x
MsgBox ActiveSheet.Shapes(i).Name
Next
End Sub

 

[nanard25]

Re : nom du champ image

Merci pour cette réponse hyper rapide,

Effectivement, toutes les images sont listées, mais j'aimerai connaitre uniquement le nom des pictures

merci encore

 

[nanard25]

Re : nom du champ image

j'ai trouvé cette fonction : ActiveSheet.Pictures.Delete

mais toutes mes images sont détruites
en fait l'image que j'aimerais supprimer est dans la cellule H3

Merci

 

[Staple1600]

Re : nom du champ image

Re


Pour supprimer

Sub test_supprime()
Dim x as long, y as String 'merci nanard
x = ActiveSheet.Pictures.Count
For i = 1 To x
y = ActiveSheet.Pictures(i).TopLeftCell.Address(0, 0)
If y = "H3" Then ActiveSheet.Pictures(i).Delete
Next
End Sub

 

[nanard25]

Re : nom du champ image

Merci Staple1600,

Cela marche super, juste une petite erreur

La définition de y est du texte donc doit être à String

Dim x As Long, y As String

Merci pour tout et merci à Tous, Bravo pour ce forum et bon courage à Tous
Nanard25🙂