Contenu récent par Koko74

  1. K

    Microsoft 365 copier une cellule/colonne d'une autre feuille en fonction d'une valeur cible

    Bonjour, Si j'ai bien compris un simple RECHERCHEV devrais faire l'affaire ;) Un exemple ci-joint Bonne journée
  2. K

    XL 2013 Worksheet_change copier/coller sur un autre classeur

    Bonjour à tous, Sans aller trop dans le détails car cela me paraît bien complexe. Si je comprends bien déjà l'évènement de votre code ne se déclenche pas au bon moment. En effet sur la feuille Audit l'évènement de votre code se déclenche : If Not Intersect(Target, Range("N6:N1000")) Is...
  3. K

    Microsoft 365 Ajout dans listbox jusqu'à la dernière ligne

    Hello, Merci pour ta réponse, elle n'était pas exact mais m'as mis sur le chemin de la résolution ;)
  4. K

    Microsoft 365 Ajout dans listbox jusqu'à la dernière ligne

    Bonjour à tous, Je fais appel à vous car je galère avec les listbox ... Cela ne doit pas être bien compliqué mais je n'arrive pas à ajouter 8 colonnes avec un nombre de lignes variable dans une listbox. J'ai le code suivant mais il me met la méthode range de la classe worskheet à échoué et je...
  5. K

    XL 2016 .path renvoi un emplacement temporaire à cause de 7zip

    Bonjour, Merci Eric pour cette piste, elle semble effectivement pouvoir répondre à mon problème et je m'en servirais surement pour d'autres projets ;) Néanmoins ce fichier va servir à présenter un plan de budget, je vais donc éviter cette solution au cas ou le fichier devrait être envoyé à...
  6. K

    XL 2016 .path renvoi un emplacement temporaire à cause de 7zip

    Bonjour Staple, Car à l'origine je voulais faire un fichier menu qui renvoyais vers différents fichiers situé dans le même dossier mais masqué, donc il fallait pouvoir envoyer tout le dossier et donc zipper ! Néanmoins après plusieurs recherche, j'ai pu lire à plusieurs reprise que les...
  7. K

    XL 2016 .path renvoi un emplacement temporaire à cause de 7zip

    Bonjour Sylvanu, Merci je vais donc creuse cette piste ;) Bonne soirée
  8. K

    XL 2016 .path renvoi un emplacement temporaire à cause de 7zip

    Bonjour à tous, Je fais appel à vos lumières car je sèche un peu ... J'ai un fichier excel qui est un menu et permet d'accéder à d'autres fichiers (caché) placés dans le même dossier J'ai la macro suivante : Sub Ouv_Test() Dim chemin As String chemin =...
  9. K

    XL 2016 VBA / copier onglet selectionné dans nouveau classeur

    Hello, Sauf erreur de ma part tu es obligé de l'enregistrer pour changer le nom, mais rien ne t'empêche de le supprimer après ;) Tout cela est faisable via ta macro bien sûr ;) J'essaye de te faire ça dans la journée
  10. K

    Matrice de distances - Google Maps

    Un grand merci Pierre, formidable macro :) Bonne journée
  11. K

    Matrice de distances - Google Maps

    Fiouuu !!!! @ Pierre : tu pense que tu peux récupérer le temps de trajet également ? J'ai vu que tu utilisais http://www.distance2villes.com qui lui même utilise les donnée openstreetmap ce qui évite les API google mais j'avoue que je ne saurais comment récupérer la valeurs temps alors que...
  12. K

    XL 2016 VBA / copier onglet selectionné dans nouveau classeur

    Dans ce cas si je comprend bien il suffit de faire ceci : Sub mail() ActiveSheet.Copy Dim Wbk As Workbook Set Wbk = ActiveWorkbook 'Wbk.SendMail "mon email", " Terre : " & Range("C6").Value Set Wbk = Nothing End Sub Marche qu'importe le nom de la feuille ;) PS : Ah ba tu as trouvé tout...
  13. K

    Microsoft 365 Formule multiple de comparaison

    Bonjour, Tu veux le nombre de jour ? De mois ? D'année de différence ? =DATEDIF(A1;C$18;"D") pour le nombre de jour, remplacer "D" par "M" pour mois ou "Y" pour année Si j'ai bien compris ce que tu recherche ... Bonne soirée ;)
  14. K

    Autres Extraire nombres

    Re, Deux possibilités, soit avec séparateur de millier : =TEXTE(SUBSTITUE(STXT(A2;CHERCHE("|";SUBSTITUE(A2;" ";"|";NBCAR(A2)-NBCAR(SUBSTITUE(A2;" ";""))));100);".";"");"# ##0,00") Sinon sans : =CNUM(SUBSTITUE(STXT(A2;CHERCHE("|";SUBSTITUE(A2;" ";"|";NBCAR(A2)-NBCAR(SUBSTITUE(A2;"...
  15. K

    XL 2016 VBA / copier onglet selectionné dans nouveau classeur

    Bonjour, Je ne suis pas sûr de comprendre ton problème mais si c'est le nom de la feuille qui pose pb pourquoi ne pas simplement faire ActiveSheets ? Un fichier exemple pourrais aider à mieux comprendre ton pb ! Bonne soirée ;)