Bonjour à tous,
C'est mon tout premier message sur le forum, je me suis inscrit il y a quelques jours parce que je trouve petit à petit pas mal d'aide ici. Je suis débutant complet en programmation et VBA. Je galère donc à faire quelques pauvres lignes de code et j'ai justement un problème :
Mon objectif : afficher une image lors de la mise à jour de la cellule A1. Dans cette cellule se trouve la référence d'un article que nous vendons et qui est également le nom de l'image qui lui correspond.
Avant d'afficher une nouvelle image, le code supprime toutes les images de la feuille (pas de problème, c'est la seule image de toute façon).
Ca c'est ok, j'y suis arrivé comme un grand ! Voici le code :
Pour lancer la macro AAAA après mise à jour de la cellule A1 :
Macro AAAA pour supprimer les images de la feuille puis afficher l'image correspondante à la réf entrée en A1 :
En cas d'erreur (par exemple si l'image est introuvable) la macro file à End Sub sans rien faire comme je lui ai demandé.
Mon problème : après une erreur, lorsque j'entre à nouveau un nom d'article valide en cellule A1, pour lequel il existe bien une image, la macro affiche bien la bonne image mais surtout efface tous les boutons de la feuille ! Je ne comprends pas du tout pourquoi ; dans la macro je ne demande qu'à effacer les images.
Bref, étant débutant, quelque chose m'échappe. Si vous pouviez m'aider ça serait sympa !
Merci d'avance
C'est mon tout premier message sur le forum, je me suis inscrit il y a quelques jours parce que je trouve petit à petit pas mal d'aide ici. Je suis débutant complet en programmation et VBA. Je galère donc à faire quelques pauvres lignes de code et j'ai justement un problème :
Mon objectif : afficher une image lors de la mise à jour de la cellule A1. Dans cette cellule se trouve la référence d'un article que nous vendons et qui est également le nom de l'image qui lui correspond.
Avant d'afficher une nouvelle image, le code supprime toutes les images de la feuille (pas de problème, c'est la seule image de toute façon).
Ca c'est ok, j'y suis arrivé comme un grand ! Voici le code :
Pour lancer la macro AAAA après mise à jour de la cellule A1 :
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = Range("A1").Address Then
AAAA
End If
End SubMacro AAAA pour supprimer les images de la feuille puis afficher l'image correspondante à la réf entrée en A1 :
Code:
Sub AAAA()
Dim NomImg As String
NomImg = [A1]
AccesImg = "V:\Photos Produits\Photos 72ppp\22\" & NomImg & ".jpg"
On Error GoTo suite
ActiveSheet.Shapes.SelectAll
Selection.Delete
ActiveSheet.Shapes.AddPicture AccesImg, True, True, [A4].Left, [A4].Top, 118, 83
suite:
End SubEn cas d'erreur (par exemple si l'image est introuvable) la macro file à End Sub sans rien faire comme je lui ai demandé.
Mon problème : après une erreur, lorsque j'entre à nouveau un nom d'article valide en cellule A1, pour lequel il existe bien une image, la macro affiche bien la bonne image mais surtout efface tous les boutons de la feuille ! Je ne comprends pas du tout pourquoi ; dans la macro je ne demande qu'à effacer les images.
Bref, étant débutant, quelque chose m'échappe. Si vous pouviez m'aider ça serait sympa !
Merci d'avance
