T

Passionné d'Excel

Inscrit le :26/01/2011
Dernière activité :29/10/2020 à 08:29
Version d'Excel :2007/2019
Messages
4'019
Votes
572
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Theze - page 44

DateAuteur du sujetSujetExtrait du message
13/03/2018 à 06:49Marsala17Remplissage cellule automatiqueLa cellule ayant la liste de validation en A1 et la liste des valeurs de C1 à C6, la formule dans la cellule (B) est : =NB.SI(C1:C6;A1)...
13/03/2018 à 06:37jojo la frite Créer une sauvegarde annuelleDonc pas la peine d'attendre l'année prochaine Content de t'avoir aidé...
12/03/2018 à 19:31jojo la frite Créer une sauvegarde annuelleRe, Pour le test, il n'est pas nécessaire de changer la date de ton PC puisque quand tu lances le code pour la première fois dans ton classeur le nom n'existe forcément pas donc, tu entres dans le bloc If ... Then et le fichier de sauvegarde est forcément créé avec l'année 2017 (2018 quand on sera e...
12/03/2018 à 18:43jojo la frite Créer une sauvegarde annuelleEt bien attendons janvier 2019...
12/03/2018 à 17:10jojo la frite Créer une sauvegarde annuelleUne piste avec un "Nom" invisible dans le gestionnaire de noms dont le contrôle de l'existence se fait à chaque ouverture. Tant que le nom existe, nous sommes dans l'année en cours (il est composé d'un préfixe "PremOuv_" et de l'année). Sitôt que l'année change (1er janvier) le nom sera caduque car...
12/03/2018 à 15:52thibaugDupliquer des lignes selon une cellule contenant plusieurs éléments séparésUne piste à adapter et à exécuter après importation de ton csv ...
12/03/2018 à 15:34YekJOINDRE.TEXTE sans Office 365 ? Possible ?Je ne suis pas sûr de bien comprendre Tu veux concaténer plusieurs phrases avec des conjonctions de coordination ? Voici un fonction perso (JOINDRE) que tu peux adapter à tes besoins. Dans mon exemple, la plage contient tous les mots à assembler pour former la phrase "Il s'agit des livres Titre1 et...
12/03/2018 à 07:03sevener77 Comptage occurrence selon couleur et texteC'est pour cette raison qu'on n'utilise jamais de valeur en "dur" dans une fonction, on doit le lui passer en argument. CelNom demande un Range donc une cellule et dans ton cas, les cellules en colonne A : La formule devient =NbreCellPoste('0918'!$B$5:$H$17;$A4;3) en B4 de la feuille "Duty" à tirer...
12/03/2018 à 06:43Rolins Trouver l'unité ou la dizaine après une virgule =MOD(ENTOu encore =ENT((A1-ENT(A1))*10) pour n'avoir que le premier chiffre après la virgule. Le multiplicateur "10" permet d'extraire l'unité, 100 la paire, 1000 le triplet, etc.....
11/03/2018 à 16:08MJC55 Probleme étendue d'un champ dans une macroSinon, si tes cellules n'ont aucune régularité, utilise Application.Union ...
11/03/2018 à 13:58jojo la frite Suppression des sauvegardes obsolètesRe, Content de t'aider, reviens si tu as besoin ! Bonne fin de week-end...
11/03/2018 à 09:26ConstrucGEVAR Exécuter plusieurs macro(s) simultanémentCe n'est tout simplement pas possible ! VBA étant du code interprété, le compilateur lit et exécute ligne par ligne du haut vers le bas. Tu peux peut être fusionner tes deux procédures afin de les faire avancer en même temps ...
11/03/2018 à 09:03jojo la frite Suppression des sauvegardes obsolètesLe code que je t'ai donné peut être mis dans le module standard "Module1" et appelé dans la procédure événementielle "Workbook_BeforeClose()" Voici ton classeur en retour. J'ai un peu modifié la procédure afin qu'un message t'indique le nombre de classeurs qui ont plus de 48h et si tu souhaites les...
10/03/2018 à 18:40jojo la frite Suppression des sauvegardes obsolètesFais un test avec la procédure "DernierFichier48h" (elle utilise deux fonctions). Pour ne pas commettre l'irréparable, fais une copie de tes derniers fichiers inférieur à 48h mais laisses les fichiers originaux (qui sont aussi par là des copies) dans le dossier malgré tout, afin de voir si il sont b...
10/03/2018 à 08:48CP4 Comment alimenter combobox et copier avec Worksheet_ActivateTu peux utiliser une variable booléenne déclarée en tête du module de la feuille que tu bascule à True dans Worksheet_Activate() et tu la contrôle dans Change() du ComboBox pour sortir ou non ...
09/03/2018 à 13:28CP4 Comment alimenter combobox et copier avec Worksheet_ActivateRe, A partir du moment où tu définis une valeur pour les propriétés ListIndex ou Value du ComboBox, les procédures événementielles "Change()" et "Click()" sont exécutées ! Si tu ne veux pas ça, en fin de procédure "Worksheet_Activate()", appelles tes deux procédures sans utiliser la ligne de code pr...
09/03/2018 à 13:18Vaenl2VBA TipsOK, j'avais pas compris...
09/03/2018 à 07:30CP4 Comment alimenter combobox et copier avec Worksheet_ActivateA la fin de la proc "Worksheet_Activate()" mettre cette ligne ...
09/03/2018 à 07:08Vaenl2VBA TipsEt ...
08/03/2018 à 06:46famdsmImpression de plusieurs feuilles au même tempsUne piste à adapter. Ici, toutes les feuilles sont sélectionnées pour l'impression, mets en place un bloc de condition (If Then Else, ou/et Select Case) pour éviter celles que tu ne souhaites pas imprimer ...
07/03/2018 à 20:16Pat1308 UserForm Dynamique - Problème d'affichageEt bien, à la vue de ton code, je te conseille de regarder vers les modules de classe afin de fortement en réduire le nombre de lignes ! Voici ton code rectifié pour un seul Label ...
07/03/2018 à 20:02Jonquille9231 Comparer deux colonnesUne piste ...
07/03/2018 à 19:37Maxence02Ajout de lignes sans bouton et selon cellulesDans ce cas, il faut mémoriser la cellule au moment de la sélection afin de savoir si elle contient "RHRJ", si c'est le cas, mémorise et si on supprime sa valeur (donc "RHRJ" dans "Worksheet_Change()") la ligne située au dessous sera supprimer ...
07/03/2018 à 19:18Nrev74 Incrémenter la valeur d'une cellule d'une feuille à l'autre - VBARe, Juste une boulette de ma part, n'en tiens pas compte car ça ne peut pas fonctionner ...
07/03/2018 à 07:24melodynelsonElaboration d'une moyenne_Cases à cocherRe, donc, (5+5+5)/1,25 devrait donner 20 ? pour que cette opération donne 20, ton diviseur devrait être égal à 0,75 ...
07/03/2018 à 07:17Nrev74 Incrémenter la valeur d'une cellule d'une feuille à l'autre - VBATu peux incrémenter à la création puisque J commence à 1 et est incrémenté de 1 à chaque passe ...
07/03/2018 à 06:51melodynelsonElaboration d'une moyenne_Cases à cocherTu dis : J'ai de la peine à comprendre ce que tu souhaites car en cochant seulement 3 cases dans la colonne "5", le total est 15 donc, 15/1,25 donne bien 12 et pas 20, que deux cases soient ou non cochées dans "Sans objet" ...
06/03/2018 à 07:11benibeno Identifier premiere/derniere ligne bloc selon fonction matchUne piste avec Like ...
05/03/2018 à 06:54benibeno Boucle couleurC'est pas toujours facile d'interpréter un code quand il y a aussi peut d'explications mais dans la boucle ci-dessous : pourquoi k ne peut pas avoir plus de 2 valeurs (1 et 2) alors que tu proposes un choix de 4 valeurs, bleu et noir ne sortiront jamais ? tcouleur = Choose(k, noir, noir, noir, noir)...
04/03/2018 à 09:56nemo1664 Trier un ListBox multicolonnes sans faire appel à un tableauLe problème est résolu mais comme tu demandes : Non, il suffit de passer en argument le numéro de colonne voulu : que tu appelles ...
04/03/2018 à 08:22Jgil11Distributions de tâches de façon aléatoireUne piste avec une fonction de recherche de nombres aléatoires entre 1 et 7 avec distribution des tâches à chaque appui sur le bouton ...
03/03/2018 à 14:48nemo1664 Trier un ListBox multicolonnes sans faire appel à un tableauUtilises un tableau en mémoire afin de faire le tri avant de l'afficher : Tout simplement parce que seule la propriété "RowSource" permet d'avoir des entêtes de colonne...
02/03/2018 à 11:42Quentin87 Raisonnement filtrage multipleRe, Tu n'est pas obligé d'utiliser des cases à cocher, tu peux utiliser une colonne supplémentaire par type et définir la fonte en "Wingdings 2", le P représente une coche ce qui est plus léger qu'une multitude de cases à cocher, il suffit alors d'utiliser les événements "SelectionChange()" et "Befo...
02/03/2018 à 07:14Quentin87 Raisonnement filtrage multipleTu peux aussi utiliser le filtre élaboré d'Excel dont voici un classeur exemple et le code ...
01/03/2018 à 17:10Quentin87 Raisonnement filtrage multipleRe, A priori, le choix peut être multiple et dans les trois types donc, je pense que pour les utilisateurs un UserForm serait plus confortable pour la sélection des valeurs à exclurent des les trois types. J'ai vite fais un fichier test afin de mieux imager ce que je veux dire. Il comporte trois Lis...
01/03/2018 à 16:02hamila92Macro copier onglet depuis un classeur (ouvert ou fermer) vers un autreRe, et avec ceci ...
01/03/2018 à 15:56Mcharbelet Supprimer du texte à partir d'un mot ou caractèreRe, je suppose que mbbp veut dire qu'avec + 3 l'espace est conservé alors qu'avec + 2 il saute ! =STXT(A1;1;TROUVE("TPI";A1;1)+2)...
01/03/2018 à 13:20Mcharbelet Supprimer du texte à partir d'un mot ou caractèreRe, Oups, j'ai toujours le réflexe de répondre en VBA ...
01/03/2018 à 13:10Quentin87 Raisonnement filtrage multipleRe, Il y a plusieurs façons de faire, tu peux par exemple utiliser un tableau de 3 x 3 où tu mets dans la première ligne les Ratings, la seconde les secteurs et la troisième la géographie. Ici, c'est en "dur" dans le code mais tu pourrais utiliser des cellules dans une feuille par exemple ...
01/03/2018 à 12:57hamila92Macro copier onglet depuis un classeur (ouvert ou fermer) vers un autreTu dis : et le code est : C'est "Feuil1" ou "S09" ? Vérifie l'orthographe de tes feuilles, c'est probablement là que se trouve le problème...
01/03/2018 à 12:53Mcharbelet Supprimer du texte à partir d'un mot ou caractèreUne piste à adapter ...
01/03/2018 à 12:46Quentin87 Raisonnement filtrage multipleLes Select Case permettent de vraiment imbriquer des conditions multiples surtout si chaque variable contient plusieurs cas et pour les If Then, il faut savoir manipuler les Or et And ! Voici un code avec des Select Case : et un code avec If Then et des Or et And : Les deux code donnant les mêmes ré...
01/03/2018 à 12:12clemsshop Rechercher plusieurs valeurs et appliquer styleRe, Oui, effectivement, comme la plage commence à la ligne 2, le fait de faire référence à la plage plutôt qu'à la feuille fait qu'il y a ce décalage donc c'est plutôt comme ceci ...
01/03/2018 à 12:07bidochon34800 Copier valeur textbox dernière colonneA tester ...
01/03/2018 à 11:57clemsshop Rechercher plusieurs valeurs et appliquer styleUne piste ...
01/03/2018 à 07:09EricFDéfinir des labels comme plageNon, tu ne peux pas mais par contre, tu peux utiliser un tableau dont voici un petit exemple en attendant plus d'explications ...
01/03/2018 à 06:53idemanz7 Choix d'une ligne pour un remplissage automatique de calendrier - VBAEst-ce ça que tu souhaites ? La boucle concerne que la sélection ...
28/02/2018 à 08:25pupuceConvertisseur d'unité 2-waySur l'événement "Change()" des TextBox ...
28/02/2018 à 08:11Nrev74 Compte à reboursJe n'ai pas cherché à adapter ton code, j'en ai fais un qui me semble plus simple avec le décompte en cellule A1 ...
28/02/2018 à 07:31idemanz7 Choix d'une ligne pour un remplissage automatique de calendrier - VBADes bouts de code et des images c'est bien mais un fichier avec le code complet et des données confidentielles bidonnées c'est mieux ...