Contributeur

Inscrit le :14/10/2014
Dernière activité :Il y a 44 minutes
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'650
Votes
2'107
Fichiers
54
Téléchargements
777'182
Fichiers ExcelFichiers Google SheetsSujetsMessagesStatistiquesVotes reçus

Messages postés par LouReeD - page 29

DateAuteur du sujetSujetExtrait du message
10/06/2024 à 20:48Invité Protéger une formule en conservant l'accès à la liste déroulanteEn premier jet il n'est pas possible d'avoir une liste de choix ET une formule sur la même cellule. Le VBA je pense sera nécessaire. @ bientôt LouReeD...
10/06/2024 à 20:44NicDewRecherche la première information, la deuxième et la troisière"à la vielle" avec formule INDEX et PETITE.VALEUR : =SIERREUR(INDEX($C$1:$M$1;PETITE.VALEUR(SI($C$2:$M$2="A";COLONNE($C$2:$M$2)-2;9^9);LIGNE(1:1)));"") Mais où je met cela ? Et bien sur mon fichier joint ! Explications : INDEX permet de renvoyer la donnée se trouvant à l'intersection d'une ligne et...
09/06/2024 à 22:27MICKAEL59 Obliger la saisie d'une chaîne de caractères personnalisée dans TextBoxJe vérifie que ce sont des majuscules... Il faut verrouiller le clavier. @ bientôt LouReeD...
09/06/2024 à 21:40MICKAEL59 Obliger la saisie d'une chaîne de caractères personnalisée dans TextBoxVoici une proposition pour la textbox2 : ne contrôle pas la véracité de l'année, ne permet que les chiffres dans un premier temps, ensuite permet les chiffres et les majuscules alphanumériques. @ bientôt LouReeD...
09/06/2024 à 10:29MICKAEL59 Obliger la saisie d'une chaîne de caractères personnalisée dans TextBoxUn exemple de code pour le premier TextBox : @ bientôt LouiReeD...
09/06/2024 à 10:15MICKAEL59 Obliger la saisie d'une chaîne de caractères personnalisée dans TextBoxSous USF vous avez la propriété "Change" du textBox, vous pouvez y associer un code de vérification en fonction du nombre de caractères entré. If Len(TextBox) = 4 And Mid(Textbox,4,1)<>"-" Then MsgBox("Erreur sur le caractère"). Un peu lourd peut-être ? Sinon vous pouvez mettre le "-" automati...
09/06/2024 à 10:05chelle2Si le numéro de l'arcane de l'année dépasse le chiffre 22 alors le réduireMerci de ce retour. Merci de déposer votre solution pour la "communauté", comme cela s'il se trouve des personnes ayant une demande similaire... @ bientôt LouReeD...
08/06/2024 à 21:15chelle2Si le numéro de l'arcane de l'année dépasse le chiffre 22 alors le réduireUne formule qui fonctionne mais le résultat sera variable à chaque recalcul de la feuille/classeur : =SI(E5+K7>22;ALEA.ENTRE.BORNES(1;9);E5+K7) @ bientôt LouReeD...
07/06/2024 à 10:41COPPE Déplacer 1 ligne sélectionnée vers le haut ou le bas grâce à un boutonQue vous montiez ou descendiez le principe de collage par insertion et décalage des lignes vers le bas reste le même, ce n'est que la désignation de la ligne de référence qui change. Si vous descendez la ligne 10, vous l'insérer entre la ligne 11 et 12, comme sous Excel les lignes insérées se metten...
06/06/2024 à 21:39Kerion Arrêter l'exécution d'une macro si un UserForm ne produit aucun effetMettez vos appels Subs LockProj et PasteValues dans le code du USF dans le "If" de votre boucle de "i", comme cela si un "i" cliqué alors on lance les codes sinon il n'y a rien de fait... @ bientôt LouReeD...
06/06/2024 à 21:34COPPE Déplacer 1 ligne sélectionnée vers le haut ou le bas grâce à un boutonSous Excel vous avez l'enregistreur de macro qui peut vous aider : Ceci coupe une ligne ici la sélection était la ligne 11, puis on sélectionne la ligne 10, avec le clic droit, on choisi "insérer la ligne copiée". Ensuite avec un peu de nettoyage et de suppression de "Select" on obtient ceci pour mo...
06/06/2024 à 21:22Sacha du 64Tableau avec ajout de ligne en haut comment lier une mise en formeSi votre ligne insérée est la 10, alors vous devriez avoir en ligne 9 les entêtes de votre plage de données. Si vos MFC s'appliquent aux colonnes des données sans prendre l'entête (S'applique à : =$A$10:$F$15 pour un tableau de 6 lignes de données). Alors lors d'une insertion de ligne en haut le "s'...
05/06/2024 à 21:38cmoa83Correction du formuleVous pouvez jouer sur les options : en décochant celle "afficher un zéro dans les ...." @ bientôt LouReeD...
05/06/2024 à 21:27cedruspendulaGEProblème Tuto Diagramme de GanttUne correction à faire, mais ce n'est peut-être pas la seule : Dans les formules remplacez "duree" par "durée" : Sous l'onglet "formules" sur la droite vous avez "évaluer la formule" : Cela permet de "dérouler" une formule pas à pas et de "voir" où l'erreur #NOM? apparait ! @ bientôt LouReeD...
05/06/2024 à 21:14L0ki CheckBox à cocherJ'essaie de répondre à votre première question : Si vous allez dans le menu développeur et que vous insérez une checkBox ActiveX, vous avez en "format de l'objet" 4 onglets. Si vous allez dans le menu développeur et que vous insérez une checkbox de formulaire, vous avez en 'format de l'objet" 6 ongl...
05/06/2024 à 21:06siccmdlExcel - Calcul de date selon criteres et jours feriesAller un peu de lecture ! La formule : =SI(ET(D$6>=$B7;D$6<=$C7);D$6;SI(ET(D$6+((NB.SI(D$6:D6;">0")-1)*D$3*7)>=$B7;D$6+((NB.SI(D$6:D6;">0")-1)*D$3*7)<=$C7);D$6+((NB.SI(D$6:D6;">0")-1)*D$3*7);"")) En fait on a une condition SI, celle-ci est basée sur un double test : D$6>=$B7...
04/06/2024 à 22:46xavierdep Entrer une information dans plusieurs cellulesBonsoir @ vous ! Petite information : Vu que votre tableau est un tableau structuré sous Excel, voici un code qui prend en compte cette particularité : L'avantage ? Le code ne prend plus en compte le nom des colonnes : si vous décidez de déplacer le tableau le code fonctionnera toujours. Plus de rec...
04/06/2024 à 22:28siccmdlExcel - Calcul de date selon criteres et jours feriesEn cellule A1 la date du début du planning. On en déduit la date du premier lundi de l'année, et de cela on en déduit la date du dimanche ainsi que le numéro de semaine, donc colonne AB et C sont automatiques, il suffit de modifier A1 pour changer d'année. Les 5 colonnes après la C donc D, E, F, G e...
04/06/2024 à 15:13Joco7915 Bien répartir les lettresJe plaisante ! @ bientôt LouReeD...
03/06/2024 à 18:45jeromeDD Changement du format de date lors de l'execution d'une macroUne proposition en forçant le changement entre mois et jour : A savoir que vos dates en colonne A ne sont pas des dates ! Elles sont alignées à gauche = alphanumérique, les dates sont des entiers correspondant à leur position depuis le 01/01/1900, donc un alignement à droite lorsque la cellule est e...
03/06/2024 à 18:36Joco7915 Bien répartir les lettres"toutes les lettres réparties dans les 4 groupe" il faut donc 7 lettres au hasard dans les 4 groupes, mais un groupe se retrouve à 5 lettres, si toutes fois vous parlez bien des 26 lettres par "toutes les lettres" ? Peuvent elles être mélangées ? Je vous avoue ne pas comprendre... @ bientôt LouReeD...
03/06/2024 à 18:32siccmdlExcel - Calcul de date selon criteres et jours feriesMerci de votre retour et remerciement ! @ bientôt LouReeD...
03/06/2024 à 09:34Polar. Application d'un format de cellule en fonction d'une valeur dans une colonMerci pour votre retour et remerciement ! @ bientôt LouReeD...
02/06/2024 à 22:37chelle2 Un prénom avec chaque lettre dans chaque case au prénom entierVous avez aussi : =CONCAT(D6:K6), mais il faut Excel 2016 je crois minimum, donc c'est râpé avec 2007... @ bientôt LouReeD...
02/06/2024 à 18:03galopin01 VBA : Ellipse (et plus si affinité...)Modification de l'EventClik : Vu que les shapes sont créés dans l'ordre croissant et que le tableau est construit dans le même sens pour le shape Hex037 ses données sont en ligne 37 du tableau TabSRC ! C'est plus simple que le Find ! Ensuite j'ai modifié les formules de colonnes "O" à "SO" pour y af...
02/06/2024 à 17:05L0ki CheckBox à cocherMais de rien ! Ca fait plaisir ! @ bientôt LouReeD...
02/06/2024 à 16:46galopin01 VBA : Ellipse (et plus si affinité...)Donc c'est bien ce que je pensais, vous partez d'un hexagone centré sur l'ellipse et de là vous créez les autres. mais du coup vous pouvez perdre un shape en largeur sur cette ligne d'axe horizontal de l'ellipse, car une fois centré comme ceci vous pouvez avoir de chaque côté 0.75 shape donc aucun c...
02/06/2024 à 14:44galopin01 VBA : Ellipse (et plus si affinité...)Une colonne ajoutée pour les lettres dans le tableau DATA, et une autre pour la somme des voisins avec cette formule : =SOMMEPROD((SI(TabSRC[@[O]:[SO]]<>"";2^(COLONNE(TabSRC[@[O]:[SO]])-8);0))*1) Le moins 8 sera à modifier s'il y a ajout ou suppr...
01/06/2024 à 23:27Polar. Application d'un format de cellule en fonction d'une valeur dans une colonSi l'intention est de faire un copier/coller pur et simple alors un "copy destination est plus rapide : Range("Total_format").Copy Destination:=Sheets("BOQ Model").Range("B" & n) Comme cela pas de Select, pas besoin d'afficher la feuille, on se sert simplement du nom sous "Excel" pour aller cherche...
01/06/2024 à 23:22Buraliste Fenêtre lien hypertexte dans un UserFormMerci pour ce retour de la part de tous les futurs chercheurs ! @ bientôt LouReeD...
01/06/2024 à 23:21galopin01 VBA : Ellipse (et plus si affinité...)Mise en place des hexagones sur l'ellipse tout en empêchant de le faire sur une zone rectangulaire centrale (invisible), Avec attribution d'une action sur le clic, avec inscription d'une lettre au hasard dans les shapes, avec inscription dans le "Tag" et le remplissage du tableau de données par l'in...
01/06/2024 à 22:19galopin01 VBA : Ellipse (et plus si affinité...)En prenant l'idée des sommets dans un tableau : @ bientôt LouReeD...
01/06/2024 à 20:59L0ki CheckBox à cocherFaut juste savoir les gérer ! Je plaisante ! @ bientôt LouReeD...
01/06/2024 à 20:06galopin01 VBA : Ellipse (et plus si affinité...)Autant pour moi ! J'ai 28 shapes sur la ligne centrale ! Vous en avez 27 ! Mon ellipse sous Excel fait : 22,23 x 41,98, mes hexagones sous Excel font : 1.68 x 1,45 Votre ellipse sous Ecxel fait : 22,02 x 43,21, et vos hexagones sous Excel font : 1,66 x 1,49... Mince il y a du zoom ! Mise à 100% : vo...
01/06/2024 à 18:40galopin01 VBA : Ellipse (et plus si affinité...)BsAlv je n'avais pas téléchargé la dernière version ! l'écart de 1 est une erreur de mon code, sur le Cpt=Cpt+1 je pense car si on réfléchie : Une ligne horizontal des shapes qui sépare en deux zones identiques les autres shapes. Si chaque zone est impaire alors l'addition est paire, et si chaque zo...
01/06/2024 à 18:28galopin01 VBA : Ellipse (et plus si affinité...)BsAlv, je n'ai rien modifié mais pour comparer vos 0.44 secondes pour créer les shapes, j'ai seulement déplacer mon "Tempo = Timer" après la suppression des shapes existant sur la feuille et après la suppression des lignes de données du tableau TabSRC afin de comparer avec votre "t1". Bon sinon mon...
01/06/2024 à 18:20L0ki CheckBox à cocher"Il faudrait que je m'y remette..." et bien voilà c'est fait ! Ce fichier fonctionne ! Et pour le 15... ArkaLouReeD en affiche beaucoup plus : chaque chiffres des scores c'est un objet, 3 balles, trois monstres, 3 raquettes spare, les deux portes, le cadre, le fond, le passage de téléportation, sans...
31/05/2024 à 23:40L0ki CheckBox à cocherPour ceci : "Il faut éviter de placer trop d'objets sur une feuille, ça se termine souvent mal. Et trop pour Excel ça peut être 10." je dirais que ce n'est pas toujours vrai ! YAKAVOIR (comme dirait galopin01 !) ArkaLouReeD ! la version Hight ! Sur votre fichier la colonne en haut à gauche, une fois...
31/05/2024 à 22:33galopin01 VBA : Ellipse (et plus si affinité...)Pour info mes temps d'exécutions c'était suppression des shapes et des données du tableau compris... La création des shapes dans le cercle centré en hauteur et largeur prend 0,42 s ! Et j'ai 360 shapes alors que BsAlv, vous en avez 358, petite erreur de symétrie mais je ne vois pas de quoi elle peut...
31/05/2024 à 18:31siccmdlExcel - Calcul de date selon criteres et jours feriesUne proposition : @ bientôt LouReeD...
31/05/2024 à 16:34galopin01 VBA : Ellipse (et plus si affinité...)Un autre exemple toujours sans le remplissage du tableau 623 shape en 0.97 ! @ bientôt LouReeD...
31/05/2024 à 16:30galopin01 VBA : Ellipse (et plus si affinité...)Attention ne vous y tromper pas, je ne demande pas d'utiliser "mon application" elle ne sert que de support à des idées. La finalité est bien de construire une MAP avec des hexagones qui "survole" une ellipse, avec une taille ajustée et une symétrie dans le placement. Ce que je ne comprend pas c'est...
31/05/2024 à 14:43Curulis Formule EQUIV dynamiqueComme quoi ! Bravo à vous ! @ bientôt LouReeD...
30/05/2024 à 22:48Curulis Formule EQUIV dynamiqueJuste quelque lignes de décalage ? Bonne fin de soirée à vous ! Et oui les jeux ça va, les deux versions d'Arkanoïd suivent leur petit chemin de téléchargement, bien que ce ne soit pas une "priorité" d'Excel ! Dans l'ensemble ça va bien j'approche les 700000 téléchargements ! @ bientôt LouReeD...
30/05/2024 à 21:45Curulis Formule EQUIV dynamiqueMatricielle ? Disons que c'est une formule classique avec une fonction nativement matricielle comme SOMMEPROD par exemple ! afin de rendre l'INDEX dynamique, et surtout pour ne pas à avoir à modifier le numéro de ligne lors de la "glissade" de la formule je propose ceci : INDEX(CADRE_BILANS;LIGNE(1...
30/05/2024 à 21:32Curulis Formule EQUIV dynamiqueEt oui ! @ bientôt LouReeD...
30/05/2024 à 21:31Polar. Application d'un format de cellule en fonction d'une valeur dans une colonLa ligne qui pose problème mais ce doit être la même chose pour les autres conditions : Sheets("BOQ Model").Range("B" & n).Select Vous demandez à VBA de sélectionner une plage sur une feuille non activée... Donc activez la feuille avant la sélection. Attention à bien revenir sur celle que vous trava...
30/05/2024 à 21:12Curulis Formule EQUIV dynamiqueLe $C3 n'est pas gênant, Excel est tout de même à sa version 2021 et 365 ! Il est capable de suivre une cellule ! Voir le fichier, j'ai déplacé la zone nommée, les formules s'adaptent ! Mais je n'ai peut-être toujours pas compris le problème ! @ bientôt LouReeD...
30/05/2024 à 21:08AlexlaporteComment supprimer "FAUX"Vous pouvez la ré écrire comme ceci : =Si(OU(H3="Non";H3="Sans Objet";F3="Sans objet");"Sans Objet";"") Et comme le dit JFL si aucune des conditions alors on fait quoi ? si on ne le dit pas Excel renvoi FAUX, donc s'il n'y a rien à afficher on met un double guillemet, c'est à dire une valeur vide. @...
30/05/2024 à 21:03MICKAEL59Recherche une référence dans une ListBox par la saisie dans une TextBoxVoyez si ce fichier peut vous aider à avancer dans votre projet. @ bientôt LouReeD...