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

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 !

Usine à gaz

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

Dernière édition:
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:
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 sylvanu 🙂
Merci pour ton retour.
Je vais voir ça ce soir...
🙂
 
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...
🙂
 
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

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

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"

 
- 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
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…