Membre fidèle

Inscrit le :05/11/2011
Dernière activité :04/02/2024 à 16:10
Version d'Excel :2003FR,2010FR
Messages
279
Votes
24
Fichiers
0
Téléchargements
0
SujetsMessagesStatistiquesVotes reçus

Messages postés par patrick33

DateAuteur du sujetSujetExtrait du message
13/01/2024 à 07:35patrick33 Recherche dans tableauMerci à tous les deux...
11/01/2024 à 21:24patrick33 Recherche dans tableauMerci pour votre retour, sauf que je ne souhaite pas passer par des formules excel, mais par un code vba, qui sera intégrer à un code que j'ai commencé à écrire...
10/01/2024 à 22:05patrick33 Recherche dans tableauJe travaille actuellement un module de gestion de transport. Le cout du transport dépend de la distance de livraison déterminé par des zones, mais aussi de la taille du camion définit par des m3. Dans 2combobox, je récupère ces 2 éléments. Je ne maitrise pas les tableaux. SI par exemple j'ai un cami...
29/12/2023 à 14:30patrick33 Affichage d'un labelLe lable 2 s'affiche si le label 1 est lui-même affiché. Pourrésumer, Label2.visible=true si label1.visible=true. Mais la proprièté IsVisible ne fonctionne pas sur ma version Excel (2021)...
29/12/2023 à 14:14patrick33 Affichage d'un labelLe lable 2 ne s'affiche que si le label 1 est affiché...
29/12/2023 à 13:51patrick33 Affichage d'un labelJe souhaite afficher un label si un autre label est visible. J'ai Excel 2021, et la propriété IsVisible ne fonctionne pas. J'ai un message "Erreur de compilation. Membre de méthodes ou de données introuvables". Y-a-t-il une solution "simples"...
28/12/2023 à 17:18patrick33 Limite dans textboxDans un formulaire, je limite la saisie de chiffres dans un textbox: Private Sub TextBox_Tel_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger) ' Si la valeur n'est pas comprise entre 0 et 9 et qu'elle n'est pas un backspace If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 8) Then KeyA...
26/12/2023 à 22:08patrick33 Erreur 380 sur code VBAMerci LouReed, ça fonctionne parfaitement...
26/12/2023 à 21:33patrick33 Erreur 380 sur code VBAAvant de partager un fichier, je souhaiterais savoir ce qui peut générer l'"erreur d'éxécution 380 - impossible de définir la propriétés RowSource". Je pense avoir définit les lignes ou se situe l'erreur, mais je ne vois pas ou est le problème. DerLigColAClient = Sheets("Listing client").Cells(Rows...
26/12/2023 à 21:27patrick33 Copie masque blocMerci gmb...
24/12/2023 à 16:05patrick33 Copie masque blocDans mon fichier, j'ai un onglet avec une matrice nommée "Matrice Bloc" que je souhaite copier dans un onglet "Matrice Expédition vierge" pour obtenir un document final "Matrice Expédition Renseignée", et copier autant de bloc que j'aurais de client à livrer. Mais lors de la copie, j'ai l'erreur "er...
16/12/2023 à 11:22patrick33 Comparaison feuillesC'est parfait. Merci...
16/12/2023 à 08:57patrick33 Comparaison feuillesMerci MaFraise. Exactement ce que je voulais. Par contre, dans la feuille de travail, les lignes sont en couleur, je ne le veux pas. Dans le code je ne vois pas de "colorisation" des lignes...
15/12/2023 à 18:24patrick33 Comparaison feuillesMerci Mafraise, mais je souhaiterais effectuer la manip par VBA...
14/12/2023 à 22:01patrick33 Comparaison feuillesJe souhaite comparer 2 feuilles d'in même classeur. Sur la première feuille "Feuille export", je récupére des données. Suivant le critère "N°commande", je souhaite vérifier si la commande est présente sur la feuille "Feuille de travail", si c'est le cas, pas de modification. Si elle n'est pas présen...
03/09/2022 à 17:59patrick33Renseigner listbox partir d'une listboxFanfan38 m'a aidé pour renseigner une listbox (voir fichier joint) avec recherche en cascade. Code que j'ai adapté à mon fichier. Maintenant, ce que je souhaite, c'est de pouvoir remplir une autre liste box "COMMANDE" en cliquant sur une ligne de la listbox "LISTING PRODUIT", en récupérant la référe...
18/08/2022 à 21:09patrick33 Listbox+ combo en cascadeMerci à tous les deux...
17/08/2022 à 21:57patrick33 Listbox+ combo en cascadeJe sais, mais pour mon cas cela ne s'applique pas...
17/08/2022 à 21:56patrick33 Comparaison de colonnesJe dois comparer 2 colonnes de données sur 2 feuilles EXCEL différentes (mais sur le même fichier). Pour cela j'utilise une boucle du type : For i = 2 To Worksheets("Articles").Cells(Rows.Count, 1).End(xlUp).Row For j = 11 To Worksheets("Suivi Stock Bras").Cells(Rows.Count, 1).End(xlUp).Row If Works...
17/08/2022 à 20:09patrick33 Listbox+ combo en cascadeMerci Ric, merci aussi FanFan 38. Pour le choix en cascade c'est parfait. J'ai du mal à comprendre le code. Comment puis-je récupérer le n°ID dans le label 9 ...
16/08/2022 à 21:48patrick33 Listbox+ combo en cascadeSur le fichier joint, je souhaite gérer un tableau d'articles avec un userform. J'ai commencé pour l'ajout d'articles, ça fonctionne. Mais je souhaite aussi modifier, supprimer, avoir un bouton précédent et suivant pour me "balader" dans le tableau. Je souhaite aussi pouvoir afficher dans une listbo...
13/08/2022 à 17:02patrick33 Mise à jour Base de DonnéesDans un fichier (voir ci-joint) j'ai une base de données que je souhaite mettre à jour en fonction de la sortie de certains articles sensibles (feuille sortie articles critiques). Je souhaite mettre à jour la BD en fonction de ces sorties. Je souhaite effectuer cette mise à jour en VBA mais si vous...
26/06/2022 à 14:41patrick33 Générer QR codeJe souhaite créer des étiquettes avec des QR codes en fonction de données que j'ai dans un tableau (voir fichier joint). On trouve des choses sur internet, mais pas suffisamment claire pour les modifier suivant mes besoins. De plus, il faut passer par des API Google. Est-il possible de générer des Q...
30/05/2022 à 21:39patrick33 Tri de recherche dans userformMerci. Exactement ce que je souhaitez...
29/05/2022 à 16:56patrick33 Tri de recherche dans userformEn fonction du choix dans une combobox "Fournisseur", je souhaite afficher dans la combobox "Référence", toutes les références relatives au fournisseur choisi, puis après avoir sélectionner une référence, récupérer le tarif. En pièce jointe le fichier. Merci pour votre aide...
29/05/2022 à 16:15patrick33 Couleur UserformMerci, c'est ce que je voulais...
28/05/2022 à 21:43patrick33 Couleur UserformJe sais que l'on peut modifier certaines couleurs avec BackColor et BorderColor dan les propriétés de l'userform, mais j'ai le cadre en rose pas terrible que je souhaite modifié...
28/05/2022 à 17:06patrick33 Couleur UserformEst-il possible de changer la couleur de titre et de cadre d'un userform ? Merci pour vos réponses...
04/07/2021 à 17:07patrick33 Erreur exécution '1004Merci à vous deux. C'est exactement ce que je souhaitais...
04/07/2021 à 11:10patrick33 Erreur exécution '1004Le module est placé dans la feuille des cellules sélectionnées, la macro étant activée par un bouton. Dans un premier temps, il y a un msgbox par cellule, sachant qu'à terme je souhaite un récapitulatif de l'ensemble des cellules...
04/07/2021 à 10:54patrick33 Erreur exécution '1004Dans la macro suivante, je souhaite afficher les valeurs de cellules sélectionnées seulement si elles appartiennent à la colonne I, mais j'ai une erreur d'éxécution '1004'. Je ne vois pas l'erreur.... Sub EditionFicheLot() Dim cellule As Range For Each cellule In Selection If Not Intersect(cellule,...
13/11/2020 à 08:57patrick33Création tableauMerci, c'est exactement ce que je souhaitais...
12/11/2020 à 21:48patrick33Création tableauMerci gmb pour ta réponse, mais j'ai plusieurs questions. Comment est "alimentée" la liste modifiable dans ton code ? J'ai rajouté une commande Cde6 mais elle n'a pas été prise en compte. J'ai fichier plus important comportant plusieurs dizaines de commandes, et au final je souhaiterais rajouter un...
12/11/2020 à 18:18dan67Affichage résultat calcul dans une textboxRegarde ce lien, il y a même des exemples. https://docs.microsoft.com/fr-fr/office/vba/language/concepts/getting-started/type-conversion-functi.....
12/11/2020 à 17:59patrick33Création tableauEtant débutant en VBA, je vous soumets ce petit problème. Dans une feuille de planning (voir pièce jointe), je souhaite compiler pour une commande, que je choisirais, les données s'y rattachant à savoir "qui "(A,B,C ou D), combien (temps en hh:mm) et la date. Dans ce planning, le nombre de ligne pou...
09/05/2020 à 19:44patrick33TextBoxMerci i20100 pour cette réponse, mais cela ne réponds pas exactement à ma question. Je souhaite récupérer la valeur dans la textbox et la copier dans une cellule sans que cela provoque une erreur d'éxécution '424'...
09/05/2020 à 17:37patrick33TextBox[Bonjour, j'ai créé à partir de différents forums une macro pour insérer de manière dynamique des textbox et des labels dans un userform. Voici une version "simplifiée": [size=85]Private Sub NbTotChas_Change() Dim Obj As Control Dim Cl As Classe1 Dim i As Integer Dim PosX As Long Set Col...
23/01/2020 à 19:02patrick33Pb arrondiVoici la macro "en cause" Pour résumé: je crée une feuille "Feuill1" dans laquelle je copie des colonnes de la "S03". Je fais "un peu de nettoyage", puis en fonction des valeurs de ces cellules je récupère des heures en fonction de la couleur de fond de cellule et si la valeur numérique est souligné...
18/01/2020 à 16:59patrick33Pb arrondiDans une macro, je récupère les valeurs numériques de cellules d'une feuille que je copie dans une autre feuille du même classeur. Mais sur la copie, j'ai des valeurs arrondies. Par ex: sur la feuille d'origine j'ai 1.50, mais la copie me donne 2.00? Quelqu'un peut m'expliquer la raison...
03/11/2019 à 16:55patrick33Erreur d'éxécutionBien sûr. J'y suis dessus...
03/11/2019 à 11:24patrick33Erreur d'éxécutionMerci pour ta solution. Effectivement, ma macro prenait un peu de temps. Je l'ai considérablement réduit en ne faisant ma recherche que sur les 10 dernières semaines (càd les 10 dernières feuilles) une parties des cellules (A4:M65). J’ai intégré la boucle suivante dans ma macro: For i = DébutFeuille...
02/11/2019 à 14:59patrick33Erreur d'éxécutionMerci LouReeD, mais dans mon fichier, j'ai la possibilité de cette erreur (division par zéro) dans d'autres cellules. Je pensais pour la gestion des erreurs à WorksheetFunction.IsError(). Je suis en train de travailler dessus pour voir si je peux l'intégrer dans ma macro. A suivre...
01/11/2019 à 20:46patrick33Erreur d'éxécutionMerci, effectivement, cela fonctionne mais dans le fichier donné je n'ai pas reporté tous les onglets. J'en ai autant que de semaines. Du coup, j'ai toujours une rreur d'éxécution. Existe t-il un moyen de détecter les cellules avec une division par zéro, et de remplacer la valeur par 0 par exemple...
01/11/2019 à 17:58patrick33Erreur d'éxécutionDans le fichier joint, j'ai une macro qui me permets d'additionner les heures de chaque étape d'un processus de fabrication d'une commande sélectionnée dans l'onglet "Ref dossier". Je la lance avec le bouton "Recherche temps dans ce même onglet. La macro m'affiche au final un userform avec ces infos...
06/09/2019 à 21:07patrick33 Nombre d'occurence et sommeDans un classeur comportant plusieurs feuilles je souhaite connaitre l’occurrence d'une chaine de caractère qui peut se trouver sur plusieurs feuilles et faire la somme des valeurs se situant sur la cellule suivante. J'ai cette macro mais je ne somme que sur la feuille active et non sur toutes les f...
19/04/2013 à 18:28ExoExtraire un mot d'une cellule texteCi-joint fchier modifier. Juste pour info, je ne suis pas expert en VBA. Mais je t'aide suivant le quelqes connaissanes que j'ai...
18/04/2013 à 18:37ExoExtraire un mot d'une cellule texteEssaie ceci. Ce n'est peut-être pas la solution la plus simple mais cet une solution. Cordialement...
14/04/2013 à 08:43isoa78Calcul d'une valeur à partir d'un intervalleFonction avec les SI corrigée, je retrouve bien les valeurs données...
11/04/2013 à 18:11isoa78Calcul d'une valeur à partir d'un intervalleBonsoir isoa-78 Tulipe_4, effectivement , petites erreurs dans ma formule , comme quoi mieux vaut vérifier toutes les configurations. Ci-joint fichier avec formule corrigée. Cordialement...
10/04/2013 à 21:35isoa78Calcul d'une valeur à partir d'un intervalleVoir formule dans fichier joint. Quel est la règle de calcul pour supérieur à 15? Dans la formule je ne l'ai pas traiter. A voir...