Insérer une Image dans une Cellule, Excel VBA

Insérer une Image dans une Cellule, Excel VBA

Voici une explication détaillée de la façon d’insérer une image dans une cellule à l’aide de VBA (Visual Basic for Applications) dans Excel, avec un exemple de code.
Dans Excel, vous pouvez insérer une image dans une cellule de manière programmatique en utilisant VBA. Bien qu’Excel ne permette pas d’intégrer directement une image dans une cellule, vous pouvez insérer une image et ensuite ajuster sa taille et sa position pour qu’elle semble « s’intégrer » dans une cellule. Cela se fait en ajoutant l’image à la feuille de calcul et en ajustant des propriétés telles que la taille, la position et l’alignement.
Voici l’explication détaillée et le code VBA associé :
1. Comprendre les Concepts Clés :

• Objet Shape : Dans Excel, les images sont traitées comme des formes. Lorsque vous insérez une image, elle est ajoutée à la feuille de calcul sous forme d’un objet Shape.
• Positionnement de la Cellule : Vous pouvez positionner l’image (forme) à l’intérieur de la cellule en ajustant ses propriétés Top et Left.
• Redimensionnement : Après avoir positionné l’image, vous pouvez la redimensionner pour qu’elle corresponde aux dimensions de la cellule.
• Propriétés de la Forme : Vous pouvez ajuster des propriétés comme le verrouillage du ratio de l’image pour éviter toute déformation lors du redimensionnement.

2. Code VBA pour Insérer une Image dans une Cellule :
Le code VBA suivant permet d’insérer une image dans une cellule spécifique et de la redimensionner pour qu’elle s’adapte à cette cellule :

Sub InsererImageDansCellule()
    ' Déclaration des variables
    Dim ws As Worksheet
    Dim img As Picture
    Dim cell As Range
    Dim cheminImage As String
    ' Définir la feuille de calcul et la cellule où l'image sera insérée
    Set ws = ThisWorkbook.Sheets("Feuille1")  ' Remplacez "Feuille1" par le nom de votre feuille
    Set cell = ws.Range("B2")  ' Remplacez "B2" par la cellule où vous voulez insérer l'image
    ' Spécifiez le chemin de l'image
    cheminImage = "C:\chemin\vers\votre\image.jpg"  ' Remplacez par le chemin de votre fichier image
    ' Insérer l'image
    Set img = ws.Pictures.Insert(cheminImage)
    ' Positionner l'image dans la cellule
    With img
        ' Redimensionner l'image pour qu'elle corresponde aux dimensions de la cellule
        .ShapeRange.LockAspectRatio = msoFalse ' Permet de redimensionner l'image librement (sans garder le ratio)
        .Height = cell.Height
        .Width = cell.Width
        ' Positionner l'image dans le coin supérieur gauche de la cellule
        .Top = cell.Top
        .Left = cell.Left
        ' Optionnel : vous pouvez ajuster les propriétés de l'image ici
        .Placement = xlMoveAndSize  ' L'image se déplace et se redimensionne avec la cellule
    End With
End Sub

Explication du Code :
1. Déclaration des Variables :

• ws (Worksheet) : Fait référence à la feuille de calcul dans laquelle l’image sera insérée.
• img (Picture) : Fait référence à l’image insérée (en tant qu’objet forme).
• cell (Range) : La cellule dans laquelle l’image sera insérée.
• cheminImage (String) : Le chemin complet du fichier image que vous voulez insérer.

2. Définir la Feuille et la Cellule :

• Set ws = ThisWorkbook.Sheets("Feuille1"): Spécifie la feuille de calcul (remplacez « Feuille1 » par le nom de votre feuille réelle).
• Set cell = ws.Range("B2"): Spécifie la cellule où l’image sera insérée (remplacez « B2 » par la cellule souhaitée).

3. Insertion de l’Image :

• Set img = ws.Pictures.Insert(cheminImage): Insère l’image à partir du chemin spécifié.

4. Positionnement et Redimensionnement de l’Image :

• .ShapeRange.LockAspectRatio = msoFalse: Cette ligne permet de redimensionner l’image sans conserver son ratio (de sorte qu’elle s’adapte aux dimensions de la cellule).
• .Height = cell.Height: Redimensionne la hauteur de l’image pour correspondre à la hauteur de la cellule spécifiée.
• .Width = cell.Width: Redimensionne la largeur de l’image pour correspondre à la largeur de la cellule spécifiée.
• .Top = cell.Top: Positionne l’image en haut de la cellule.
• .Left = cell.Left: Positionne l’image à gauche de la cellule.

5. Option de Placement de l’Image :

• .Placement = xlMoveAndSize: Cette option garantit que l’image se déplace et se redimensionne avec la cellule si l’utilisateur ajuste la hauteur de ligne ou la largeur de colonne.

3. Remarques Importantes :

• Ratio de l’Image : Si vous souhaitez maintenir le ratio de l’image (c’est-à-dire éviter qu’elle ne se déforme), vous devez définir .ShapeRange.LockAspectRatio = msoTrue et ajuster uniquement la largeur ou la hauteur, mais pas les deux.
• Chemin Dynamique de l’Image : Vous pouvez obtenir dynamiquement le chemin de l’image à partir d’une référence de cellule ou d’une boîte de dialogue de fichier. Par exemple, utilisez Application.GetOpenFilename pour permettre à l’utilisateur de sélectionner une image.
• Placement de l’Image : Vous pouvez changer la propriété .Placement pour xlMove ou xlSize en fonction de si vous voulez que l’image se déplace ou soit redimensionnée indépendamment de la cellule.

4. Exemple avec Sélection Dynamique de l’Image :
Voici un exemple où l’utilisateur sélectionne une image via une boîte de dialogue :

Sub InsererImageDepuisDialog()
    Dim ws As Worksheet
    Dim img As Picture
    Dim cell As Range
    Dim cheminImage As String
    ' Définir la feuille de calcul et la cellule
    Set ws = ThisWorkbook.Sheets("Feuille1")
    Set cell = ws.Range("B2")
    ' Demander à l'utilisateur de sélectionner un fichier image
    cheminImage = Application.GetOpenFilename("Fichiers Image (*.jpg;*.png), *.jpg;*.png", , "Sélectionner une image")
    ' Vérifier si l'utilisateur a annulé la boîte de dialogue
    If cheminImage = "Faux" Then Exit Sub
    ' Insérer l'image
    Set img = ws.Pictures.Insert(cheminImage)
    ' Redimensionner et positionner l'image
    With img
        .ShapeRange.LockAspectRatio = msoFalse
        .Height = cell.Height
        .Width = cell.Width
        .Top = cell.Top
        .Left = cell.Left
        .Placement = xlMoveAndSize
    End With
End Sub

5. Conclusion :

• Ce code VBA peut être modifié pour insérer des images dans plusieurs cellules ou en fonction de différentes conditions.
• N’oubliez pas que la taille de l’image sera ajustée pour correspondre à la cellule, ce qui pourrait déformer l’image si le ratio n’est pas verrouillé.
• Vous pouvez également ajouter des vérifications pour les types de fichiers, une gestion des erreurs, etc.