H

Membre habitué

Inscrit le :01/06/2020
Dernière activité :12/10/2024 à 00:41
Version d'Excel :2019
Messages
63
Votes
2
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Hoareau

DateAuteur du sujetSujetExtrait du message
05/10/2024 à 15:30Hoareau Decomposer et verifier si chaine caractères trouvéeTrouvé </> dans la barre, mais pas dans le code, de quel message ? Comme vous avez pu le voir, je fais une demande, des fois deux, par an, par contre, je regarde souvent, cela fait des années que je suit le site qui m'as bien dépanné Si les choses changent, je ne vois pas, je suis un adepte de...
05/10/2024 à 00:40Hoareau Decomposer et verifier si chaine caractères trouvéeEffectivement, pour " If InStr(originalString, slice) > 0 And Len(slice) = 4 Then", je me suis dis la même chose, après avoir envoyé le message. Ne maitrisant pas toutes les erreurs, découlant des requêtes, j'essaie toujours de vérifier, ce qui es renvoyé Destiné à être incluse dans une autre pro...
04/10/2024 à 16:15Hoareau Decomposer et verifier si chaine caractères trouvéeSemble avoir trouvé If InStr(originalString, slice) > 0 And Len(slice) <> 0 And Len(slice) = 4 Then...
04/10/2024 à 15:28Hoareau Decomposer et verifier si chaine caractères trouvéeDans la procédure ci dessous, la chaine est décomposée en 4 caractères , mises en cellules adjacentes, puis vérifiée si elle est trouvée Si la chaine contient seulement trois des caractères, elle est considérée comme trouvée ?Tomates ,123 et cellule vide ajoutés manuellement dans cellules pour vérif...
16/09/2024 à 14:35Hoareau Lister fichiers disque dur avec cheminPour ceux que le sujet interesse, il y aussi : TreeSize. Ils ont aussi un utilitaire de recherche de fichier très rapide ultra search https://www.jam-software.com/treesize/fix_file_path_too_long_error.shtml Comment corriger l'erreur « Chemin de fichier trop long » « Chemin de fichier trop long » est...
16/09/2024 à 13:25Hoareau Lister fichiers disque dur avec cheminMerci pour le lien Pour ce qui est de me forcer la main, à un problème donné, je cherche une solution rapide, en recherchant sur le net, j'ai vu que vba, était compliqué à mettre en oeuvre, ne connaissant pas l'univers du possible, je m'était orienté vers celui-ci, mais si une solution plus simple e...
15/09/2024 à 16:32Hoareau Lister fichiers disque dur avec cheminPour des raisons de sauvegarde, je dois renommer, un certain nombre de fichiers, dont le chemin dépasse un certain nombre de caractères, pour cause de limite systè me il me faut donc les lister, les renommer manuellement dans une colonne adjacente, puis les réinjecter avec leurs nouveaux noms dans l...
28/08/2024 à 16:17Hoareau Fonction trier concatener rangeImpeccable, merci pour les explications, connaissait pas...
28/08/2024 à 14:20Hoareau Fonction trier concatener rangeJ'ai cette fonction, qui me concatene un range,Function CONCATENATEMULTIPLE Je voudrais qu'avant de concatener, elle me trie les valeurs, dans la fonction elle même, pas sur la feuille, le range doit rester intact Dans la version Function CONCATENATEMULTIPLE_2, j'ai essayé de trier dans un tableau p...
17/06/2024 à 16:14Hoareau Compter Quartiles rangeEffectivement, j'avais pas vu...
16/06/2024 à 14:54Hoareau Compter Quartiles rangeJe sais mais La fonction BubbleSort, s'arrète à : If arr(i) > arr(j) Then donc la macro est arretée...
16/06/2024 à 14:21Hoareau Compter Quartiles rangeMerci Sub CountQuartiles() La fonction BubbleSort, s'arrète à : If arr(i) > arr(j) Then pourquoi...
16/06/2024 à 09:41Hoareau Compter Quartiles rangeQuatre macros pour compter les quartiles, 3 me donne le même résutat, quelque soit ce que je met dans la colonne une ne fonctionne pas "CountQuartiles" J'aimerais savoir pourquoi merci...
16/07/2023 à 11:02Hoareau Placer caractere dans chaine de caractereJe vous remercie, je vais regarder à l'usage les différentes proposition Je pensais que c'était simple ...
14/07/2023 à 23:05Hoareau Placer caractere dans chaine de caractereJe ne comprenais pas Year(Now), j'ai donc remplacé les dates dans A Cela ne marche que pour 2023, résultats ci-dessous Procédure sera insérée dans boucle Cela ne marche que pour 2023, résutats ci-dessous dimanche 14 mai 2023-XXX XX xxxx dimanche 14 mai 2024XXX XX xxxx dimanche 14 mai 2025XXX XX xxxx...
14/07/2023 à 16:33Hoareau Placer caractere dans chaine de caractereMerci je vais essayer de comprendre...
14/07/2023 à 14:27Hoareau Placer caractere dans chaine de caractereDans la procédure suivante, je voudrais arriver à dimanche 14 mai 2023-XXX XX xxxx C'est à dire insérer un tiret après l'annee dans A Merci...
09/06/2023 à 01:34NiniBoboMacro permettant de verifier si un logiciel est ouvert, si non, l'ouvrirUne idée par un batch ! Pas un spécialiste, mais en reprenant les exemples donnés en pièces jointes, la chose doit être faisable...
27/12/2022 à 23:53HoareauRemplacement caractere dans texte VBAMerci pour la réponse le principe comme enoncé : Original D890-ÎBTH-MD?-HCEC les caracteres Î et ? sont remplacés à chaque fois devient numerique : D890-1BTH-MD2-HCEC D890-1BTH-MD3-HCEC D890-1BTH-MD4-HCEC etc ... devient alphanumerique D890-ABTH-MD1-HCEC D890-ABTH-MD2-HCEC D890-ABTH-MD3-HCEC etc .....
27/12/2022 à 00:11HoareauRemplacement caractere dans texte VBADans le texte ci-dessous, deux caractères sont tronqués, Î et ?, il peuvent être, deux par deux soit : D890- Î BTH-MD ? -HCEC - Que des lettres - Que des chiffres - Alphanumeriques Je voudrais donc remplacer, les caractères tronqués, par les combinaisons deux par deux, selon les 3 cas ci-dessus Soit...
06/09/2022 à 00:30olivier231522 Formule paris sportifCela s'appelle le Dutching https://betting.betfair.com/horse-racing/horse-racing-betting-systems.html Le système néerlandais Pour les mathématiciens, l'un des meilleurs systèmes de paris hippiques est la méthode Dutching. En un mot, cette stratégie garantit essentiellement que lorsque vous pariez su...
28/07/2022 à 10:51Hoareau Fonction communs dictionaryMais encore...
28/07/2022 à 03:31Hoareau Fonction communs dictionaryAutre version qui fonctionne modifié : [G20].Resize(, UBound(Communs_2(Plage_1, Plage_2)) + 1) = Communs_2(Plage_1, Plage_2) Function Communs_2(ByVal Plage_1 As Range, ByVal Plage_2 As Range) a = Plage_1 Set MonDico1 = CreateObject("Scripting.Dictionary") For Each c In a MonDico1(c) = "" Nex...
27/07/2022 à 15:49Hoareau Fonction communs dictionaryJ'ai fini par réussir à afficher les valeurs communes Un problème subsiste au niveau du resize, si je met 10 les valeurs commune s'affichent Mais les colonnes sans chiffres se retrouvent avec un dieze essayé avec [G20].Resize(, ubound(Communs_2)) = Communs_2(Plage_1, Plage_2) mais ne passe p...
27/07/2022 à 13:08Hoareau Fonction communs dictionaryJe connais le site J'ai déjà essayé, count,item,keys, rien ne s'affiche J'avais réussi avec une autre procédure dictionnary, mais pas celle là la procédure fonctionne bien, mais la transformer en fonction...
27/07/2022 à 03:37Hoareau Fonction communs dictionaryJ'essaie de modifier la procédure de Boisgonthier, ci-dessous en fonction, pour affichage sur feuille dans procédure vba Communs(Plage_1,Plage_2) soit le nombre, soit les items merci Sub Communs() a = Range("A2:A" & [A65000].End(xlUp).Row) Set MonDico1 = CreateObject("Scripting.Dictionary")...
26/07/2022 à 16:49Hoareau Boucle sur areasImpeccable merci...
26/07/2022 à 02:45Hoareau Boucle sur areasJe pense avoir trouvé la solution, voir fichier et explications "De plus pas nécessaire de boucler sur les Areas ici. Tu peux boucler sur toutes les Cells de la plage complète." C'est justement ce que je ne veux pas faire areas =lignes Vu mes maigres connaissances, j'essaie d'arriver là ou je veux,...
25/07/2022 à 10:41Hoareau Boucle sur areasJ'essaie de boucler sur les areas, d'y appliquer des fonctions, et mettre le résutat dans un tableau La procédure me donne le même résultat dans toutes les valeurs du tableau, alors que cela ne devrait pas être le cas La c'est la fonction couleur, mais cela peut être une autre De plus, je ne réussi...
02/07/2022 à 04:10Hoareau Compter bordure encadrées avec BorderAroundNe trouvant pas la solution avec borderaround, je suis passer par borders For Each f In Plage If f.Borders.ColorIndex = 3 Then Compteur = Compteur + 1 d.Offset(0, 90) = Compteur End If Next Compteur = 0...
01/07/2022 à 04:24Hoareau Compter bordure encadrées avec BorderAroundJ'ai encadré des cellules avec : BorderAround ColorIndex:=3, Weight:=xlThick j'aimerai les compter If F.BorderAround.ColorIndex = 3 Then ne passe pas Cette boucle est incluse dans une autre boucle For Each F In Plage If F.BorderAround.ColorIndex = 3 Then Compte_Bordure = Compte_Bordure + 1 d.Offset(...
02/12/2021 à 01:20jad73Nombre de SortiEnsembleUne piste 1) Remplacer tous les noms par des N° 2) Puis faire recherche comme si c'était des combinaisons La macro ci-dessous n'est pas de moi, mais de pierrejean Sub test() ' Ligne d'affichage des résultats Range("C3:IV3").ClearContents col = 3 'Ligne du quinté à comparer Set quinte = Range("C2:G2"...
28/10/2021 à 03:48HoareauComparer 5 plages dynamiques avec une autre plage dynamiqueJe voudrais Comparer 5 plages dynamiques avec une autre plage dynamique Détail et explications dans fichier joint Début de procédure pour les plages Merci...
12/09/2020 à 05:30jeromechant Récupéré l'adresse web de la page internet ouverteUne solution, via une extention chrome, petit programme à installer sur le navigateur, qui lui ajoute des fonctionnalités puis récupérer le contenu du presse papier dans excel en faisant la recherche , "add on chrome recup url", il y a d'autre solutions ou "add on chrome recup url excel" ceci-dit, j...
22/08/2020 à 13:11Seba13 Recherche 4 critères sur plusieurs lignesUne autre base contexturesblog check-winning-numbers-with-countif-function/...
18/08/2020 à 12:29Seba13 Recherche 4 critères sur plusieurs lignesUne solution pour les combinaisons trier par ordre croisssant, toutes les lignes les concatener 1 4 11 17 1-4-11-17 après on ne cherche plus une combinaison, on cherche une chaine de caractère...
17/08/2020 à 01:29la meuleRecuperation json cotes pmuMerci...
16/08/2020 à 16:10la meuleRecuperation json cotes pmuQue dire j'essaie de mettre, une feuille auteur et site, dans les feuilles que je récupère La procédure supprime toutes les feuilles lors du lancement, hormis réunion je voudrais qu'elle ne me supprime pas la feuille auteur...
16/08/2020 à 15:07la meuleRecuperation json cotes pmuImpeccable Procédure très rapide, aussi bien dans son exécution, que dans sa réalisation Une question, je n'ai pas vu dans le code, de référence directe aux années 20, 19 Je suppose donc que l'année changeant, le code en tiendra compte sans modification merci...
16/08/2020 à 07:18la meuleRecuperation json cotes pmuLes majuscules s'affichent maintenant, c'est bien, c'était quoi le problème? oui, sous cette forme, pour toutes les réunion R1 C1 R1 C2 R1 C3 R1 C4 R1 C5 R1 C6 R1 C7 R1 C8 R1 C9 R2 C1 R2 C2 R2 C3 R2 C4 R2 C5 R2 C6 R2 C7 R2 C8 R2 C9...
16/08/2020 à 00:45la meuleRecuperation json cotes pmu- Les lettres majuscules ADTR, n'apparaissent pas dans la musique splitée, alors qu'elles sont dans la cellule musique Mis en rouge caractère pour visualiser, colonne G - R2/C7, réunion 2, course 7 J'aurais aimé avoir, l'ensemble des réunions et des courses dans la feuille récapitulative, avec une c...
15/08/2020 à 13:29la meuleRecuperation json cotes pmuOui on conserve le json, ,'n'est pas faux, ce n'est pas au niveau newf.Cells(li + 4, 7).Value = .element(li).nombreCourses Ce que j'ai oublié de dire, c'est une autre procédure, que j'ai faite, indépendante de la votre, la votre je n'y touche que si nécessaire,mais qui prends les informations de vot...
15/08/2020 à 08:40la meuleRecuperation json cotes pmuSerait-il possible Dans une nouvelle feuille, récapituler le contenu de tous les onglets sous la forme : Date,Lieux,Prix,R*C*,Num,cheval,cote direct, cote reference, musique, nombre de fois courru par année pour résumer, les mêmes renseignements, sur une feuille unique, avec le même formatage, split...
13/08/2020 à 18:38la meuleRecuperation json cotes pmuSans entrer dans la conversation, je pense que ce qu'il cherche : 'Ajouté par moi, d'après renseignement newf.Cells(li + 4, 7).Value = .element(li).nombreCourses newf.Cells(li + 4, 8).Value = .element(li).nombreVictoires newf.Cells(li + 4, 9).Value = .element(li).nombrePlaces newf.Cells(li + 4, 10)...
12/08/2020 à 18:45la meuleRecuperation json cotes pmuImpeccable merci Je me posai justement la question de la boucle sur toutes les feuilles et voilà que cela arrive sur un plateau, en plus rapide J'ai rajouté d'autres rubrique dans : .element(li).musique mais certaines semblent, ne pas vouloir s'afficher, pas tout testé, ou du moins par encore, pas e...
11/08/2020 à 19:00la meuleRecuperation json cotes pmuMerci...
11/08/2020 à 17:35la meuleRecuperation json cotes pmuIntéressé par ce fichier, j'y ai apporté une procédure Bouton2, qui : - Split la musique dans les colonnes adjacentes - Sépare les courses de l'année, des autres -colore la musique, en fonction de la position d'arrivée Mais, je me heurte à un problème Je réussi à séparer les course de l'année des au...
18/06/2020 à 16:09HoareauTrouver N° colonne correspondant valeur dans rangeAvant de faire des commentaires, regardez l'historique des messages de la personnes et vous verrez si c'est occasionnel ou habituel Ce qui font des demandes, quand t-ils le font, la plus part du temps, je pense qu'il se sont pris la tête dessus, et cherche une solution, sur laquelle, il focalisent,...
18/06/2020 à 16:00HoareauTrouver N° colonne correspondant valeur dans rangeQuand j'envoie, un message, la première chose que je fait, c'est écrire bonjour et merci, ensuite je mets ma demande dans un txt, et je fais un copier coller celui de ce matin le bonjour a sauté, mais il était là Je sais très bien, qu'il aurra quelqu'un qui n'apportera rien de constructif, mais qui...
18/06/2020 à 06:15HoareauTrouver N° colonne correspondant valeur dans rangeJe voudrais la correspondance valeur N° colonnes dans plage_2 Dim Nombre() me donne les valeurs Dim Ligne() doit me donner la correspondance valeur colonne dans plage_2 1) la partie with plage_2 qui est sensée me donner le N° des colonnes qui correspondent aux valeurs dans plage_2 me donne une erreu...