Membre impliqué

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

Messages postés par Jean-Paul - page 14

DateAuteur du sujetSujetExtrait du message
27/04/2023 à 20:05fronckSaisie avec textbox changeRe, Ouai, La procédure recherche un nom dans la feuille profs à chaque évènement change de la zone de liste, une recherche s'effectue. Il faut peut-être revoir ce fonctionnement. Edit : C'est trop compliqué de donner des noms appropriés à tes contrôles ? nomP pour une zone de liste ...
27/04/2023 à 19:39fronckSaisie avec textbox changePas trop compris, au vu des explications on parle de zone de liste déroulante, et pas de textbox change non ? Je pense que tu va devoir regarder du coté de la propriété RowSource, qui je pense bloque la saisie. Supprime ce qu'il y a dans RowSource et remplie la zone de liste déroulante avec la propr...
27/04/2023 à 19:03BUDGETSVariable objet ou variable de bloc with non définieNormal t'as bidouiller la fonction tri, a est un tableau, gauc et droi des long, ref est variant, g et d en long, et temp en variant...
27/04/2023 à 13:37BUDGETSVariable objet ou variable de bloc with non définiePourquoi vouloir à tout prix déclarer des variables en public ? Cela ne peut t'apporter que des ennuis. dans la mesure du possible utilises les paramètres des procédures ou fonctions et les variables privées. Ton code en sera que plus lisible...
26/04/2023 à 21:56BUDGETSVariable objet ou variable de bloc with non définieRe, Là c'est l'exemple qui tue... Le tableau peut contenir des nombre, des chaines, etc... Ref est en relation avec a, gauc, droi donc tout en variant...
26/04/2023 à 21:20Pierrot31 Fichier analyse de sangMaintenant que le fichier est posté, qu'elle est ta demande au juste ? Il va falloir nettoyé ce fichier car fait avec les macros d'Excel est ce n'est pas génial en soit...
26/04/2023 à 20:45BUDGETSVariable objet ou variable de bloc with non définieRe, Pfff, trop long pour tout faire, mais pour exemple cette fonction : Peut devenir : Un peu de lecture Early and Late Binding - Visual Basic | Microsoft Learn Long (type de données) - Visual Basic | Microsoft Learn...
26/04/2023 à 19:37BUDGETSVariable objet ou variable de bloc with non définieRe, Option Explicit oblige la déclaration des variables dans l'ensemble du module Option Explicit, instruction (VBA) | Microsoft Learn Exemple ici a n'est pas déclaré donc message d'erreur du compilateur Ou sur une erreur de frappe : d'où l'importance de Option Explicit...
26/04/2023 à 17:58BUDGETSVariable objet ou variable de bloc with non définieRe, Il ne faut pas toucher aux fonctions si tu n'est pas habitué ! Dans la fonction CompteSansDoublons il manque l'accent sur Critere If UCase(ChampCritere(i).Value) = UCase(Critere) Then Cela ne se produirait pas si Option Explicit était écrit en tête de tous les modules. Comme dit dans mon précéda...
26/04/2023 à 14:15BUDGETSVariable objet ou variable de bloc with non définieListeServices est un champ nommé apparemment il n'est pas utilisé. CompteSansDoublons et une fonction que tu peux retrouver dans le module Mod_Tableur. Quand tu crée une fonction dans un module elle est publique et donc accessible depuis les feuilles de calculs. Si tu regardes la fonction de plus pr...
26/04/2023 à 13:40Chris83500 Trouver une formuleRe, Pensez à marquer la demande en résolu, si une réponse à été pertinente un petit vote fait toujours plaisir...
26/04/2023 à 11:47Chris83500 Trouver une formuleRe, Edit oupss pas assez rapide....
26/04/2023 à 11:31SKOEHL Saisie inventaire VBARe, Il faut juste modifier les tabulations, voilà qui est fait...
25/04/2023 à 13:29SKOEHL Saisie inventaire VBAVoici un exemple. Je n'ai pas coder la question 2 car je pense qu'il ne faut pas fermer le formulaire mais scanner un nouveau code...
24/04/2023 à 13:14BUDGETSVariable objet ou variable de bloc with non définieJe n'aurais pas le temps aujourd'hui de regarder le fichier. Ce soir peut-être. Je viens de voir ceci sur le post de 12h12 Tout simplement avec des formules : dans la colonne I se trouve la formule SansDoublonsTrier comme indiquer en commentaires, le tableau n'est là que pour l'exemple, et permet de...
23/04/2023 à 18:13BUDGETSVariable objet ou variable de bloc with non définieRe, il va falloir revoir les base du Late et Early Binding et des affectation d'objets Pour une variable l'affectation se fait directement exemple : Si la variable na pas été affectée elle est égale pour un String à vbNullString, pour un Long à 0, pour un Boolean à False, etc... Pour un objet tu doi...
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 ...