Comment remplacer du texte par les images correspondantes dans Excel ?
Dans la pratique, il est fréquent de vouloir afficher automatiquement des images correspondantes dans Excel en fonction du texte contenu dans une cellule donnée — par exemple, visualiser les photos de produits à partir de leurs noms ou afficher des icônes spécifiques selon les statuts. Puisqu’Excel ne propose pas nativement de fonctionnalité « texte vers image », certaines astuces sont nécessaires pour y parvenir. Cet article présente ci-dessous deux solutions principales, accompagnées de leurs méthodes d’optimisation.
Remplacer le texte par les images correspondantes à l’aide d’un code VBA
Remplacer le texte par les images correspondantes avec Kutools pour Excel
Remplacer le texte par les images correspondantes avec un code VBA
Généralement, il n’existe pas de méthode simple et directe pour insérer des images liées à une chaîne de texte dans Excel, mais le code VBA suivant vous permet de remplacer automatiquement le texte par son image correspondante.
1. Appuyez sur « Alt + F11 » pour ouvrir la fenêtre « Microsoft Visual Basic pour Applications ».
2. Dans cette fenêtre, cliquez sur « Insertion » > « Module » pour ouvrir une nouvelle fenêtre de module, puis copiez-collez le code VBA suivant dans celle-ci.
Code VBA : remplacer le texte par les images correspondantes
Sub ReplaceTextWithPictures()
'Updateby Extendoffice
Dim ws As Worksheet
Dim selectedRange As Range
Dim cell As Range
Dim pic As Picture
Dim picPath As String
Dim foundPic As Boolean
Dim fileExtensions As Variant
Dim ext As Variant
Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
On Error Resume Next
Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
Exit Sub
End If
Set ws = selectedRange.Worksheet
For Each cell In selectedRange
If Not IsEmpty(cell.Value) Then
foundPic = False
For Each ext In fileExtensions
picPath = imageFolderPath & cell.Value & "." & ext
If Dir(picPath) <> "" Then
foundPic = True
Exit For
End If
Next ext
If foundPic Then
For Each pic In ws.Pictures
If pic.TopLeftCell.Address = cell.Address Then pic.Delete
Next pic
Set pic = ws.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Left
.Width = cell.Width
.Height = cell.Height
End With
End If
End If
Next cell
End Sub
3. Appuyez ensuite sur la touche F5 pour exécuter ce code, puis sélectionnez la plage de données dans laquelle vous souhaitez insérer les images correspondantes dans la boîte de dialogue qui s’ouvre (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK : toutes les images correspondantes remplaceront le texte original (voir la capture d’écran) :
Remplacer le texte par les images correspondantes avec Kutools pour Excel
Si vous n’êtes pas familier avec le code VBA ou si vous préférez ne pas l’utiliser, vous pouvez essayer Kutools pour Excel. Cet outil propose une solution puissante et efficace qui vous permet de remplacer facilement du texte par des images correspondantes en quelques clics seulement. Avec Kutools, vous pouvez associer directement un texte spécifique à des images prédéfinies, sans avoir à écrire la moindre ligne de code. De plus, vous pouvez ajuster la taille des images selon vos besoins, ce qui vous offre une plus grande flexibilité quant à leur intégration dans votre feuille Excel.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Cliquez sur « KUTOOLS PLUS » > « Importer/Exporter » > « Associer l‹importation d›images » (voir la capture d’écran) :
2. Dans la boîte de dialogue « Associer l’importation d’images », configurez les options comme suit :
- Dans la zone de texte « Plage de correspondance », cliquez pour sélectionner la plage de cellules que vous souhaitez faire correspondre aux images ;
- Ensuite, cliquez sur le bouton « Ajouter » pour sélectionner les fichiers d’images que vous souhaitez importer ;
- Spécifiez la taille des images à insérer à partir de la liste déroulante Taille d‹importation (vous pouvez choisir ici « ajuster à la Taille de l›image », « ajuster à la taille de la cellule » ou « définir la Taille de l'image » selon vos besoins) ;
- Sélectionnez le Ordre d'importation pour vos images ;
- Enfin, cliquez sur le bouton « Importer ».
3. Ensuite, choisissez une cellule où insérer vos images correspondantes dans la boîte de dialogue « Associer l’importation d’images » qui s’ouvre (vous pouvez également sélectionner la cellule d’origine contenant le texte) (voir capture d’écran) :
4. Cliquez ensuite sur le bouton OK : toutes les images correspondant au texte sont insérées dans la feuille de calcul (voir capture d’écran) :
- S’il n’existe aucune image correspondant au texte, aucune image ne sera insérée dans la cellule.
- Pour insérer les images horizontalement, cochez simplement l’option « Remplir par ligne, puis par colonne » dans la section « Ordre d’importation ».
Dans Excel, remplacer du texte par des images correspondantes à l’aide d’un code VBA ou de l’outil Kutools pour Excel améliore considérablement l’efficacité et la clarté visuelle de vos données. Que vous optiez pour l’écriture de scripts VBA ou pour l’extension Kutools, ces deux approches permettent d’obtenir rapidement un remplacement texte-image, répondant ainsi à une grande variété de besoins professionnels. Choisir la méthode la plus adaptée rend votre traitement de données non seulement plus efficace, mais aussi plus intuitif, rehaussant nettement la qualité de votre travail. Envie de découvrir davantage d’astuces et de conseils Excel ?
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels