Contenu récent par laurent950

  1. laurent950

    XL 2010 Création de listes déroulantes interactive

    Bonsoir @jeanmi Je vous ai posté la solution en Poste #17 en complément c'est pas très compliqué. Cdt
  2. laurent950

    XL 2010 Création de listes déroulantes interactive

    Bonsoir : aprés avoir cherché. Solution : création bon de commande-V7-1-essais (Solution).xlsm Procédure : Créer une liste déroulante dynamique pour Famille et Désignation - Classeur Excel : 2 Onglets (Bon_de_Cde) et (Liste_aricles) / Pas d'espaces dans les noms d'onglets ! Créer la...
  3. laurent950

    XL 2016 Le Mot Le Plus Long

    Bonsoir Function SupprimerAccents(Texte As String) As String Dim Accents As String, SansAccents As String Dim i As Long Accents = "àâäáãåçèéêëìíîïñòóôöõùúûüýÿœæÀÂÄÁÃÅÇÈÉÊËÌÍÎÏÑÒÓÔÖÕÙÚÛÜÝŸŒÆ" SansAccents = "aaaaaaceeeeiiiinooooouuuuyyoeaeAAAAAACEEEEIIIINOOOOOUUUUYYOEAE"...
  4. laurent950

    Autres Petit defi du jour

    Hello @patricktoulon Conclusion tu peux jeter le code chatGpt a la poubelle = OUI est il faut supprimé le classeur qui contient ce code en Poste #32 aussi je pense je parle uniquement de ton code. je te montre : Select Case Split(LCase(fichiers), ".")(UBound(Split(LCase(fichiers), ".")))...
  5. laurent950

    Autres Petit defi du jour

    Bonjour @cathodique C’était d’ailleurs, et c’est encore, en phase de test avec CODEX de ChatGPT… Je vais creuser dès que j’aurai accès à un ordinateur surpuissant et aux ressources adéquates. C’était un échange avec Patrick en phase de test, avec une conclusion justement autour de cette option...
  6. laurent950

    Autres Petit defi du jour

    Bonjour @patricktoulon si il y a d'autres points dans le nom du fichier alors : Split(LCase(fichiers), ".")(UBound(Split(LCase(fichiers), "."))) Remplacer par (1) J'ai corrigé dans ton code : CreatePatchwork2 (j'avais un Bugs) Do While fichiers <> "" Select Case...
  7. laurent950

    Autres Petit defi du jour

    Oui @patricktoulon Effectivement, quand il se trompe il a quand meme la faculter de pas se débalonner en te demontrant sa super force et efficacité basé sur du vent... seul un oeil d'expert arrive a deceler la supercherie de Chatgpt qui regorge de strategie pour solutionné un code meme lorsque...
  8. laurent950

    Autres Petit defi du jour

    @patricktoulon je garde ce code : patchwork (2) détail en poste #28 qui correspond au classeur Excel du Poste #18 (Le Meilleur selon moi)
  9. laurent950

    Autres Petit defi du jour

    @patricktoulon Le code se trouve sur qu'elle Poste ?
  10. laurent950

    Autres Petit defi du jour

    @patricktoulon Tu as CODEX ? c'est vraiment interrssant. Patrick = fais ce test avec CHATGPT. Ecrit le Prompte ChatGpt ci-dessous : Copier/Coller tu sais me comparer deux code vba qui font la même choses ?me dire si qu'elle code est le plus performant et le mieux construit et pourquoi ? je...
  11. laurent950

    Autres Petit defi du jour

    Hello @patricktoulon Alors CODEX l'option payante est nul a 356 €/Mois ! j'avais donner le code de l'onglet 2 je suis partie sur une mauvaise base J'aurais du prendre ce code pour tester (Dommage) En Poste #18 c'est l'onglet : patchwork (2) le code : qui correspond a ce que tu as...
  12. laurent950

    Autres Petit defi du jour

    C'est CODEX l'option de CHATGPT tu connais ?
  13. laurent950

    Autres Petit defi du jour

    Bonsoir @patricktoulon Aujourd'hui j'ai eu l'occasion d'essayé CODEX de ChatGpt, la version à 360 €. je me suis permis de voir comment celui-ci modifier et obptimisé ton code, j'ai laissé le systéme faire tous seule, quelques informations pour recadrer quand ca plante = (Copie d'écrans du...
  14. laurent950

    XL 2021 VBA Alternative à SpecialCells(xlCellTypeVisible)

    Bonjour @Dudu2 Module_L950_V4_VarianteCellsTab Ps : c'est la version qui est la plus rapide. Fonctionne sur 1 048 576 lignes et 16 384 colonnes (sans bloquée) La version V4 est l'amélioration des versions V0 / V1 / V2 / V3 (Pour en comprendre la logique et l'évolution vers la V4)...
  15. laurent950

    XL 2021 VBA Alternative à SpecialCells(xlCellTypeVisible)

    Bonjour @Dudu2 Module_L950_V3_VarianteCellsTab Option Explicit Function ReperePlageVisible_L950_V3_VarianteCellsTab(Wks As Worksheet) As Collection ' Prend la feuille (active Wks) en paramètre ' Retourne la Collection contenant toutes les zones de cellules visibles : ' - ligne par ligne...
Retour