Contenu récent par Jacques87

Re : Monique - Super Barbatruc Un grand bonjour à toutes et à tous lors d'un passage éphémère sur XLD,:cool: Monique il est vrai que, comme le précise Spitnolan08 : Tes trucs sont incompréhensibles pour les vbaistes! et en ce qui me concerne, cela devient grave car je comprends plus...

Re : MSGBOX auto open Bonsoir, Premièrement le Sub auto_open() est à bannir. Il te faut désormais utiliser la procédure évennementielle : Private Sub Workbook_Open() End Sub de l'objet 'ThisWorkBook' à l'ouverture de ton dossier, cet évènement sera "lancé" et donc le code que tu y...

Re : Problème avec le file.scripting.object Bonjour Daniel, En effet plusieurs programmes peuvent éventuellement utiliser la même dll. Donc quand tu désinstalles un programme tu peux sans le savoir supprimer une dll qui était utilisée également par un autre programme. De ce fait le deuxième...

Re : Listbox = Liste des clients...Besoin d'une selection lettre à lettre Bonsoir, tu écris essaie WSCible.Select WSCible.Range("A1").Select Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom ou encore...

Re : copiede formules Bonjour, ton fichier n'est pas passé

Re : 1er chose Bonne Annee 2007 Bonjour, Certes c'est réalisable, mais pour cela il faudrait que tu sois plus précis dans ta demande et même mieux une ébauche de ton produit serait la bien venue Bon courage Oups, Bertrand pas vu Bien le bonjour

Re : Comptage sans doublons Bonjour Jb, Aucun problème : pour accéder à mon code tu fais ALT+F11 et tu le trouveras dans l'objet "Feuil1" Explications : je crée une collection (col) que je remplis en balayant les cellules de la colonne B qui contient le mois. Je remplis item per item cette...

Re : TCD - Restreindre liste déroulante Re, Voici le lien https://www.excel-downloads.com/threads/listes-deroulantes-integrees-en-cascade.72509/ Toutes mes excuses à Didier qui est à l'origine de ce produit et non pas MichelXLD

Re : TCD - Restreindre liste déroulante Bonjour, Une idée : créer un listbox en cascade Le problème a déjà été soulevé tout récemment et un excellent produit a été proposé (par MichelXLD me semble-t-il, sans certitude) Fais une recherche sur le Forum en utilisant les mots listbox et cascade...

Re : Comptage sans doublons Bonjour Stéphane Je t'envoie le fichier dans lequel tu trouveras une réponse pour la première question. Pour la seconde inspire toi de mon code. En cas de problème je suis à ta disposition.

Re : 1 mot de passe sur une feuille Bonsoir à tous les deux, Autre solution : utiliser la propriété visible de la feuille concernée Ce qui revient à dire que la feuille ne sera acessible (pour être précis visible) que si le mot de passe est donné Pour cela 1) dans ThisWorkBook Private Sub...

Re : Supprimer l'ALERTE à l'ouverture d'une application Re, en effet tu n'as écrit aucun code , ce que je n'avais pas vérifié Alors essaie de mettre la ligne que je t'ai donnée dans l'évènement suivant (sans oublier d'effacer le message avant de sauvegarder): Private Sub Workbook_Open()...

Re : Tri sans activer Bonsoir Pierrot, Merci pour tes bons voeux et à mon tour de te présenter les miens en toute amité La question d'Olive m'a perturbé, car si j'ai bien compris il veut réaliser le tri sans activer la feuille concernée. Or il faut absolument la sélectionner ou l'activer...

Re : Supprimer l'ALERTE à l'ouverture d'une application Bonsoir Michel, A mon tour de te présenter mes voeux Pour ta question, ajoute la ligne suivante au début de ton code Application.DisplaysAlerts = False bon courage

Re : Tri sans activer Bonsoir, Essaie : With Sheets("services") .Range("A2:A100").Select Selection.Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom End With c'est à dire en décomposant la sélection Bon courage