| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 22/01/2022 à 08:33 | Invité | Trie par couleur les cellules | Vous pouvez aussi comme indiqué plus haut faire les trois formules rouge vert bleu et nul besoin de boucle... @ bientôt LouReeD... |
| 22/01/2022 à 00:24 | xxmedxx | Compteur somme cellules | En vba mettez ce code sur la feuille et modifiez K1 avec la valeur de la cellule voulue pour afficher la somme : @ bientôt LouReeD... |
| 22/01/2022 à 00:13 | Invité | Trie par couleur les cellules | Mille excuses ! Je suis en darkmode ! Sinon deuxième test en ajoutant le MAX des trois valeur RGB... @ bientôt LouReeD... |
| 22/01/2022 à 00:05 | Invité | Trie par couleur les cellules | Pareil ce n'est pas concluant... @ bientôt LouReeD... |
| 21/01/2022 à 23:53 | Invité | Trie par couleur les cellules | Voilà j'ai retrouvé ! J'en parlais ici . un meilleur contraste du texte en fonction de la couleur de fond de la cellule, il y a sur le net une formule qui dit : SI ((Red value X 299) + (Green value X 587) + (Blue value X 114)) / 1000 < 125 ALORS AFFICHER DU BLANC (#FFF) SINON du NOIR (#000) Pour... |
| 21/01/2022 à 23:40 | Invité | Trie par couleur les cellules | Bonsoir @ tous ! eriiic du "crossposting-answer" ? Je crois avoir répondu à un message afin de déterminer le contraste d'une couleur afin de savoir avec qu'elle couleur écrire un texte. Ce calcul pourrait être utilisé pour créer un ordre de grandeur. C'est peut-être le cas avec le HSL... Bonne soiré... |
| 21/01/2022 à 23:27 | xxmedxx | Compteur somme cellules | Même avec Excel 2007 ? @ bientôt LouReeD... |
| 21/01/2022 à 23:26 | MC83 | Relever les 5 dernières valeurs d'une liste de nombres | Formule à mettre en I2 de votre fichier exemple : =INDEX($N2:$X2;GRANDE.VALEUR(SI($N2:$X2<>"";COLONNE($N2:$X2));14-COLONNE())-13) à valider avec l'appuis simultanée des trois touches : Shift + Ctrl + Enter. Une fois fait vous pouvez la "tirée" vers la droite jusqu'à M2, ensuite vous pouvez "ti... |
| 21/01/2022 à 23:12 | MC83 | Relever les 5 dernières valeurs d'une liste de nombres | On peut créer une matrice sur le numéro des colonnes en vérifiant qu'il y ait bien une donnée <>"" en cellule, une fois cette matrice créée alors il suffit d'en prendre les 5 plus grand nombre ce qui retournera les 5 valeurs en partant de la droite de la plage vers la gauche. Tout ceci en matr... |
| 21/01/2022 à 23:04 | KMN | Réorganiser l'ordre des colonnes avec leur nom | Avec l'instruction Find vous pouvez chercher une valeur dans une plage et elle vous retourne un objet Range s'il y a bien une valeur à trouver. Donc la plage correspondrait à la ligne des entêtes de vos colonnes : Set Plage = Range("A1:Z1") On définie Trouve comme un objet Range et il recevra le rés... |
| 21/01/2022 à 22:48 | xxmedxx | Compteur somme cellules | Sinon cela s'affiche en bas à droite dans la barre de statu, non ? @ bientôt LouReeD... |
| 21/01/2022 à 22:47 | Nairda | Trunc(Round(Nombre décimel),2)2) | Si j'ai bien compris : Worksheets("Résultat").Range("A" & i) = Round(Worksheets("BDD").Range("B" & i).Value * 1260, 2) @ bientôt LouReeD... |
| 21/01/2022 à 22:31 | Darkangel | Verifier qu'une date est dans l'année x | Et que pour que le calcul se fasse toujours sur l'année en cours, remplacez "2022" par ANNEE(AUJOURDHUI())... @ bientôt LouReeD... |
| 21/01/2022 à 22:24 | georg | Formulaire polyvalent CRUD et recherche intuitive | @ bientôt LouReeD... |
| 21/01/2022 à 22:23 | Jean-Paul | Poblème avec EVALUATE | Voici le code modifié et customisé ! La variable "Ligne" fait son apparition, le nombre de colonne de la ListBox est fonction de cette variable, de la taille du tableau source et/ou de ColExtract. Une gestion d'erreur afin de détecter un résultat "nul" et mise en place de la gestion du résultat uniq... |
| 21/01/2022 à 21:19 | Jean-Paul | Poblème avec EVALUATE | Le premier code fourni "à l'origine" gérait le problème de la seule donnée avec un on error resume next, après pour un tableau vide il faut tester si le tableau est vide ou pas avant l'exécution du code. @ bientôt LouReeD... |
| 21/01/2022 à 18:53 | Jacky | Travailler avec deux écrans | C'est peut etre du à la même incohérence que l'ouverture des fichiers Excel : deux fichiets word, double clic pour les ouvrir, on a deux fenêtres distinctes, deux fichiers excel, double clic pour les ouvrir, on a qu'une fenêtre avec les deux cessions... Pour éviter cela il faut bidouiller le registr... |
| 21/01/2022 à 18:14 | Patapin85 | Cellules non vides qui semblent vides | Pouvez vous fournir un fichier avec la grille de départ, et le résultat voulu en grille d'arrivée ? L'idée est d'avoir une liste de mot sur la gauche avec une grille en face ayant les cellules vides correspondant à ces mots. Comment déterminer l'emplacement de ces mots sur la grille réponse ? Y a t... |
| 21/01/2022 à 17:40 | georg | Formulaire polyvalent CRUD et recherche intuitive | Merci pour vos remerciements ! Je n'ai pas fait grand chose par rapport au fichier, si ce n'est l'adapter à vos demandes ! Pour ma part j'ai travaillé (je travaille et travaillerai) sur un USF "universel". le but de celui-ci est de s'adapter automatiquement au tableau structuré se trouvant sur la fe... |
| 21/01/2022 à 09:03 | Jean-Paul | Poblème avec EVALUATE | Ci joint un fichier test avec une seule condition pour l'extraction mais le fait d'en rajouter n'est pas compliqué. Une fois le tableau d'extraction créé, il est intégré à la ListeBox et tout ceci en VBA sans accès feuille : @ bientôt LouReeD... |
| 20/01/2022 à 22:00 | georg | Formulaire polyvalent CRUD et recherche intuitive | Les remerciements pour une fois arrivent un peu vite non ? Je n'ai pas trop de temps en ce moment, du coup je donne des réponses rapides et voir à coté de la plaque, mais là je crois avoir répondu à tout non ? Enfin après ce qui suit... Ci joint votre fichier avec les modifications demandées, enfin... |
| 20/01/2022 à 10:38 | georg | Formulaire polyvalent CRUD et recherche intuitive | C'est ce que je dissais, la fonction attend un "Long" actuellement, il faut donc mettre "String" en lieu et place du "Long" @ bientôt LouReeD... |
| 20/01/2022 à 05:09 | georg | Formulaire polyvalent CRUD et recherche intuitive | Supprimer ce format numérique et écrire l'iD entièrement, du coup ça devient de l'alphanumerique et tout s'affichera dans le textbox. @ bientôt LouReeD... |
| 19/01/2022 à 23:21 | georg | Formulaire polyvalent CRUD et recherche intuitive | Modification à faire dans la textbox1.change : Le principe : si la listbox.count passe à 1 (une seule valeur affichée) alors on lance la recherche de la ligne correspondante et on lance les procédure Crud de lecture de donnée. Pour le format, c'est soit vous le passez en alphanumérique dans votre ta... |
| 19/01/2022 à 22:35 | JeanBaptisteP | Agir sur une des feuilles du classeur depuis Userform | Ca pique les yeux ! Non pas que le jaune soit trop jaune, mais qu'est ce que c'est que cette mise en forme ? un tableau avec quatre colonne qui va de B à P ! 5 lignes qui vont de 45 à 54 ! Pour la "grande" case, il vous est possible d'élargir les colonnes ! Je dis ça, je sais que ça ne résout pas la... |
| 19/01/2022 à 22:28 | georg | Formulaire polyvalent CRUD et recherche intuitive | Comme ceci : Modification du code de ListeBox Change : et dans le module "Main" ajoutez cette fonction : En fait la récupération de la ligne où se trouve les données se fait par la recherche de l'iD du personnel "cliqué", comme cela il n'y a pas de relation position ListeBox et position tableau de d... |
| 19/01/2022 à 22:02 | georg | Formulaire polyvalent CRUD et recherche intuitive | En fait lorsque vous "filtrez" pour une recherche, il y a bien mise à jour de la listbox1, mais le problème vient du fait que le "crud" est fait pour un affichage complet des données car ces dernières dans la ListeBox correspondent à celles du tableau de donnée : lorsque vous cliquez sur la deuxième... |
| 19/01/2022 à 21:08 | Jean-Paul | Poblème avec EVALUATE | C'est ce que j'ai dis dans mon message : Une fois le tableau copié sur une feuille, il est facile de le mettre en liste pour votre USF, voir il n'est peut-être pas utile de passer par une feuille... Oui on peut très bien remplir une ListeBox avec un tableau en "mémoire" VBA. Reste à voir comment ! C... |
| 18/01/2022 à 23:04 | fronck | Traiter les photos dans un formulaire | Fauconiner ? Je ne le connais pas celui là ! @ bientôt LouReeD... |
| 18/01/2022 à 23:01 | Oujikun | Attente la fin de l'actualisation pour continuer | Mais pas de soucis de mon côté, je plaisante, j'ai tellement à apprendre à côté de vous tous ! @ bientôt LouReeD... |
| 18/01/2022 à 20:22 | Oujikun | Attente la fin de l'actualisation pour continuer | C'est pas la première fois que je dis des conneries et je rassure tout le monde ce n'est pas la dernière non plus ! Je n'ai fait que rapporter le résultat d'un surf, mais je ne suis pas sportif aquatique alors c'es "coulé"! Pour dire je n'ai même pas pris le trmps de créer un fichier pour faire les... |
| 18/01/2022 à 10:52 | Oujikun | Attente la fin de l'actualisation pour continuer | Avez vous essayé de connaitre la valeur renvoyée par qtb.Refreshing ? Perso je n'ai pas fait de test. Le problème avec Application.Wait c'est que cela fiche l'application et c'est précis à la seconde près. Avec une petite boucle Do Loop While et un Timer, vous avez la possibilité de régler la tempo... |
| 18/01/2022 à 10:47 | Jean-Paul | Poblème avec EVALUATE | Et bien le bonjour en cette belle journée ! @ bientôt LouReeD... |
| 18/01/2022 à 10:46 | Ludovic Stengel | Faire disparaitre #VALEUR! si cellule vide | Avec =SI(ESTVIDE(Feuil1!E3);"";Feuil1!E3), la fonction regarde si la cellule E3 est vide, or il y a une formule qui renvoie "" mais elle n'est pas vide... avec =SIERREUR(SI(Feuil1!E15="";"";Feuil1!E15);"") cela fait le test du "vide" et de l'erreur en une seule formule... @ bientôt LouReeD... |
| 17/01/2022 à 22:45 | ptrs32 | [Excel 2013] Concatener plage de valeurs sous condition | 3GB bonsoir, une proposition en formule "à rallonge" : =STXT(SUBSTITUE(SI(NB.SI(C3:C17;$A$1)>0;"";"1 ")&SI(NB.SI(C3:C17;$B$1)>0;"";"2 ")&SI(NB.SI(C3:C17;$C$1)>0;"";"3 ")&SI(NB.SI(C3:C17;$D$1)>0;"";"4 ")&SI(NB.SI(C3:C17;$E$1)>0;"";"5 ");" ";",");1;NBCAR(SUBSTITUE(SI(NB.SI(C3:C17;$A$1)&... |
| 17/01/2022 à 22:32 | Oujikun | Attente la fin de l'actualisation pour continuer | En testant la valeur de .Refreshing qui doit être à True si "en cours" avec une boucle DoEvents : Enfin c'est une idée après un petit surf sur le net... L'idée : on boucle "infini" tant que la table est en cours de rafraichissement, sinon on sort, de c efait on passe à la table suivante etc... puis... |
| 17/01/2022 à 21:55 | Fraise678 | Fonctions dans VBA | Pas mieux, désolé ! Perso je n'en connais qu'un ! @ bientôt LouReeD... |
| 17/01/2022 à 21:50 | Jean-Paul | Poblème avec EVALUATE | Jean-Paul ci dessous un code qui utilise Find afin de collecter des lignes d'une plage de données, cette dernière étant récupérée dans un tableau sous VBA afin d'augmenter la vitesse d'exécution : TabDonnées récupère votre plage de données. ColExtract est (si vous voulez) un tableau d'extraction des... |
| 17/01/2022 à 18:25 | fronck | Traiter les photos dans un formulaire | Fronck, veuillez m'excusez pour l'oubli du "r", désolé. Je n'édite pas mes messages sinon celui ci ne servirait à rien ! @ bientôt LouReeD... |
| 17/01/2022 à 14:37 | fronck | Traiter les photos dans un formulaire | @Jacky : je sais que votre code est bien écrit mais si fonck corrige le sien sans faire de copier/coller du votre alors l'erreur du point persistera, c'est le pourquoi de ma remarque, vu que celle du chemin déjà faite et celle de l'extension fichier également... @ bientôt LouReeD... |
| 17/01/2022 à 13:12 | fronck | Traiter les photos dans un formulaire | JoyeuxNoel ! Merci pour l'astuce, en effet dans la barre de l'explorateur windows nous donne "bureau" alors que ce n'est pas "que ça"! Sinon dans le code de fonck ne manque t il pas également des "." devant Image1 ? @ bientôt LouReeD... |
| 16/01/2022 à 21:31 | tikeur78 | Incrémenter 2 VBA | Demain matin disiez vous ? @ bientôt LouReeD... |
| 16/01/2022 à 21:30 | Jean-Paul | Poblème avec EVALUATE | Jean-Eric : et bien non je n'apprivoise pas 365... Je fais avec ou plutôt sans 2019 ! Sans parler de nouvelle versions, ne serait ce par mon évolution de connaissance dans VBA, en effet, je devrais reprendre mes applications ! Mais bon, j'ai déjà du mal à finir celles en cours... @ bientôt LouReeD... |
| 16/01/2022 à 20:50 | Ludovic Stengel | Faire disparaitre #VALEUR! si cellule vide | Dans le cas d'un zéro d'une formule qui n'affiche pas d'erreur, soit vous faites un test sur la valeur de la formule : =SI(FEUIL1!E15=0;"";FEUIL1!E15) ou bien dans les options Excel de la feuille décochez :"afficher un zéro pour les formules renvoyant un résultat nul" @ bientôt LouReeD... |
| 16/01/2022 à 10:22 | Jean-Paul | Poblème avec EVALUATE | Essayez en déclarant rRange comme étant un tableau range Dim rRange() As Range @ bientôt LouReeD... |
| 15/01/2022 à 22:28 | Jean-Paul | Poblème avec EVALUATE | Pouvez vous essayer avec cette version de formule : =INDEX(FILTER(Tableau1,Tableau1[Validé]=FALSE),SEQUENCE(COUNTIFS(Tableau1[Validé],FALSE)),{3,9,11,12,18,19,20,21,22}) Sous VBA ne faut il pas que ce soit en anglais ? Avec EVALUATE certainement pas, je ne sais pas... Voir créer une... |
| 14/01/2022 à 07:12 | crackwood01 | Barre de progression basé sur un pourcentage déjà établie dans une cellule | Désolé, j'ai du manger le mot "USF" à la lecture... Pauvre de moi BrunoM45 veille ! Bonjour à vous ! @ bientôt LouReeD... |
| 13/01/2022 à 22:04 | crackwood01 | Barre de progression basé sur un pourcentage déjà établie dans une cellule | Cela existe dans les Mises en Forme Conditionnelles. @ bientôt LouReeD... |
| 13/01/2022 à 22:03 | reinruof77 | Fichier de suivi COVID | Je n'ai pas cherché à simplifier votre formule, j'ai juste ajouter au début une condition avec l'instruction Recherche qui retourne la dernière valeur d'une plage en contournant le fonctionnement de cette fonction : =RECHERCHE("zzzz";B2:E2) donnera la dernière valeur inscrite sur les 4 colonnes, il... |
| 13/01/2022 à 20:49 | tikeur78 | Incrémenter 2 VBA | Avez vous le fichier qui va avec ces codes non mis en "balise" ? Sur le deuxième, la boucle "For Each In Next" me fait mal à la tête. En effet vous parcourez une collection et si vous trouvez ce que vous cherchez alors Trouvé passe à vrai, le truc c'est que si vous trouvé dès la première rotation et... |