Membre impliqué

Inscrit le :18/12/2018
Dernière activité :25/11/2025 à 08:27
Version d'Excel :2016/365 (32bit)
Emploi :Chargé de missions Amélioration Continue
Biographie :Autodidacte en VBA depuis 2018, j'en suis tombé amoureux.
Messages
1'117
Votes
138
Fichiers
4
Téléchargements
10'139
Fichiers ExcelSujetsMessagesStatistiquesVotes reçus

Messages postés par GGautier - page 3

DateAuteur du sujetSujetExtrait du message
03/06/2021 à 09:56Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 cellulePour commencer je crois que j'ai fais une erreur. J'utilisais le numéro de la ligne du ComboBox au moment de la sélection d'un BC (méthode que j'avais utilisée pour ouvrir le lien du BC directement dans ton autre bout de code). Du coup ça n'a absolument plus lieux d'être (je cois que je vais devoir...
03/06/2021 à 08:37Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 cellulePourrais tu me donner l'intervelle de la boucle FOR que tu as utilisé quand ça ne marchais pas et me dire combien tu as de dossier BR que je recréer chez moi les même condition pour faire des tests stp ? ;)...
02/06/2021 à 17:54Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleOuf, j'ai eu peur que ça ne marche toujours pas Bon après c'est quand même étrange que ça fonctionne sur un intervalle et pas un autre Essaie de te mettre en débogage, faire n petit F8 à chaque étape pour vérifier ce qu'il se passe et si tu veux contrôler des valeurs n'hésite pas à utiliser Debug.Pr...
02/06/2021 à 14:25Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleEncore un autre essai : (qui fonctionne chez moi), vérifie bien aussi que tu retrouves bien l'application Explorateur.exe dans le disque C dans le sous dossier Windows ! J'ai même regardé, je n'ai pas de module complémentaire d'acitvé chez moi qui me permettrais l'utilisation de Shell Ton OS est bie...
02/06/2021 à 14:11Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleUn autre essai ...
02/06/2021 à 13:34Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleTu devrais éviter de mettre l'adresse du serveur dans ton poste (si elle est vrai et si c'est pas une adresse ip interne) Enlève le "\" que je t'ai fait rajouté juste après le NomDossier & "\" Essaie de remplacer Shell Environ("WINDIR") & "\explorer.exe " & Cible, vbNormalFocus par Shell "explorer.e...
02/06/2021 à 13:26Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleUne remarque aussi très importante !! Si les dossiers sont sur un serveur. N'utilise pas le nom d lecteur réseau pour indiquer le chemin (S:) car il est libre de choix, un utilisateur peut très bien avoir associé le serveur à un autre nom de lecteur comme le Z: Encore pire si l'utilisateur n'à pas a...
02/06/2021 à 13:17Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierC'est ce qui s'appel une proposition alléchante Mais malheureusement 9h de route pour une bière c'est compliqué...
02/06/2021 à 13:12Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleAvec la partie du code ci-dessous : Par défaut, les dossiers comportent 50 BC, d'où TailleDossier=50, de plus tu dis que la limite max est de 1 500 BC. Je fais donc une boucle de 1 à 1 500 avec un step à 50. La variable i ne prend donc que comme valeur un multiple de 50. La variable i va être donc ê...
02/06/2021 à 13:00Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleJe vais fouiller, je reviens au plus vite...
02/06/2021 à 11:22Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierAttention au multiposte https://forum.excel-pratique.com/excel/ouvrir-1-pdf-depuis-un-bouton-du-usf-lie-a-un-lien-hypertexte... De plus Monadesign_83 , je t'invite à mettre en favori de ton moteur de recherche ce site , vraiment pour apprendre, tester, bidouiller c'est parfait. J'apprend aussi à cod...
02/06/2021 à 11:16Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleVoilà, à toi de tester ...
02/06/2021 à 10:49Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleQuel est le nom exacte des dossiers à ouvrir ? Est-ce que c'est " BC 1 à 50" ? (ou 1 et 50 varies mais je veux surtout savoir pour les escapes, majuscules et accents)...
02/06/2021 à 09:31Imad SIOCopier coller entre deux classeursVoilà quelque chose de plus complet (avec filtre des préventifs du mois en cours) : tu trouveras l'adaption dans le fichier joint...
02/06/2021 à 08:40Imad SIOCopier coller entre deux classeursBonjour, voilà le code pour importer les données d'un classeur à un autre. En espérant répondre à ton besoin. Peux-tu en dire plus sur les condition de filtre, que je les intègres au code d'importation...
02/06/2021 à 07:42Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleRe, reprenons ici. Concernant l'ouverture du dossier, il se fait avec quel bouton ? Le N° du BC est toujours issu du ComboBox ...
01/06/2021 à 16:24Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierSi tu veux tester mon code pense bien avant de modifier les listes ListLabel, ListCol et ListTxt. Attention dans ma version les formats ne sont pas pris en charges car je ne sais pas sur quels label l'appliquer...
01/06/2021 à 16:15Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierMon code semble bien fonctionner, le problème c'est que la dernière version que j'ai récupéré (merci Ergotamine ) il manque des Label ce qui fait planter le code (étant donné que je me suis basé sur les screen). Monadesign_83 pourrais-tu partager ici la dernière version de ton fichier ainsi que la l...
01/06/2021 à 15:48Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierBonjour Ergotamine , Je me suis permis une adaptation à ma sauce pour essayer d'automatiser le plus possible Je ne sais même pas si ça marche vu que je n'ai pas de fichier... Monadesign_83 , tu dois préciser le Label auquel tu veux appliquer la valeur, par exemple : Me.Label76.Caption=Format(Round(C...
01/06/2021 à 15:03Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierUne autre question tu cherches à obtenir quoi avec cette ligne ? L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9...
01/06/2021 à 14:53Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierLes données dans tes cellules sont bien des valeurs numériques ?! dans le doute essaie Format(Round(Cdbl(Application.Index(.Range("S:S"), L)), 2), "#,##0.00") Ci dessous le fichier pour te montrer que chez moi ça marche Pour une meilleur lisibilité je te conseil même de créer un variable, exemple ...
01/06/2021 à 13:39Monadesign_83 Mettre différents nombres dans un label avec séparateur de millierPour avoir le format avec séparateur de milliers et forcer deux décimales : Me.Label1.Caption = Format(Round(Range("A1"), 2), "#,##0.00") à toi d'ajuster...
01/06/2021 à 11:25AnaisG Différence entre deux date/heuresEn faisant simplement la soustraction des deux dates non ? En faisant 09/06/2021 11:00:00 - 03/06/2021 15:00:00 tu obtiens 5,8333... jours. Ce qui est bien supérieur à 3 jours. La formule serai donc =SI(D4-D3>3;"VALIDE";"INVALIDE") où D4 = 09/06/2021 11:00:00 et D3 = 03/06/2021 15:00:00 Une autre...
01/06/2021 à 10:48Catherine33432 Case à cocher formulaire ExcelBonjour Catherine33432 , LouReeD a associé la case à cochée à la cellule B53 (en sélectionnant la case à cochée et en inscrivant =B53 dans la bare de formule). Par défaut la case à cochée renvoie VRAI ou FAUX selon son état. La cellule B53 prend donc comme valeur VRAI ou FAUX. Il a ensuite ajouter u...
01/06/2021 à 10:08FoxtrotRomeo Macro mise en forme graphiqueVoilà la logique de construction que je te conseil d'adopter, surtout si tu seras amené à ajuster le code dans le future. J'ai fait la partie pour une série de données pour donner l'exemple ...
01/06/2021 à 10:05HUGOBASS Spliter classeur en plusieurs ongletsTu devrais créer un nouveau poste pour demander de l'aide à la communauté afin qu'elle t'aide à convertir mon code pour qu'il puisse fonctionner sur MAC car là c'est en dehors de mes compétences...
01/06/2021 à 09:06FoxtrotRomeo Macro mise en forme graphiqueBonjour, j'ai déjà traité plusieurs sujet similaire ( https://forum.excel-pratique.com/membre/59891/sujets ), tu devrais aussi trouver une multitude de sujet similaire sur le forum. Comme je suis sympas je te donne aussi ce petit lien, je te conseil de mettre ce site en favoris https://forum.excel-p...
01/06/2021 à 08:58HUGOBASS Spliter classeur en plusieurs ongletsCa marche Je viens de voir que tu es sur MAC, j'espère que tu ne vas pas avoir de problèmes...
01/06/2021 à 08:46HUGOBASS Spliter classeur en plusieurs ongletsVoilà ma solution : pense à adapter cette ligne If NewChemin = False Then Chemin = "C:\Users\lemar\Documents\" 'A ajuster C'est le lien de là où se trouve le dossier de reception pour l'extraction...
31/05/2021 à 19:45HUGOBASS Spliter classeur en plusieurs ongletsEst ce que tu veux avoir une alerte si l'onglet ou le fichier (par exemple AMIEN) existe déjà ou tu ne veux pas d'alerte et écraser par défaut l'onglet et le fichier ...
31/05/2021 à 18:25HUGOBASS Spliter classeur en plusieurs ongletsOups je viens de me rendre compte que j'ai oublié la partie enregistrement du code A noter que mon code précédent fonctionne même si les lignes sont mélangées et qu'il n'y a pas de "splittage" avec les lignes vides le code fonctionne avec un dictionnaire (liste sans doublons) des villes de la colonn...
31/05/2021 à 17:15GGautier Formule associée à feuille/tableauBonjour Ordonc , le but de ma recherche est que le code s'adapte tout seul pour trouver le nom du tableau ou de la plage nommée au moment de l'extration de la formule... donc idem il ne sagira pas forcement d'une opération "=somme()"...
31/05/2021 à 17:09HUGOBASS Spliter classeur en plusieurs ongletsJe te propose une solution ci-dessous, à placer dans un module standard...
31/05/2021 à 14:35GGautier Formule associée à feuille/tableauMince Il va falloir que je trouve une combine par ce que je n'ai pas l'impression que c'est faisable .....
31/05/2021 à 14:15GGautier Formule associée à feuille/tableauHuuummm Je met en PJ un fichier. De mon coté utiliser formula2local ou formulalocal ça ne change pas, je n'ai pas les noms de référence. Dans l'exemple joint j'utilise la formule : MsgBox Range("D2").FormulaLocal J'obient : =@[Colonne 3] + G$2 Alors que j'aimerai avoir : =Tableau1[@Colon...
31/05/2021 à 12:23GGautier Formule associée à feuille/tableauJe me trouve bloqué et j'ai besoin (encore) de vôtre aide si précieuse J'ai un bout de code qui me sert à extraire d'un tableau structuré les formules. Le problème est que quand je veux utiliser les formules extraites cela ne marche pas étant donné que la référence au tableau n'est pas présente au d...
28/05/2021 à 15:11Paulo78670 ComboBox qui change de liste déroulante en fonction d'autre ComboBoxAutant faire d'une pierre dux coup Dit moi ce que tu en pense ?...
28/05/2021 à 14:55Paulo78670 ComboBox qui change de liste déroulante en fonction d'autre ComboBoxAlors voilà, pour la partie UserForm_Initialize je me suis "amusé", je te laisse voir ce que j'ai fait Je vais te simplifier aussi la partie ComboBox1_Click . Je t'invite à regarder comment j'ai procédé et à te renseigner c'est comme ça que tu vas apprendre...
28/05/2021 à 12:05Paulo78670 ComboBox qui change de liste déroulante en fonction d'autre ComboBoxJe me permet une petite amélioration (déclaration de variables et quelques ajustements). Peux-tu me montrer comment tu as fait au final ? De plus, pas besoin de fair un Set à chaque fois, une fois en début de code suffis Une autre variante de code, celle-ci est plus fiable ...
28/05/2021 à 11:54Didi654613 Si cellule =NP;ND;SU;PR alors NON=SI(OU(A1="NP";A1="ND";A1="SU";A1="PR");"NON";"OK")...
28/05/2021 à 09:05Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleParfait si c'est ok pour toi, bonne journée et bon weekend...
28/05/2021 à 08:30Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleRe, bon toujours une galère chez moi, j'ai vu que les liens hypertextes étaient générés via une formule et que c'est pour ça que ça plante. Je te propose de remplacer la ligne : Cible = ThisWorkbook.Worksheets("BC").Range("HC" & Ligne).Hyperlinks(1).Address 'à ajuster (là où se trouve le lien) par l...
27/05/2021 à 16:00Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleBon, ton fichier est inutilisable chez moi, il ne fait que cracher, impossible d'éditer du code et encore moins faire des tests.... Bref, de ce que j'ai pu apercevoir je te propose cette modif faite à tâtons, dit moi ce que tu en penses...
27/05/2021 à 15:04Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleHeeuuuu où se trouve le CommandButton8 ? Et de quel ComboBox parles-tu ...
27/05/2021 à 10:44Faconi Automatisation de graph (VBA)Bonjour :) je n'ai pas spécialement le temps de traiter en détail ta demande. Je t'invite cependant à consulter un sujet similaire que j'ai traité il quelque temps sur la création automatique d'un graphique. Tu y retrouveras une grande partie des différentes possibilités https://forum.excel-pratique...
27/05/2021 à 10:17Monadesign_83 Ouvrir 1 PDF, depuis un bouton du USF, lié à un lien hypertexte d'1 celluleVoici un code pour ouvrir n'importe quel fichier (.pdf, .xls, etc.). Maintenant à toi de l'ajuster en fonction de tes besoins...
27/05/2021 à 09:54GGautier [VBA] protection feuille ExcelA toutes les personnes qui passent par ici, car ayant eu la même idée que moi, je vous invites à allez voir le poste ci-dessous : https://forum.excel-pratique.com/astuces/protection-des-feuilles-boite-de-dialogue-158024...
27/05/2021 à 09:50GGautierProtection des feuilles (boite de dialogue)Bien le bonjour chers visiteurs Je propose via ce poste mon pack de Userform reproduisant le design et les fonctions de protection / dé-protection des feuilles d'un classeur Excel. Très utile si vous êtes amenés à travailler (écrire) sur des feuilles protégées par un mot de passe depuis une procédur...
26/05/2021 à 16:51GGautierListBox.Height.AutoC'est intéressant ! J'avais réfléchis au départ à une solution similaire. Compter le nombre de ligne dans DATAS et le multiplier par la hauteur par défaut d'une ligne d'un Listbox. Mais j'ai vite abandonné l'idée. Je me suis dit que pour moi ça marche mais après tout dépend de la resolution ou du zo...
26/05/2021 à 11:34GGautier [VBA] protection feuille ExcelYes, merci, j'avais déjà récupéré tout ces paramètres via l'enregistreur de macro (mais j'ai été pris d'une flemmingite aigue en voyant ça )...