Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
je viens de tester une formule qui me paraît fonctionner :=DROITE(A1;NBCAR(A1)-(CHERCHE("µ";SUBSTITUE(A1;{0.1.2.3.4.5.6.7.8.9};"µ";NBCAR(A1)-NBCAR(SUBSTITUE(A1;{0.1.2.3.4.5.6.7.8.9};"")))))-1)
Bonjour, je réouvre ce fil car la formule ne fonctionne pas avec :
33 rue de la Salle 05000 GAP = 000 Gap
Quelqu'un a-t-il une idée ?
Bonne journée à toutes et tous
Ton code avec insérerphoto fonctionne bien.
Mais InsérerImages ne fonctionne pas.
Je viens d'essayer ton code mais l'homothétie n'est pas respectée. L'image est étirée aux 4 coins de la cellule
Bonjour à toutes et tous,
J'utilise un code VBA trouvé sur Internet qui me permet d'insérer des photos dans mon fichier Excel.
Je souhaiterai conserver l'homothétie de la photo et la centrer dans la cellule. (LockAspectRatio = msoTrue)
Par avance merci pour votre aide
Bonjour à toutes et tous,
J'utilise le code ci-dessous pour faire un zoom sur image.
J'aurai souhaité que quand on clique sur l'image pour zoomer elle se mette au 1er plan. j'ai essayé, sans succès, d'insérer l'instruction :
Selection.ShapeRange.ZOrder msoBringToFront
Par avance merci pour...
@ bof
Effectivement une recherche sur internet confirme tes dires.
J'ai trouvé sur un forum un fichier qui affiche les .png
Je suis incapable de m'aider de ce fichier mais si ça peut aider l'un d'entre-vous à résoudre mon problème ...
Par avance merci pour vos solutions.
Bonjour le Forum,
J'ai modifié le code comme suit, les images ".jpg", ".gif", ".bmp" s'affichent correctement mais pas les ".png"
Il y a une demande de deboguage sur la ligne (erreur d'exécution 481 Image incorrecte) :
UserForm1.Image1.Picture = LoadPicture(répertoire & "\" & NomImage & c)...
Bonjour à toutes et tous,
J'ai retrouvé un fichier (affichephoto2.xls) du regretté Jacques Boisgontier, mais qui me génère une erreur sur la ligne :
rap = Val(Split(taille, "x")(0)) / Val(Split(taille, "x")(1))
je joins le fichier en PJ
quelqu'un peut-il m'aider à faire fonctionner ce code...
Bonjour Jacky,
Merci beaucoup. L'intégration des photos fonctionne parfaitement. Peut-on déterminer la largeur du commentaire (Comment.Shape.Width = 100) et avoir une hauteur variable pour conserver l'homothétie de l'image.
Bonjour à toutes et tous,
Merci Jacky pour ce code qui m’intéresse.
Peut-on ajouter d'autres formats d'image (.png; .gif; .bmp) et agrandir la fenêtre commentaire.
j'ai essayé comme ça mais au bout de 3 ligne plus rien ne marche.
Private Sub Worksheet_Change(ByVal Target As Range)
If...
Une simple recherche sur Internet (Google) aurait pu te donner le résultat.
https://fr.excelfunctions.eu/
SI = IF
ENT = INT
JOURS360 = DAYS360
AUJOURDHUI = TODAY
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.