Contributeur

Inscrit le :14/10/2014
Dernière activité :Hier à 18:46
Version d'Excel :Excel 2021 Fr
Emploi :Contributeur
Lieu :Bordeaux
Biographie :Je vous propose un peu plus d'une cinquantaine d'applications et de jeux (54), il y en a pour tous les goûts. A vous de les apprécier ou pas ! lol
Messages
13'611
Votes
2'107
Fichiers
54
Téléchargements
771'037
Fichiers ExcelFichiers Google SheetsSujetsMessagesStatistiquesVotes reçus

Messages postés par LouReeD - page 93

DateAuteur du sujetSujetExtrait du message
01/01/2022 à 23:44SébastienJoyeuses fêtes de fin d'annéeJe pensais que vous auriez une formule plus "clinquante" à proposer... Moi qui me suis décarcasser pour trouver la mienne ! Si je ne l'ai pas encore fait, bonne année et meilleurs vœux à vous ! Ainsi qu'à tout le Staff du site et tous les intervenants et surtout à tous les demandeurs qui font que ce...
01/01/2022 à 23:41Gégé7164 Erreur 9 je ne trouve pas l'erreurBen voilà c'est plus simple ! Votre classeur ne contient pas de d'onglet portant le nom de Feuil9 ! Si Feuil9! est le nom de la feuille sous VBA, c'est le CodeName de la feuille, il suffit donc de le prendre comme variable directement : Feuil9.Range("a" & Dlt) = tbdate Si vous mettez Sheets("nom de...
01/01/2022 à 23:28galopin01Jeu : MMind - 2022Avez vous fait les modifications sur tous les appels des images que j'ai annoncé ci dessus ? Soit le fichier Excel est dans le même dossier que les images, à ce moment là il faut supprimer la référence au dossier "IMG/" et ajouter ThisWorkbook.Path & "/ , soit les images sont dans un dossier "en des...
01/01/2022 à 23:22quik09 Occurrence après conditionSur le fichier exemple, la procédure modifiée met un peu plus de deux secondes pour s'exécuter ! Quel horreur ! Ci dessous un code qui met en mémoire VBA la colonne sur laquelle on fait les recherches, du coup on n'utilise plus la fonction FIND qui fait des accès feuille à chaque fois, ce qui permet...
01/01/2022 à 22:53Gégé7164 Erreur 9 je ne trouve pas l'erreurSans fichier, sans code complet, pas évident pour ce début d'année ! En plus vous n'indiquez pas la ligne surlignée lors du lancement du débogueur... Vous êtes sous quelle version d'Excel ? Si 2003 et inférieur alors essayez de remplacer ceci : par : @ bientôt LouReeD...
01/01/2022 à 22:46galopin01Jeu : MMind - 2022Mais il faut également changer les accès images, soit en ajoutant LoadPicture( ThisWorkbook.Path & "\ IMG/score.gif") si les photos sont dans le dossier IMG, soit en retirant "IMG/" si les photos sont dans le même dossier que l'application, non ? @ bientôt LouReeD...
01/01/2022 à 21:46galopin01Jeu : MMind - 2022Et ATTENTION à la subtilité de galopin01 : ce sont les marques blanches qui donnent la bonne couleur BIEN placée, contrairement à "l'original"... Je suis allé au cirque hier et le spectacle était "Excentrik !", un peu comme vous galopin01 sur ce coup ! Le cirque ? Celui qui tourne en ce moment en Fr...
01/01/2022 à 21:41galopin01Jeu : MMind - 2022Et pour ceux qui sont en 64 bits ! ou bien VBA7, remplacer les lignes de déclaration se trouvant sur le USF avec celles-ci : Ce qui permettra d'être "compatible total"... @ bientôt LouReeD...
01/01/2022 à 18:24quik09 Occurrence après conditionEn effet je suis étourdi ! La variable FIN doit être initialisée à FAUX à l'issue de la première recherche de la valeur de I=0 Donc il faut ajouter avant le "Next I" ceci : Fin = False Pour que les valeurs soient "vraiment" exactes il faut aussi remplacer ceci : Set CelDeb = Range("C:C").Find(I, Loo...
01/01/2022 à 10:37SébastienJoyeuses fêtes de fin d'annéeFormule à mettre en A1, non matricielle et il n'est pas utile de la tirer vers le bas : =CAR(66)&CAR(79)&REPT(CAR(78);2)&CAR(69)&CAR(32)&CAR(65)&REPT(CAR(78);2)&REPT(CAR(69);2)&CAR(32)&CAR(50)&CAR(48)&CAR(50)&CAR(50)&CAR(32)&CAR(33) @ bientôt LouReeD...
31/12/2021 à 15:44fronckLes présentationsOn parle de moi ? En bien j'espère ! Aller, bon réveillon à vous deux et à l'année prochaine ! @ bientôt LouReeD...
31/12/2021 à 12:22Joco7915 Jeu des couleurs terminé@ bientôt LouReeD...
31/12/2021 à 11:21Matzic Chercher du texte dans une plage de donnéesEn effet, une variable permet de mettre en mémoire une donnée récupérée sur une feuille par exemple, et elle est utile si l'on a besoin de la récupérer plusieurs fois cela évite les accès feuille sui sont chronophages. Ici la donnée est utilisée qu'une seule fois donc pas utile de passer par une var...
31/12/2021 à 10:59Matzic Chercher du texte dans une plage de données@Xor, à quoi sert "Plage"? Je taquine en cette fin d'année ! Pour les codes avec boucle il faut ajouter un "Exit For" à la suite du MsgBox, mais cela ne résous pas la demande du singulier et pluriel, h2so4 a encore frappé ! Bon il n'avait pas toutes les données mais le CountIf est ici l'idéal ! @ bi...
31/12/2021 à 09:50abrot53Problème de lien hypertexteC'est ce que j'ai essayé d'expliquer, par manque de decoupage de la valeur alphanumérique c'est le nom des variables qui est pris en compte et non pas leur valeur, donc ma proposition devrait fonctionner à l'erreur près qu'il ne faut pas de double guillemets ! @ bientôt LouReeD...
31/12/2021 à 08:36Baldwin46Compter les valeurs d'une partie de colonneSi c'est le nombrr de valeur, alors ceci peut faire l'affaire : =NBVAL (B40:B44), et si les valeurs sont issues de formules, afin de ne pas compter les formules donnant "rien" : NB.SI(B40:B44;"><") Mais je peux me tromper... @ bientôt LouReeD...
31/12/2021 à 08:25TheFlow31Erreur code aléatoireJ'allais vous le dire de regarder au niveau des sécurités d'Excel... Merci de votre retour et de vos remerciements ! Bon réveillon. @ bientôt LouReeD...
30/12/2021 à 23:53abrot53Problème de lien hypertextePour voir ce qui cloche, lors du survole du lien vous devriez voir le chemin et là vous verrez qu'il y a d'inscrit NOMDOSSIER etc..., non ? @ bientôt LouReeD...
30/12/2021 à 23:52abrot53Problème de lien hypertexteIl y a mélange entre valeur alphanumérique de votre message et variable VBA il faut donc, je pense, entourer tout ceci de guillemet afin de créer des "fenêtres" pour intégrer les valeurs des variables VBA : .HTMLBody = "Bonjour, <p><p>Le planning du <b>" & MailDATE & "</b> a...
30/12/2021 à 23:44philturf Séparation des numéros ayant des points négatifs, neutres, positifsEn reprenant la demande : "formule" je vous propose ces trois formules, pour le négatif, neutre et positif : {=SIERREUR(INDEX($C$5:$C$24;PETITE.VALEUR(SI($D$5:$D$24<0;LIGNE($D$5:$D$24)-4);LIGNE()-4));"")} {=SIERREUR(INDEX($C$5:$C$24;PETITE.VALEUR(SI($D$5:$D$24=0;SI($D$5:$D$24<>"";LIGNE($D$5...
30/12/2021 à 22:44Wild Simulateur draft style NHLJe dois avoir ça dans un de mes dossiers "four tout"... J'en ai plein de "je ne sais ce que c'est" ! Pouvez vous éclairer ma lanterne ? @ bientôt LouReeD...
30/12/2021 à 22:42TheFlow31Erreur code aléatoirePour commencer mettez en commentaire les deux instruction "On Error Resume Next", comme cela vous verrez exactement où se produit l'erreur car la ligne désignée est en fait un double renvoie de fonction... Sinon à la lecture du code, pour moi un CodeName VBA c'est le nom de la feuille sous VBA qui n...
30/12/2021 à 22:35Joco7915Bloquer provisoirement une plageLe retour a été "plus que" fait sur l'autre sujet... @ bientôt LouReeD...
30/12/2021 à 22:33quik09 Occurrence après conditionVoici le code (ou plutôt un des codes car je n'ai pas "la vérité" ! ) : Le principe : On cherche pour commencer la dernière ligne utilisée de la colonne A afin de stopper le scan lorsque l'on arrive à cette ligne. Ensuite on cherche la valeur d'occurrence maximale, ATTENTION ! ici il peut y avoir un...
30/12/2021 à 21:14KTM Récupérer premier jour du moisPourquoi chercher le premier jour du mois si c'est juste pour mettre en forme "mmm-yy" ? A4 =TEXTE(B4;"mmm-aa") peut importe le jour, non ? @ bientôt LouReeD...
30/12/2021 à 21:07KTMSéparateur millier dans textboxVoyez ICI @ bientôt LouReeD...
30/12/2021 à 18:54quik09 Occurrence après conditionC'est très clair ! Merci ! YAPLUKA comme dirait galopin01 @ bientôt LouReeD...
30/12/2021 à 18:50DanPom302 Erreur Objet requisMoi ce que je vois dans ce méli mélo de code, c'est : Set a = Application.Range("A:A").Find(Range("A1").Value, lookat:=xlWhole) a.Select l'erreur est je pense surtout du au fait d'utiliser SET avec une référence à laquelle on a voulue activée. Le fichier que j'ai fourni, dans un des cas c'est une fo...
30/12/2021 à 18:46Valentin85 MFC et Tableau Structuré ?Merci @ vous pour votre retour et vos remerciements ! Bon réveillon de la St Sylvestre ! @ bientôt LouReeD...
30/12/2021 à 18:45Joco7915 Jeu des couleurs terminéJe suis ravis que cela ait l'air de fonctionner... La formule "n'est pas simple" mais j'ai beau faire autrement, le fait que les couleurs peuvent être multiple "des deux cotés" cela engendre des erreurs... Mais pas avec celle-ci ! @ bientôt LouReeD...
30/12/2021 à 18:43GOUJONNombre de mois différents sur l'année en coursEriiic, @ bientôt LouReeD...
30/12/2021 à 18:42Laurentapprenti Décalage d'une partie de texte dans une cellule en VBAMerci pour votre retour et vos remerciements et je vous souhaite également un bon réveillon de la St Sylvestre ! @ bientôt LouReeD...
30/12/2021 à 08:30GOUJONNombre de mois différents sur l'année en coursPour l'année en cours soit 2021... Pour encore deux jours... @ bientôt LouReeD...
30/12/2021 à 00:10Laurentapprenti Décalage d'une partie de texte dans une cellule en VBAEn formule en C4 : =STXT(B4;1;NBCAR(B4)-7)&" "&DROITE(B4;7) Attention ! ici j'ai indiqué 7 alors que le nombre est sur 6 digits, mais vous avez un espace en fin de donnée... @ bientôt LouReeD...
29/12/2021 à 23:46GOUJONNombre de mois différents sur l'année en coursComme même il a ajouté ceci : "Résultat : 3 (car 3 dates avec 3 mois différents sur l'année en cours 2021)" @ bientôt LouReeD...
29/12/2021 à 23:43Valentin85 MFC et Tableau Structuré ?J'oubliais, sur son fichier cela fonctionne car la MFC cible jusqu'à la colonne Q, du coup juste en ajoutant une entête, on agrandi le tableau et la MFC semble se propager, mais ce n'est qu'une illusion ! @ bientôt LouReeD...
29/12/2021 à 23:41Valentin85 MFC et Tableau Structuré ?Ce qui est dommage c'est que la zone de texte "s'applique à " accepte une formule "=", comprend la formule, mais ne la garde pas en mémoire... Ici la prise en compte des colonnes non prises en compte est validée par appliquer, mais aussitôt Excel transforme =Tableau1 par son équivalent en "$A$1" ! j...
29/12/2021 à 23:21DanPom302 Erreur Objet requisD'accord avec vous acide ! D'ailleurs ce n'était pas ma volonté de marquer "application". Ceci dit voir le fichier joint, la feuille une avec la valeur en dur en A1, ou bien la feuille 2 avec un report de valeur avec une formule, dans les deux cas avec application cela fonctionne sur la feuille acti...
29/12/2021 à 21:46DanPom302 Erreur Objet requisLors d'une attribution "Set" je crois qu'il ne faut pas activer : @ bientôt LouReeD...
29/12/2021 à 18:52Joco7915 Jeu des couleurs terminéEnfin ! Voici la formule (une des formules... Les pros des formules pourraient peut-être intervenir maintenant qu'on a bien patauger ! ) que j'ai trouvé et qui à l'air de fonctionner : En fait si le nombre de couleur 1 de la colonne de jeu est supérieur à 0 ET que le nombre de cette même couleur dan...
29/12/2021 à 18:23Joco7915 Jeu des couleurs terminéPour moi au Master Mind plot blanc = nombre de plot de jeu trouvé que la couleur soit répétitive ou pas, donc on peut avoir 4 blancs avec deux rouge et deux vert car ils sont mal placés. En fait pour la correction, il y a autant de place que de place pour les couleurs de jeu. Je cherche encore la fo...
29/12/2021 à 17:49Joco7915 Jeu des couleurs terminéJ'ai du essayer un truc comme cela sur la formule mais il y a une erreur d'affichage dans certain cas : Si je comprend bien ce que veux dire Couleurs présentes... Ici il devrait indiquer 4, non ? C'est pourquoi je cherche encore... @ bientôt LouReeD...
29/12/2021 à 17:44JackyUtilisation de EntireColumnHiddenC'est une manière plus élégante de faire un switch à la place du : @ bientôt LouReeD...
29/12/2021 à 12:59JackyUtilisation de EntireColumnHiddenEn fait on attribut l'état inverse de l'état actuel de la colonne : Etat = not etat => si true alors not true = false, si false alors not false = true @ bientôt LouReeD...
28/12/2021 à 20:47starnain Bug sur Combobox en cascade avec dictionnaireMerci de votre retour et remerciements ! En effet, j'y ai recours depuis que je comprend leur utilité... @ bientôt LouReeD...
28/12/2021 à 20:14quik09 Occurrence après conditionPersonnellement je n'ai pas compris votre paragraphe de 3 lignes... @ bientôt LouReeD...
28/12/2021 à 20:13starnain Bug sur Combobox en cascade avec dictionnaireIl faut jouer avec une variable "interrupteur" afin d'empêcher des mises à jour de ComboBox en dehors d'un fonctionnement nominal. Voici une partie du code à modifier : L'interrupteur ici est "Encours", on le passe à vrai dès que l'on change la valeur de la première ComboBox, puis on le passe à faux...
28/12/2021 à 19:05thval Boucle pour insérer des imagesVous avez vu thval ? On est en période de Noël ! Vous en avez eu de la chance ! Une réponse voir plus qui ont réussi à résoudre votre problème alors même que votre code n'était pas en "balise" et qu'il n'y avait pas de fichier !C'est une bonne chose ces fêtes de fin d'année, non ? @ bientôt LouReeD...
28/12/2021 à 19:02pihuceRenvois a la ligne dans un commandbuttonMerci de votre retour ! @ bientôt LouReeD...
28/12/2021 à 18:35pihuceRenvois a la ligne dans un commandbuttonUn simple Chr(10) à l'endroit où vous voulez couper le texte... En VBA. Ou dans les propriétés du bouton WordWrap = True, cela coupe le texte automatiquement si je ne me trompe pas. @ bientôt LouReeD...