Insertion d'une image selon texte de cellule

Bonjour à tout le forum,

Je recherche une macro qui, selon le texte d'une cellule, insérerait une image, qui se trouve dans mes dossiers, dans la même cellule que celle du texte.

Texte 1 : Entreprise A ( se trouve dans plusieurs cellules : A3 ; Q3 ; AG3 ; AW3 ; BM3 ; CC3 ; C38 ; M38 ; W38 ; AH38 ; AR38 ; BB38)

Texte 2 : Entreprise B ( se trouve dans plusieurs cellules : A3 ; Q3 ; AG3 ; AW3 ; BM3 ; CC3 ; C38 ; M38 ; W38 ; AH38 ; AR38 ; BB38)

Car je crée des étiquettes pour des classeur et il faudrait que le logo vienne s'insérer dans la même cellule mais en bas de la cellule et centré ...

Est-ce que vous auriez cette macro ?

Je ne peux pas vous transmettre de fichier car il est trop volumineux et contient trop d'informations...

Je vous remercie d'avance pour vos réponses.

Cordialement,

Momochi

Bonjour à tous,

J'ai réussi à mettre en place ce code :

Sub InsertionLogo()
If Range("AG3").Value = "Schwarz Etienne" Then
    ActiveSheet.Pictures.Insert("S:\Secrétariat\Luan\Programme\Programme LS\Programme Etiquettes pour SE\SE-Logo.jpg").Select
    With Selection.ShapeRange
        .LockAspectRatio = False        ' proportions d'origine lorsque vous la redimensionnez
        .Top = ActiveCell.Top           ' haut de la cellule
        .Left = ActiveCell.Left         ' gauche de la cellule
        .Height = ActiveCell.RowHeight  ' hauteur de la cellule
        .Width = ActiveCell.Width ' largeur de la cellule
    End With
    With Selection
        .PrintObject = True             ' l'objet est imprimé en même temps que le document
        .Placement = xlMoveAndSize      ' manière dont l'objet est lié aux cellules
    End With
End If
If Range("AG3").Value = "E2O Innovations" Then
    ActiveSheet.Pictures.Insert("S:\Secrétariat\Luan\Programme\Programme LS\Programme Etiquettes pour SE\E2O-Logo.jpg").Select

    With Selection.ShapeRange
        .LockAspectRatio = False        ' proportions d'origine lorsque vous la redimensionnez
        .Top = ActiveCell.Top           ' haut de la cellule
        .Left = ActiveCell.Left         ' gauche de la cellule
        .Height = ActiveCell.RowHeight  ' hauteur de la cellule
        .Width = ActiveCell.Width ' largeur de la cellule
    End With
    With Selection
    .PrintObject = True             ' l'objet est imprimé en même temps que le document
    .Placement = xlMoveAndSize      ' manière dont l'objet est lié aux cellules
    End With
End If
End Sub

J'ai deux problèmes encore ...

Ce code s'applique à la cellule active... mais comme je l'ai dit plus haut dans le poste il faut que cette macro affecte les cellules suivantes : A3 ; Q3 ; AG3 ; AW3 ; BM3 ; CC3 ; C38 ; M38 ; W38 ; AH38 ; AR38 ; BB38

Ensuite j'aimerais que l'image soit redimensionnée de façon qu'elle soit en bas de la cellule et centré mais qu'elle ne remonte pas jusqu'en haut car j'ai du texte .. C'est dans une cellule fusionnée

Est-ce que quelqu'un pourrait-il m'apporter son aide ?

Je vous remercie d'avance.

Cordialement,

Momochi

bonjour

pour qques images tu n'as peut etre pas besoin de macro

http://www.youtube.com/watch?v=Elz8OPo6W4Q

cordialement

Bonjour Tulipe_4,

Tout d'abord je te remercie pour ta réponse.

En fait, j'ai créer un petit programme d'étiquette pour classeur, grand et petit. En remplissant un petit formulaire les étiquettes se créent sur une deuxième feuille.

Voici le lien cjoint pour le document avec des explications https://www.cjoint.com/c/EIloazgCBEU

J'espère que tu pourras m'aider.

Cordialement,

Momochi