| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 03/01/2022 à 06:14 | Robertpellan | Probleme Formulaire : ne fonctionne que sous un ordinateur précis | Merci pour votre retour et pour vos remerciements ! @ bientôt LouReeD... |
| 03/01/2022 à 06:13 | vic | Sélections intempestives lors d'ouverture d'userform | Essayez de déplacer Application.Wait juste avant le Whith Userform1, il n'y aura peut-être plus le bug du "saut de ligne". @ bientôt LouReeD... |
| 03/01/2022 à 06:09 | vic | Sélections intempestives lors d'ouverture d'userform | J'ai la solution : le code du USF est à placer dans le USF... Mais cela va engendrer des modifications de codage... @ bientôt LouReeD... |
| 02/01/2022 à 23:05 | Robertpellan | Probleme Formulaire : ne fonctionne que sous un ordinateur précis | Et bonne nouvelle ! Sur la SUB Reset modifiez cette ligne : .lstDatabase.ColumnWidths = "30,60,60,40,60,60,70,60,70" par .lstDatabase.ColumnWidths = "30;60;60;40;60;60;70;60;70" Reste à voir comment cela va se passer une fois retourné sur l'ordi d'origine ! @ bientôt LouReeD... |
| 02/01/2022 à 22:59 | Laurentapprenti | Décalage d'une partie de texte dans une cellule en VBA | Essayez de mettre ActiveWorkBook à la place de ThisWorkBook, en effet une macro qui est écrite dans un classeur B par exemple, s'il y a ThisWorkBook alors c'est B qui sera ciblé. Enfin je pense... Jean-Eric ? Je ne suis pas très fort sur les multi classeurs ! @ bientôt LouReeD... |
| 02/01/2022 à 22:54 | vic | Sélections intempestives lors d'ouverture d'userform | Il semble que ce soit du à un "reste" du clic de la souris alors que le USF est en cours de mise en place... Pour corriger, il "suffit" d'ajouter : Application.Wait (Now + TimeValue("00:00:01")) avant le ".Show". Une autre solution est de mettre à "0" le paramètre StartUpPosition du USF, puis mettre... |
| 02/01/2022 à 12:09 | galopin01 | Jeu : MMind - 2022 | Dommage de modifier le code pour que cela fonctionne, alors qu'il suffisait de faire un copier/coller des lignes de codes proposées... Le monde évolue ainsi qu'Excel et Windows, on est de plus en plus nombreux à être en 64bits ! Combien d'essais avons nous pour trouver ? Attention ! une fois une cou... |
| 02/01/2022 à 11:13 | ghislain devos | Saut de cellule involontaire | Je n'ai pas tout compris, mais vous devriez structurer vos tableau différemment en ayant par exemple une colonne Chevaux afin de les identifier, comme cela vous vous retrouvez avec un seul tableau à double entrée... @ bientôt LouReeD... |
| 02/01/2022 à 09:44 | galopin01 | Jeu : MMind - 2022 | @ bientôt LouReeD... |
| 01/01/2022 à 23:47 | MC83 | Croissance d'une plage incomplète | Merci de votre retour et vos remerciements ! @ bientôt LouReeD... |
| 01/01/2022 à 23:45 | Matzic | Chercher du texte dans une plage de données | Merci pour votre retour et vos remerciements ! Et bonne année à vous ! @ bientôt LouReeD... |
| 01/01/2022 à 23:44 | Sébastien | Joyeuses fêtes de fin d'année | Je 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:41 | Gégé7164 | Erreur 9 je ne trouve pas l'erreur | Ben 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:28 | galopin01 | Jeu : MMind - 2022 | Avez 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:22 | quik09 | Occurrence après condition | Sur 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:53 | Gégé7164 | Erreur 9 je ne trouve pas l'erreur | Sans 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:46 | galopin01 | Jeu : MMind - 2022 | Mais 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:46 | galopin01 | Jeu : MMind - 2022 | Et 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:41 | galopin01 | Jeu : MMind - 2022 | Et 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:24 | quik09 | Occurrence après condition | En 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:37 | Sébastien | Joyeuses fêtes de fin d'année | Formule à 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:44 | fronck | Les présentations | On 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:22 | Joco7915 | Jeu des couleurs terminé | @ bientôt LouReeD... |
| 31/12/2021 à 11:21 | Matzic | Chercher du texte dans une plage de données | En 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:59 | Matzic | 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:50 | abrot53 | Problème de lien hypertexte | C'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:36 | Baldwin46 | Compter les valeurs d'une partie de colonne | Si 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:25 | TheFlow31 | Erreur code aléatoire | J'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:53 | abrot53 | Problème de lien hypertexte | Pour 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:52 | abrot53 | Problème de lien hypertexte | Il 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:44 | philturf | Séparation des numéros ayant des points négatifs, neutres, positifs | En 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:44 | Wild | Simulateur draft style NHL | Je 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:42 | TheFlow31 | Erreur code aléatoire | Pour 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:35 | Joco7915 | Bloquer provisoirement une plage | Le retour a été "plus que" fait sur l'autre sujet... @ bientôt LouReeD... |
| 30/12/2021 à 22:33 | quik09 | Occurrence après condition | Voici 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:14 | KTM | Récupérer premier jour du mois | Pourquoi 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:07 | KTM | Séparateur millier dans textbox | Voyez ICI @ bientôt LouReeD... |
| 30/12/2021 à 18:54 | quik09 | Occurrence après condition | C'est très clair ! Merci ! YAPLUKA comme dirait galopin01 @ bientôt LouReeD... |
| 30/12/2021 à 18:50 | DanPom302 | Erreur Objet requis | Moi 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:46 | Valentin85 | 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:45 | Joco7915 | 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:43 | GOUJON | Nombre de mois différents sur l'année en cours | Eriiic, @ bientôt LouReeD... |
| 30/12/2021 à 18:42 | Laurentapprenti | Décalage d'une partie de texte dans une cellule en VBA | Merci 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:30 | GOUJON | Nombre de mois différents sur l'année en cours | Pour l'année en cours soit 2021... Pour encore deux jours... @ bientôt LouReeD... |
| 30/12/2021 à 00:10 | Laurentapprenti | Décalage d'une partie de texte dans une cellule en VBA | En 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:46 | GOUJON | Nombre de mois différents sur l'année en cours | Comme 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:43 | Valentin85 | 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:41 | Valentin85 | 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:21 | DanPom302 | Erreur Objet requis | D'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:46 | DanPom302 | Erreur Objet requis | Lors d'une attribution "Set" je crois qu'il ne faut pas activer : @ bientôt LouReeD... |