Insérer une image dans une cellule
Résolu/Fermé
A voir également:
- Insérer une image dans une cellule
- Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
- Recherche par image - Guide
- Aller à la ligne dans une cellule excel - Guide
- Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
- Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
1 réponse
hich24
Messages postés
1609
Date d'inscription
mardi 2 octobre 2007
Statut
Membre
Dernière intervention
17 janvier 2023
748
12 mai 2009 à 16:01
12 mai 2009 à 16:01
tu peut le faire avec les commantaire
1- tu choisie une cellule
2- selectionne l'image > copy , selection la cellule
3- menu insertion > commantaire > tu colle l'image dessus
si ca marche tu vote sur sur le message
1- tu choisie une cellule
2- selectionne l'image > copy , selection la cellule
3- menu insertion > commantaire > tu colle l'image dessus
si ca marche tu vote sur sur le message
12 mai 2009 à 16:25
12 mai 2009 à 18:43
Dansla m^me cellule c'est difficile car l'image occupera toute la cellule lorsque elle sera chargée et donc, tu cliqueras sur l'image et non sur la cellule.
Si ta cellule de commande est en A3, l'image apparaissant en B3:
macro à copier-coller dans le module feuille concerné (clic droit sur nom d'onglet-visualiser le code)
tu peux insérer tout type de format: gif, bmp, jpeg...
la macro se déclenche quand tu cliques sur A3... il faut recliquer avant de fermer
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Static flag As Boolean Dim Image As Picture Dim design As String If flag = False Then If Intersect(Target, Range("A3")) Is Nothing Then: Exit Sub design = ThisWorkbook.Path & "\aubenas.jpg" Set Image = ActiveSheet.Pictures.Insert(design) Range("B3").Select With Image.ShapeRange .Name = "cartepost" .Height = Range("B3").Height .Width = Range("B3").Width .LockAspectRatio = msoFalse End With flag = True Range("A3") = "cacher" Else ActiveSheet.Shapes("cartepost").Delete flag = False Range("A3") = "montrer" End If End Subp'tite démo
https://www.cjoint.com/?fmtbiTSlAG
Bonsoir cher Bonjour (ben oui, j'allais la louper!)
12 mai 2009 à 19:54
Super c'est exactement ce que je voulais! Merci infiniment!
PS: Oui, la perche était trop grande :-) ;-)