Microsoft 365 J'en ai une très bonne lol

[Usine à gaz]

Bonjour à toutes et à tous,

Mes élucubrations de la nuit m'ont amené vers une folie certainement pas réalisable
Mais dont j'aurais bien besoin... Alors soyons fous, je soumets à nos magiciens

Dans ma feuille j'ai mis une photo :

Je voudrais que la ou est écrit "cel.Excel", que ce soit la valeur des cellules qui soient mentionnées
C'est à dire :
remplace "cel.Excel"à droite de année par 2022 (valeur de "E8")
remplace "cel.Excel"à droite de au taux par 78.00% (valeur de "E10")

En modifiant la photo ou en la recréant ?
J'ai pas trouvé comment faire
Je sais c'est foldingue lol
Mais qui sait avec nos Magiciens ...
En cas, je joins un petit fichier test.

Je vous remercie pour vos éventuels retours...

 

[sylvanu]

Bonjour Lionel,
Un essai en PJ.
Pensez

et feuille masquée.

 

[WTF]

Bonjour Usine a gaz,
Une proposition en PJ (en trichant un peu ;-)

 

[Usine à gaz]

Bonjour WTF
Merci pour ce retour mais il faudrait que ce soit dans la photo.

 

[sylvanu]

Merci pour ce retour mais il faudrait que ce soit dans la photo.

C'est dans la photo :

 

[sylvanu]

Qu'est ce que la fonction Photo ?

Cherchez cet icone dans les barres de menu :

Si vous ne l'avez pas vous pouvez la mettre en Accès rapide :

L'appareil photo d'Excel (ou comment prendre des Excelfies)

Bonjour à tous, L'outil Appareil Photo est un petit bijou caché car il n'est pas configuré pour apparaître par défaut sur l'interface principale, mais la bonne nouvelle c'est qu'en quelques clics vous allez pouvoir l'activer en bénéficier ! Avant toute chose à quoi sert-il? L'appareil photo d'Excel

www.linkedin.com

Ensuite c'est simple :

Il faut mettre le nom de la feuille avant la plage, comme ici Photo! si on veut mettre l'image sur une autre feuille.

 

[patricktoulon]

re
et oui mais là on entre dans la reconnaissance de texte adobd fine reader ( ca me rajeuni pas)ou superieur
je suppose que l'on peut le piloter par macro mais ça reste du truc compliqué

je me demande pourquoi tu travaille comme ça ( a chercher les complication qui vont faire de ton fichier un enfer à maintenir )
ce texte là ne peut pas venir d'ailleurs ?en texte
comme ca tu inscrit ce que tu veux dans le texte et au pire!!!! si tu y tiens on copy en image et efface la cell après

 

[Usine à gaz]

Cherchez cet icone dans les barres de menu : Regarde la pièce jointe 1161418
Si vous ne l'avez pas vous pouvez la mettre en Accès rapide :
Regarde la pièce jointe 1161417

L'appareil photo d'Excel (ou comment prendre des Excelfies)

Bonjour à tous, L'outil Appareil Photo est un petit bijou caché car il n'est pas configuré pour apparaître par défaut sur l'interface principale, mais la bonne nouvelle c'est qu'en quelques clics vous allez pouvoir l'activer en bénéficier ! Avant toute chose à quoi sert-il? L'appareil photo d'Excel

www.linkedin.com

Ensuite c'est simple :
Regarde la pièce jointe 1161420
Il faut mettre le nom de la feuille avant la plage, comme ici Photo! si on veut mettre l'image sur une autre feuille.

Bonjour sylvanu
Merci pour ton retour.
Je vais voir ça ce soir...

 

[Usine à gaz]

re
et oui mais là on entre dans la reconnaissance de texte adobd fine reader ( ca me rajeuni pas)ou superieur
je suppose que l'on peut le piloter par macro mais ça reste du truc compliqué

je me demande pourquoi tu travaille comme ça ( a chercher les complication qui vont faire de ton fichier un enfer à maintenir )
ce texte là ne peut pas venir d'ailleurs ?en texte
comme ca tu inscrit ce que tu veux dans le texte et au pire!!!! si tu y tiens on copy en image et efface la cell après

Bonjour Patrick
Merci d'être là..
Tu sais comment je suis "pkoi faire simple qd on peut faire compliqué" ?" lol
Et puis j'ai une réputation d'usine à gaz à défendre lol
Je vais voir tout ça ce soir...

 

[sylvanu]

j'ai une réputation d'usine à gaz à défendre

Elle n'est plus à défendre, elle est bien établie.

 

[Usine à gaz]

C'est dans la photo :
Regarde la pièce jointe 1161415

Bonjour sylvanu , Bonjour Patrick , Bonjour WTF, le Forum
Hier au soir, j'ai continué mes élucubrations.....

Malheureusement avec les explications du #post 6 de Sylvanu, je n'ai pas "tout à fait" réussi à faire un code.
Si je fais la manipulation, ça fonctionne... mais si je l'enregistre en macro pour automatiser, ça ne fonctionne plus et je n'arrive pas à modifier le code pour que ça fonctionne
En cas de solution, je joins le fichier test.

En cherchant sur le net, j'ai trouvé sur notre Forum un code qui fonctionne :

XL 2013 - Tips Appareil Photo (Image Liée avec cellule)

Bonjour le fil, le forum, Je me permets de partager une petite "astuce" que j'ai trouvé en cherchant à résoudre un problème lié à l'utilisation de l'appareil photo. En effet, lors de l'utilisation de plusieurs images liées (tableaux en particulier) un problème récurrent de lenteur se fait...

excel-downloads.com

Merci à son auteur
Apparemment, je n'étais pas le seul intéressé lol
Je joins également le fichier test sur lequel il me reste un petit souci :
j'aurais juste besoin de la décaler un peu à droite pour quelle soit parfaitement dans le cadre

Je vous remercie pour les éventuels retours...

 

[sylvanu]

Bonjour Lionel,
Qu'entendez vous par :

mais si je l'enregistre en macro pour automatiser, ça ne fonctionne plus

Vous avez plein d'images à générer ?
Car sur une seule c'est automatique.

 

[Usine à gaz]

Bonjour sylvanu
Merci d'être encore là ...
Si je sélectionne les cellules à mettre en photo, ça fonctionne.
Mais si j'enregistre l'action avec l'enregistreur pour faire le code, au clic sur le bouton ça ne marche plus
Dans le fichier joint, j'ai tenté ces codes :

Sub Macro1()
    Range("C9:D15").Select
    ActiveSheet.Shapes.Copy
    [H9].Select
    ActiveSheet.Paste
'    ActiveSheet.Shapes.AddShape(, 331.5, 133.5, 72#, 72#).Select
'    ActiveSheet.Shapes.Range(Array("Picture 2")).Select
    'Application.CutCopyMode = False
End Sub
Sub Macro2()
    Range("C13").Select
    Selection.Copy
    Range("C26").Select
    ActiveSheet.Paste
End Sub

Sub Macro3()

    Range("C9:D15").Select
    Selection.Copy
    ActiveSheet.Shapes.AddShape(, 327.75, 127.5, 72#, 72#).Select
    ActiveSheet.Shapes.Range(Array("Picture 3")).Select
    Application.CutCopyMode = False
End Sub

Qui ne fonctionnent pas et je n'arrive pas à les modifier ...

 

[Deadpool_CC]

Bonjour,

quand t'a inséré ta shape et que tu l'a selectionnée : fais un simple Selection.Formula = "=$D$23" pour alimenter ta forme.

    Range("D23:G23").Select
    ActiveSheet.Shapes.AddShape(msoShapeTear, 686.25, 327.75, 138, 135).Select
    Selection.ShapeRange.ShapeStyle = msoShapeStylePreset12
    Selection.Formula = "=$D$23"