important nommer une image

[alexisfaguo]

Bonsoir,

Je débute en macro et j'en utilise une pour copier des images stockées sur une feuille en inscrivant son nom dans une cellule,

Mon problème est que je n'arrive pas à nommer mes images et j'inscris image 76... pour les copier,

Pourriez-vous m'aider à leur ré-attribuer leur nom s'il vous plait 🙂,

Ci-dessous la macro que j'utilise pour faire mes copie :

Private Sub Worksheet_Change(ByVal Target As Range)
Set images = Sheets("packshot")
If Target.Column = 2 And Target.Count = 1 Then
'-- suppression
For Each s In ActiveSheet.Shapes
If s.Type = 13 Then
If s.TopLeftCell.Address = Target.Address Then s.Delete
End If
Next s
'-
If Target <> "" Then

On Error Resume Next
images.Shapes(Target).Copy
If Err = 0 Then
ActiveSheet.Paste
largeurImage = images.Shapes(Target).Width
HauteurImage = images.Shapes(Target).Height
Selection.ShapeRange.Left = ActiveCell.Left + ActiveCell.Width / 2 - largeurImage / 2
Selection.ShapeRange.Top = ActiveCell.Top + 5
Rows(Target.Row).RowHeight = HauteurImage + 10
Target.Select
End If
End If
End If
End Sub

 

[Yaloo]

Re : important nommer une image

Bonsoir alexisfaguo et bienvenu, bonsoir le forum,

Il serait bien d'avoir un fichier exemple.

A+

Martial

 

[alexisfaguo]

Re : important nommer une image

Bonjour Martial,

Voici un petit fichier illustrant mes propos,

comme tu le vois c'est le nom des images qui me bloque...

 

[Yaloo]

Re : important nommer une image

Bonjour Alexisfaguo,

Peux tu détailler exactement ce que tu veux faire, avec le nom des feuilles et le nom des images, car c'est un peu flou.

A te relire

Martial

 

[Si...]

Re : important nommer une image

salut

pour renommer une image


et ta macro devient

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 3 Then Exit Sub 'noms en colonnes C
  '-- suppression
  For Each s In ActiveSheet.Shapes
   s.Delete
  Next s
'-- copie
  If Target <> "" Then
    On Error Resume Next
    Sheets("packshot").Shapes(Target).Copy
    ActiveSheet.Paste
    Selection.ShapeRange.Left = Target.Offset(, -1).Left
    Selection.ShapeRange.Top = Target.Top
    Rows(Target.Row).RowHeight = HauteurImage + 10
    Target.Select
    On Error GoTo 0
  End If
End Sub

 

[alexisfaguo]

Re : important nommer une image

et ta macro devient

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column <> 3 Then Exit Sub 'noms en colonnes C
  '-- suppression
  For Each s In ActiveSheet.Shapes
   s.Delete
  Next s
'-- copie
  If Target <> "" Then
    On Error Resume Next
    Sheets("packshot").Shapes(Target).Copy
    ActiveSheet.Paste
    Selection.ShapeRange.Left = Target.Offset(, -1).Left
    Selection.ShapeRange.Top = Target.Top
    Rows(Target.Row).RowHeight = HauteurImage + 10
    Target.Select
    On Error GoTo 0
  End If
End Sub

[/QUOTE]

Salut,*

j'essaye de mettre ça en place,

Cette macro annule et remplace l'ancienne du coup ?

Je ne comprends pas tout à fait son rôle elle est censé prendre le nom inscrit sur la colone C (feuille 1) et en permettre la copie

Je n'arrive pas à nommer l'image on me met "nom non valide" sur ma feuille packshot

 

[alexisfaguo]

Re : important nommer une image

Martial,

Pour être un peu plus précis: j'ai ma feuille packshot qui me sert de banque d'images et grâce à la macro que j'utilise et à une formule DECALER je peux copier dans d'autres feuilles (qui me serviront pour différents travaux) ces images juste en inscrivant leur nom dans une cellule,

Seulement avec excel Mac je ne sais pas changer le nom des images donc dans ma banque d'image j'ai image 1, image 2 ...

Et donc je suis obligé d'inscrire image 1... sur les autres feuilles au lieu d'inscrire le nom du produit en photo (ex elm vert, alder bordeaux...) au total j'ai plus de 100 images ce n'est donc pas pratique si je ne sais pas à quoi correspond l'image 76

Voilà dans le détail le problème qui me bloque

 

[Yaloo]

Re : important nommer une image

Re,

Pour changer le nom de l'image :

1 - Tu sélectionne ton image.
2 - A gauche de la barre de formule, tu dois avoir Image 1 (ça se trouve juste au dessus de la colonne A). Tu cliques, ça te surligne le texte en bleu
3 - A cet endroit, tu écris le nom de ton image "elm vert".
4 - Tu fais entrée.

Maintenant ton image doit s'appeler "elm vert".

A+

 

[Si...]

Re : important nommer une image

re

je pensais Yaloo qu'une image valait un discours 😉. Il y a peut-être une autre démarche avec un Mac 😕

 

[Yaloo]

Re : important nommer une image

Salut Si...

Une image vaut mieux qu'un long discours mais un petit ça va 😛

A+