Nommer images

[Hulk]

Bonjour,

Je souhaite nommer des images selon des cellules, mais je n'y arrive pas 😡

Voir le fichier ICI.

J'y avais déjà vu quelque part mais me souviens plus où ?!

Merci infiniment pour votre aide !

 

[MJ13]

Re : Nommer images

Bonjour Hulk

Henry m'a dit: peut-être en sélectionnant l'objet (testé sous XL2007) et lui attribuant le nom de la cellule (facile pour toi en VBA 😛):

ex:

Selection.Name = "Les gnomes"

 

[tototiti2008]

Re : Nommer images

Bonjour Hulk, Bonjour Michel (Joli l'avatar 😉)

Je ne peux pas ouvrir les zip, mais en fonction de la cellule où ils sont placés ?

 

[Hulk]

Re : Nommer images

Re,

Ok, les images sont placées en A1:A10 et en B1:B10 il y a les noms que je souhaite leur attribuer..

 

[camarchepas]

Re : Nommer images

Bonjour à tous ,

Hulk tu as besoin de vacances, je crois , lol

Tous est bon , sauf que tu donnais pas la bonne cellule pour le nom ,

voici le corrigé :

Private Sub CommandButton1_Click()

Dim I As Integer

For I = 1 To 10
With ActiveSheet.Shapes("Picture " & I)
.Select
Selection.Name = Cells(I, 2)
End With
Next I

End Sub

 

[tototiti2008]

Re : Nommer images

Bonjour camarchepas,
Re,

ou alors :

Edit : oublié de créer le bouton mais le code est dans le module1

 

[MJ13]

Re : Nommer images

Re ,Bonjour Tototiti (pour l'avatar je suis en phase de test, pas sur que je le garde 🙂), Camarchepas

Bon, je suis à la bourre 😱.

Sinon peut-être:

ActiveSheet.Pictures(1).Select
    ActiveSheet.Pictures(1).Name = Cells(1, 2).Text

Avec une boucle for i = 1 to n puis tu remplaces dans le code. Mais attantion, il se peut que cela ne fonctionne pas corretement care le images risquent de s'incrémenter.

Teste et dis nous 😉.

 

[Hulk]

Re : Nommer images

Hello tout le monde,

MJ13 rien à faire ça ne joue pas.

Le requin, j'ai bien modifier (i,2) mais idem ça ne joue pas ??

Tototiti ton bout de code fonctionne parfaitement sur ton fichier joint, mais sur mon fichier, il met un message d'erreur "La valeur tapée est en dehors des limites" ??

J'avoue ne pas comprendre...

 

[MJ13]

Re : Nommer images

Re

Sinon a tester (tester sur XL2007):

Sub test()
For i = 10 To 1 Step -1
'Stop
ActiveSheet.Pictures("Picture " & i).Select
ActiveSheet.Pictures("Picture " & i).Name = Cells(i, 2).Text
Next
End Sub

 

[Pierrot93]

Re : Nommer images

Bonsoir à tous,

essaye ainsi, mais à priori sous 2003, certains de tes noms sont trop longs.... et de ce fait provoquent une erreur.... enfin je pense que cela vient de là...

Option Explicit
Sub test()
Dim s As Shape
For Each s In ActiveSheet.Shapes
    If s.Type = msoPicture Then s.Name = _
        Range(s.TopLeftCell.Address).Offset(0, 1).Value
Next s
End Sub

bonne soirée
@+

 

[Hulk]

Re : Nommer images

Bonjour tout le monde 🙂

Pierrot tu avais bien raison...

il met un message d'erreur "La valeur tapée est en dehors des limites"

Et voilà pourquoi ce message, maximum 31 caractères pour nommer les images avec Excel 2003... J'crois que j'vais sérieusement m'attaquer à 2007 et 2010 🙄

Bref, merci bien à tous pour votre aide et vos codes !

Bonne journée !