Membre impliqué

Inscrit le :17/05/2018
Dernière activité :Aujourd'hui à 20:07
Version d'Excel :Office 365 FR
Emploi :Jeune retraité
Lieu :Nôtre beau Sud
Messages
1'277
Votes
382
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par Jean-Paul - page 14

DateAuteur du sujetSujetExtrait du message
23/04/2023 à 17:04BUDGETSVariable objet ou variable de bloc with non définieRien en soit, c'est ma façon de différencier les tableaux, préfixe "vt_" pour les tableaux, "vr_" pour les champs nommés, "vs_" pour les feuilles système. Je peux par exemple cacher tous les champs nommés d'un seul coup. Il vaut mieux regrouper les affectations dans un module, si tu dois changer le...
23/04/2023 à 12:26BUDGETSVariable objet ou variable de bloc with non définieJe n'ai pas ouvert le classeur, mais d'après le code fourni par Eric, le code se situe au niveau de la méthode Initialise d'un UserForm. Il est vrai que sans plus de spécification c'est la colonne "B" de la feuille active qui va être parcourue. Pour éviter ce genre de désagrément tu dois spécifier l...
22/04/2023 à 17:53BUDGETSVariable objet ou variable de bloc with non définieEn regardant le code fourni, tu peux constater que le dictionnaire va conserver les valeurs unique de la colonne "B" Voici un bout de code, pour le vérifier, dans le Array tu as deux fois la valeur "aa1" si tu lances le pas à pas avec F8 tu te rendras compte que "aa1" ne figure plus qu'une fois. on...
21/04/2023 à 18:59kensama Check de 14 checkbox + fermeture d'un user et ouverture d'un autreAvec une fonction qui te permet de récupérer le contrôle : Et pour l'appel : On aurait pu aussi passer par une classe...
18/04/2023 à 22:13EldervandSe débarasser d'un clignotement - macroRe, Ce n'est pas pareil tu dois faire attention au nom. Donc dans l'exemple ci-dessus, si la feuille comporte bien un TS les deux lignes ci-dessous sont valables ceci : Feuil4.ListObjects(1).Range.Select ou cela est valable Worksheets("Ma Feuille").listObjects(1).Range.Select...
18/04/2023 à 16:44EldervandSe débarasser d'un clignotement - macroRe, Je ne comprends pas bien le "sursauter"... Quand on accède à une feuille par son CodeName on ne passe pas par Excel, donc normalement pas de clignotement. Chez moi cela fonctionne...
18/04/2023 à 16:35Invité Une solution à mon problème (macro ou autre?)Désolé je n'avais pas pris le temps de regarder ta version d'Excel (Qui date un peu). Dans ce cas là passes avec l'objet CommandBar suivant l'exemple joint, tu dois cliquer sur le menu complément et choisir la feuille voulue...
18/04/2023 à 11:08EldervandSe débarasser d'un clignotement - macroJe n'avais pas ouvert le classeur par flemme... Dans ton code remplace simplement les appels de Unprotect qui sont la source du clignotement en appelant les feuilles par leur CodeName et vois ce que cela donne chez toi, tu ne passeras plus par Excel donc normalement cela devrais être bon. Si ce n'es...
17/04/2023 à 14:47Invité Une solution à mon problème (macro ou autre?)Au lieux de mettre des listes déroulantes sur toutes les feuilles, un onglet sur le ruban feras mieux l'affaire je pense...
17/04/2023 à 12:08li_8Ouvrir une textbox qui contient le nom d'une celluleTestes cela : Bien sur tu dois adapter le : Feuil1.Range("A1").value...
17/04/2023 à 11:51ArmanditoCréer une liste déroulante VBASalut d'abord créer un Champ nommé sur une colonne d'un tableau structuré par exemple, ou une plage. Ensuite tu crée ta zone de liste dans la cellule de ton choix Je pense ne pas m'être trompé...
16/04/2023 à 00:28EldervandSe débarasser d'un clignotement - macroRe, Oui elle sera capable si tu utilises la propriété Unprotect en début de procédure, puis tu reprotèges à la fin de la procédure avec Protect...
15/04/2023 à 18:47BUDGETS La procédure s'effaceRe, Désolé de te décevoir, mais pas de procédure. Par contre si tu vas sur le formulaire en mode création que tu mets le bouton "cmdSuppressionCréationArticlesMenus" en surbrillance et que tu retournes dans le volet du code, VBE va bien créer la procédure vide, évidemment. 1 er test effectivement la...
15/04/2023 à 18:04BUDGETS La procédure s'effaceRe je viens de jeter un coup d'œil.. C'est quoi cette programmation archaïque... Avec ça je te souhaite bon courage pour l'évolution du code. Je pense qu'il faut revoir tout l'architecture, sino tu ne va pas t'en sortir, Tes premiers post sur ce programme commencent à dater non ...
15/04/2023 à 17:46BUDGETS La procédure s'effaceEt c'est si compliqué de mettre un fichier sans mot de passe ? Oupsss me suis trompé de fichier Bon après ouverture pas de procédure non plus... Tu devrais commencer par virer tous les accents dans les noms de contrôle et procédure, VBA ne s'en portera que mieux, même s'il le tolère...
15/04/2023 à 17:39EldervandSe débarasser d'un clignotement - macroQu'en dis Microsoft : Donc en fait, ne bloque pas les procédure mais bloque l'interface utilisateur, donc impossible d'écrire dans un tableau dont la feuille est protégée, utilises unprotect comme dis plus haut. Si tu as toujours des clignotement je ne saurais trop te conseiller de faire du pas à pa...
13/04/2023 à 10:58DarkangelWorksheet.find error 91Re, Postes ton code final pour voir.....
13/04/2023 à 10:32fronck Charger une photoChemin = Environ("UserProfile") & "\Desktop\1.jpg" Maintenant testes avec une image .bmp en lieux est place de la .jpg...
13/04/2023 à 10:23DarkangelWorksheet.find error 91Ca, cela veux dire que la lecture à été faite entre les lignes... Microsoft en parle, et je l'ai aussi dis dans mon précédant post: La méthode Find repart en début quand elle fait une recherche dans une boucle, il faut donc tester en fin de boucle si l'on est de retour sur la première occurence trou...
12/04/2023 à 23:59MisterDuc Select Case - supprimer feuilleDonc dans ce cas cela doit plus ressembler à cela ...
12/04/2023 à 19:51MisterDuc Select Case - supprimer feuilleLa fonction InputBox te renvoie une chaine soit avec l'entrée qui a été saisie soit d'une valeur nulle si Annuler a été cliqué, donc pourquoi faire un Select Case avec Ok et Cancel ? Idem pour le numéro de projet Cette ligne est censée faire quoi ? Worksheets("Nx projet").Copy Before:=Worksheets("Nx...
12/04/2023 à 18:53DarkangelWorksheet.find error 91Re, C'est aussi expliqué dans la doc de Microsoft. Avec une boucle Do Loop, je note toutefois un problème dans le code fourni, penser à tester en fin de boucle la valeur de l'adresse de départ...
12/04/2023 à 16:18DarkangelWorksheet.find error 91Déjà évoqué maintes fois... Lecture ici : Range.Find method (Excel) | Microsoft Learn...
12/04/2023 à 15:55EldervandSe débarasser d'un clignotement - macroQuand tu protèges les feuilles passes la propriété UserInterfaceOnly sur Vrai cela t'évitera de devoir déprotéger les feuilles à chaque fois Lecture ici : Méthode Worksheet.Protect (Excel) | Microsoft Learn Et prenons l'habitude de passer nos Objets sur Nothing en fin de traitement De plus ceci Peut...
12/04/2023 à 10:26India901 Scrolbar dans multipageTu le gère dans l'évènement Change du Multipage... Ici dans la page 1 pas de barre de défilement, est sur la page 2 oui tu gère le défilement avec ScrollHeight et ScrollTop. Bonne prog...
11/04/2023 à 18:34SarahM Calendrier "date picker"J'ai eu par le passé utilisé une classe, peut-être fera t-elle l'affaire pour toi. J'ai mis un petit fichier de test, il faut bien lire la doc elle a pas mal de propriétés et de méthodes...
08/04/2023 à 23:39SarahM Calendrier "date picker"Un peu d'explications claires serait les bienvenues...
07/04/2023 à 15:06dviallaEnvoi d'un mailPourquoi se compliquer la vie ? Windows et Outlook gèrent cela très bien non ...
07/04/2023 à 14:47AZQW Ouverture fichierPour ma part je ferais une gestion différente : On ouvre le classeur On arrive sur une feuille d'accueil Toutes les autres feuilles sont cachées xlSheetVeryHidden Si l'on entre le bon mot de passe alors on affiches certaines feuilles...
06/04/2023 à 12:26minakashi Format date inverséMenu Affichage Fenêtre d'exécution ou CTRL+G...
06/04/2023 à 11:56minakashi Format date inverséRe, Que te renvoie le code dans le volet d'exécution...
06/04/2023 à 11:53squirrel57Cellule à 0 au lieu de vide dans le formulaire VBADonc formule tu peux y remédier en changeant la formule par =CONCAT(Clients[@[CODE POSTAL]];"") Bonne prog...
06/04/2023 à 11:32minakashi Format date inverséEt tout simplement Feuil3.Range("C27").Value = Format(Date, "Short Date") Tu dois aussi vérifier la configuration de Windows au niveau des dates .....
06/04/2023 à 11:27squirrel57Cellule à 0 au lieu de vide dans le formulaire VBAY-a t-il une formule dans ces cellules ...
04/04/2023 à 18:37MIKLTravail d'un formulaire avec case à cocherEdit au vu du fichier... C'est pas gagné vu le nombre de case à cocher que tu as sur la feuille...
16/03/2023 à 19:29omama Créer une réference produit - sans VBAMa question pourquoi un ID en hexadécimal ? C'est une bonne façon de se compliquer la vie. Non ...
14/03/2023 à 15:55Jean-Paul Erreur format de cellule en VBATrouvé, Merci Arturo c'est le [ROUGE] qui ne lui plaisait pas...
14/03/2023 à 15:43Jean-Paul Erreur format de cellule en VBARe, Oui en cochant dans les options Excel calendrier depuis 1904. Arturo, il prends bien les deux points mais cela ne m'arrange pas au vue de la copie d'écran, je continue de chercher Merci...
14/03/2023 à 15:06Jean-Paul Erreur format de cellule en VBAJe dois passer à coté de quelque chose mais quoi Pourquoi ActiveCell.NumberFormat = "[h],mm"" Heures"";[ROUGE]-[h],mm"" Heures""" Renvoie une erreur Que ActiveCell.NumberFormat = "[h],mm"" Heures""" Fonctionne et que J'ai sur certains formats de cellule ce formatage q...
10/03/2023 à 17:54omama Créer une réference produit - sans VBARe J'ai aussi trouvé cela, sans erreur de la part d'Excel, si le tableau et en ligne 1...
10/03/2023 à 17:37omama Créer une réference produit - sans VBAUn petit exemple si tu entre les données directement sur ton tableau Excel data table with key auto-increment - Super User...
10/03/2023 à 14:06omama Créer une réference produit - sans VBASi tu veux travailler efficacement sur les tableaux tu dois avoir une colonne ID avec un identifiant unique à l'instar d'une SGBD, tu n'as plus qu'a ajouter l'identifiant unique dans ta formule...
28/02/2023 à 23:35hureauxCoordonnées d'une celulle dans un databodyrangeNon sérieusement...,tu remplaces la variable par le .ListColumns("Produit").index tout simplement. Je te conseille quand même de travailler avec des ListRows dans ton TS...
28/02/2023 à 19:00EcamVBA L'indice n'appartient pas à la sélectionTon classeur se nomme Navette-bis et non pas Navette_bis doc c'est normal que cela plante. Par contre y'a plus simple à faire sur tes boucles, utiles des tableaux structurés cela t'évitera beaucoup de travail pour rien. Quand tu testes la date ici Tu pourrais en profiter pour faire ton copier coller...
27/02/2023 à 21:41CedL Filtrer une ListBox à partir d'une ComboBoxPour ma part je partirais sur une autre réflexion. Tout d'abord modifier le tableau TB_filtre comme ceci: A toi de modifier les ID à ta guise Au niveau du formulaire tu modifie les propriétés de ComboBox-Filtre ColumnCount = 2 BoundColumn = 1 ColumnWidth =0 RowSource = TB_filtre Il ne te reste plus...
27/02/2023 à 18:26EcamVBA L'indice n'appartient pas à la sélectionEn principe ce message d'erreur interviens si Excel ne trouve pas un Objet, Classeur, Tableau, Feuille, etc.. Si tu dis qu'il bloque sur le If... c'est qu'il a bien passé le Do Until, donc il trouve bien Workbooks("Navette_Mazet_bis").Sheets("Composants").Cells(Ligne, 1) Donc regardes ceci : Bloque...
27/02/2023 à 18:03Joco7915 Afficher dans une cellule le nom de l'utilisateurNormalement Application.UserName te renvoie bien le nom de celui qui c'est loggé sur Office...
25/02/2023 à 18:46Leo10MessiMessage d'erreurC'est normal l'espace en fin de non du fichier et avant le ".xlsm" ...
25/02/2023 à 18:38Eldervand Question rapide - Compréhension d'une formuleA son initialisation la variable hr qui est un Boolean est égale à False (Faux) Not est un opérateur logique qui va inverser la valeur de hr donc dans ce cas hr va passer à True (Vrai) Un peu de lecture Opérateurs de bits et opérateurs logiques - Visual Basic | Microsoft Learn...
23/02/2023 à 23:30SpeedyProcedure dans une procedureSi c'est Sub Real_Time() que tu veux appeler alors tu doit la couper et coller dans un nouveau module et la passer en public. Ensuite tu peux l'appeler depuis d'autres formulaire...