Résultats de la recherche

  1. Jouxte

    Microsoft 365 Extraire tous les caractères après des chiffres

    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)
  2. Jouxte

    Microsoft 365 Extraire tous les caractères après des chiffres

    Bonjour natorp, Merci Gérard pour cette réponse. j'aimais bien l'idée que la formule ne soit pas matricielle. Mais est-ce possible ?
  3. Jouxte

    Microsoft 365 Extraire tous les caractères après des chiffres

    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
  4. Jouxte

    XL 2013 VBA Insérer des images d'un dossier

    C'est magique.Merci beaucoup beaucoup
  5. Jouxte

    XL 2013 VBA Insérer des images d'un dossier

    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
  6. Jouxte

    XL 2013 VBA Insérer des images d'un dossier

    Bonjour patricktoulon, Merci pour cette réponse rapide. Comment intégrer ces codes dans mon exemple ?
  7. Jouxte

    XL 2013 VBA Insérer des images d'un dossier

    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
  8. Jouxte

    XL 2013 Zoom image - mettre au 1er plan

    Bonjour Staple1600, Merci beaucoup pour ce code qui fonctionne parfaitement et qui va bien me simplifier la vie.
  9. Jouxte

    XL 2013 Zoom image - mettre au 1er plan

    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...
  10. Jouxte

    XL 2013 Afficher une image en cliquant sur une miniature

    @ 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.
  11. Jouxte

    XL 2013 Afficher une image en cliquant sur une miniature

    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)...
  12. Jouxte

    XL 2013 Afficher une image en cliquant sur une miniature

    Est-il possible d'autoriser plusieurs formats d'image ".jpg", ".png", ".gif", ".bmp" ?
  13. Jouxte

    XL 2013 Afficher une image en cliquant sur une miniature

    Merci bof & riton00 pour vos réponse rapides et qui sont parfaitement fonctionnelles.
  14. Jouxte

    XL 2013 Afficher une image en cliquant sur une miniature

    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...
  15. Jouxte

    XL 2019 Lier des photos à une cellule

    Re, Mes essais ne sont pas concluants.
  16. Jouxte

    XL 2019 Lier des photos à une cellule

    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.
  17. Jouxte

    XL 2019 Lier des photos à une cellule

    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...
  18. Jouxte

    XL 2016 formule excel

    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
  19. Jouxte

    XL 2016 formule excel

    si c'est la somme, en AM1 tu tapes : =SOMME(O2:AL2)
  20. Jouxte

    XL 2016 formule excel

    Faut-il faire la somme de la ligne ?