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

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

Usine à gaz

XLDnaute Barbatruc
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...
 

Pièces jointes

  • test.xlsm
    17.9 KB · Affichages: 9
Dernière édition:

sylvanu

XLDnaute Barbatruc
Supporter XLD
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 :


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.
 
Dernière édition:

patricktoulon

XLDnaute Barbatruc
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

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

Usine à gaz

XLDnaute Barbatruc
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...
 

Usine à gaz

XLDnaute Barbatruc
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 :
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...
 

Pièces jointes

  • test photo Sylvanu.xlsm
    306.6 KB · Affichages: 1
  • test Tips Appareil photo2.xlsm
    21 KB · Affichages: 1

Usine à gaz

XLDnaute Barbatruc
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 :
VB:
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 ...
 

Pièces jointes

  • test photo Sylvanu.xlsm
    306.6 KB · Affichages: 0

Deadpool_CC

XLDnaute Accro
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.

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

 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…