Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

transformer une partie du tableau en image

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
P

pasglop

XLDnaute Nouveau
Bonsoir,

Un remerciement pour les réponses apporté à mon ancien poste comme d'habitude c'était juste se qu'il me fallait !!!

Maintenant sa se complique (pour moi ...pour vous sa vas être simple)😀

Se que je voudrai faire :
Sélectionner une plage de cellules contenant textes et images
Et les coller sous forme d'une seul image en un point précis exemple ("A26")

Je n'ai pas trouvé de formule toute faite pour transformer une sélection en image donc je pensai faire ceci en macro

1 sélectionner une plage de cellule
2 copier
3 ouvrir Paint
4 coller dans Paint
5 sélectionner dans Paint
6 copier dans Paint
7 fermer Paint
8 sélectionner la cellule de destination dans Excel
9 coller

10 prendre un café car là j'en n'ai besoin ...

voila ou j'en suis :

Private Sub CommandButton1_Click()

Range("A3:E21").Select
Selection.Copy 'selection des cellules à transformer en image OK

Dim Obj As Object
Set Obj = CreateObject("WScript.Shell")
Obj.Run "mspaint.exe ", 1, True 'ouverture paint OK

Set mspaintApp = GetObject(, "mspaint.Application")
mspaintApp.Run.Paste
'là sa ne marche pas il ne veut pas coller
'maintenant je voudrai sélectionner l'image de paint
, la copier puis fermer paint


appmspaint.Application.Quit ' ne sais pas si sa marche

Range("A26").Select
ActiveSheet.Paste 'coller la selection de base en A26 au format image
End Sub

Si vous y arrivez vous êtes des "chef" merci d'avance

yves
 
Trier par date Trier par votes
Re : transformer une partie du tableau en image

merci,

À première vue sa fait exactement se que je veux
Peut-on placer le dessin obtenu autrement qu'en le positionnant approximativement??
-Pour qu'il soit associer à une cellule ..


A+
yves
 
Vote positif 0 Vote négatif
Re : transformer une partie du tableau en image

Bonsoir, Yves

Salut, JC....🙂

L'inconvénient, avec l'appareil photo, c'est que le code n'est pas enregistré....

une alternative :

Code: 
Sub Macro11()
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
ActiveSheet.Paste
With Selection.ShapeRange
    .Left = 0
    .Top = Range("A26").Top
End With
End Sub
 
Vote positif 0 Vote négatif
Re : transformer une partie du tableau en image

Bonsoir
Essai cela
HTML: 
Sub Macro4()
    Range("A3:E21").CopyPicture Appearance:=xlScreen, Format:=xlPicture
    Range("A26").Select
    ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)"
    Range("A1").Select
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif
Re : transformer une partie du tableau en image

merci beaucoup !!!

sa marche impec !

-bhbh ta macro ne fonctionne pas .. enfin pas chez moi, j'ai juste à la case du point d'ancrage du collage, une image translucide ?? 😱
merci quand même d'avoir essayer !!

-CB60 sa marche tip top, merci beaucoup

bonne soirée
yves
 
Vote positif 0 Vote négatif
Re : transformer une partie du tableau en image

Bonjour
La même avec choix des cellules à copier avec un inputbox et choix position de l'image aussi, le deuxieme inputbox prend en compte la premiere cellule en haut à gauche ( de la selection).

HTML: 
Sub Macro4()
Dim LeChoix As Range
Dim Position As Range
On Error Resume Next
Set LeChoix = Application.InputBox(prompt:="Sélectionnez la plage de cellules.", _
Title:="Plage de cellules", Left:=500, Top:=300, Type:=8)
LeChoix.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set Position = Application.InputBox(prompt:="Sélectionnez la cellule en haut à Gauche.", _
Title:="POSITION", Left:=500, Top:=300, Type:=8)
    Position.Select
    ActiveSheet.PasteSpecial Format:="Image (métafichier amélioré)"
    Range("A1").Select
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
XL 2021 Références "Relatives" Graphique
Réponses
2
Affichages
145
vgendron
L
  • Question Question
Microsoft 365 Insérer une plage Excel en image sous VBA pour envoi mail auto
Réponses
1
Affichages
423
fanch55
B
  • Question Question
XL 2021 Transfert tableau structuré EXCEL à un endroit précis de WORD
Réponses
8
Affichages
1 K
job75
M
  • Résolu(e)
Microsoft 365 Image stockée dans une feuille à l'initialisation du userform
2
Réponses
20
Affichages
2 K
meyscal
M
C
Excel : Fusionner des cellules en conservant le contenu et la police des cellules à fusionner
Réponses
5
Affichages
362
crocrocro
C
EXCEL :: Les Tableaux Structurés :: Une classe VBA - V1.05 - Evolutions majeures exports CSV, XML, XML UTF-8, JSON, HTML, PDF, JPG, JPEG, BMP, EXCEL
Réponses
10
Affichages
419
oguruma
E
  • Question Question
XL 2016 Comment copier-coller d'une colonne à une autre lorsqu'un filtre est en place ?
Réponses
4
Affichages
2 K
Etoto
L
  • Résolu(e)
Microsoft 365 Insérer des lignes dans un tableau en décalant celles du dessous
2 3
Réponses
35
Affichages
3 K
Léraud Florian
L
E
  • Question Question
Microsoft 365 Couper/coller une image sur Outlook
Réponses
1
Affichages
840
ExcLnoob
E
M
  • Question Question
XL 2016 Envoi courriel copier/coller avec mise en forme (corps couuriel)
Réponses
2
Affichages
1 K
MONTREAL2020
M
I
  • Question Question
XL 2019 Envoyer image et mise en forme conditionnelle dans un mail
Réponses
1
Affichages
945
patricktoulon
N
  • Résolu(e)
Gérer Active.document de Word depuis Excel
Réponses
3
Affichages
2 K
n.excel
N
  • Question Question
XL 2019 Placer une image à une adresse précise du tableau
Réponses
9
Affichages
2 K
escouger
S
  • Question Question
Microsoft 365 Macro pour Copier une feuille Excel en tant qu'image dans outlook
Réponses
3
Affichages
2 K
fanch55
S
  • Question Question
Autres Lourdeur du fichier excel et lenteur du traitement macro : comment identifier les éléments générant ces lenteurs et lourdeurs et comment optimiser ?
Réponses
9
Affichages
5 K
TooFatBoy
A
  • Résolu(e)
XL 2016 Macro consolidation plusieurs fichiers en 1 seul
Réponses
8
Affichages
2 K
Alan28
A
D
  • Question Question
XL 2010 Création et mise à jour d'un TCD tableau croisé dynamique avec macro VBA
Réponses
1
Affichages
3 K
chris
G
  • Résolu(e)
Microsoft 365 Réaliser un coupez/coller en Macro en effectuant une combinaison de touches
Réponses
5
Affichages
696
eriiic
L
  • Question Question
XL 2010 Problème format graphique ou tableau excel en image
Réponses
8
Affichages
1 K
chris
C
  • Question Question
Microsoft 365 Envoi mail excel vba avec copier coller spécial image
Réponses
0
Affichages
2 K
capc93
C
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…