| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 07/05/2024 à 15:23 | bbto | Enregistrer toutes les feuilles du nouveau classeur en pdf | Je sollicite votre aide car je bloque depuis un moment sur ceci. Je fusionne plusieurs classeurs en 1 seul et j'aimerai enregistrer toutes les feuilles du nouveau classeur en pdf distincts lorsque celui-ci est crée mais pas encore enregistré (voir mon code je bloque à l'étape 3) Pouvez-vous m'aidez... |
| 04/01/2021 à 11:50 | bbto | Supprimer ligne selon valeur de colonne (bd 200 000 lignes) | Bonjour et tout d'abord meilleurs vœux!!! je souhaite : - supprimer toutes lignes qui ont pour valeur 99999 de la colonne W - supprimer toutes lignes qui ont pour valeur 2 de la colonne W La BD fait environ 200 000 lignes. et autre code pour supprimer toutes lignes qui ont pour valeur > 90 000 de... |
| 28/12/2020 à 09:36 | bbto | Regrouper ligne si valeurs identiques de 2 colonnes | Votre code fonctionne mais conserve uniquement les 3 colonnes colcrit1, colcrit2 et colOper1. J'ai besoin de conserver l'intégralité des colonnes de A à W avec colCrit1 = 1 colCrit2 = 5 et colOper1 à 5. Voici mon code initial auquel je voudrais ajouter colCrit2. ' regrouper selon colcrit1 et colcrit... |
| 25/12/2020 à 11:40 | bbto | Regrouper ligne si valeurs identiques de 2 colonnes | Merci Algoplus pour votre réponse ce n'est pas tout a fait ça. J'ai posté un exemple simplifié en pièce jointe : si valeur unique en A et B cumul en C avec peut être colCrit2 = 2 ? Je recherche à n'avoir aucun doublon en tenant compte de deux colonnes et cumul en C ' regrouper avec cumul Set f = She... |
| 24/12/2020 à 15:59 | bbto | Regrouper ligne si valeurs identiques de 2 colonnes | Voici mon code qui fonctionne très bien pour regrouper/fusionner les valeurs identiques de la colonne 5 (colCrit1 = 5) et somme de la colonne 12 (colOper = 12). ' regrouper avec cumul Set f = Sheets("vente-2020") Set f2 = Sheets("vente-2020") Tbl = f.Range("A2:W" & f.[A65000].End(xlUp).Row)... |
| 17/09/2020 à 12:43 | bbto | Definir range dynamique | Je voudrai réaliser ceci : j'ai un tableau avec 150 lignes si la valeur de la cellule A = "bonjour" -> définir la range b:g la ligne correspondante pour appliquer le code range ci dessous. exemple : pour 10 lignes, ligne 1 à 10 si la cellule de la colonne A1 = "bonjour" alors cellule range B1:G1... |
| 10/01/2020 à 09:54 | bbto | Test de find | Le code fonctionne que si tous les find sont trouvés sinon ça plante. (si ref ou désignation ou prix n'existe pas ca plante). j'ai une dizaine de test comme celui la (col a col10) comment remédier a cela? si find valeur existe peut être... Sub CopyToColonneY() col = Range("A1:X1").Find("ref").Column... |
| 10/01/2020 à 09:41 | bbto | Optimiser la supression de libne en fonction de la valeur | Le code de Jean Eric plante tjs. la colonne j c'est le nombre de mois ( des chiffres) le code de curulis57 fonctionne bien . Merci... |
| 09/01/2020 à 20:26 | bbto | Optimiser la supression de libne en fonction de la valeur | J'ai une erreur sur cette ligne If Left(.Cells(lRow, 10), 3).Value <= 24 Then .Rows(lRow).Delete... |
| 09/01/2020 à 19:30 | bbto | Optimiser la supression de libne en fonction de la valeur | J'aimerai accélérer le code. supprimer les lignes d'une BD qui fait 80 000 lignes dont la colonne 10 a des valeurs <= 24 Sheets("destock").Activate For i = [A65000].End(xlUp).Row To 1 Step -1 If Left(Cells(i, 10), 3) <= 24 Then Rows(i).Delete Next i le code fonctionne mais c'est lent (... |
| 09/01/2020 à 19:11 | bbto | Si valeur d'une colonne=0 alors remplacé par la valeur d'une autre | Merci ca fonctionne. lastRow= ws.Cells(Rows.Count, 1).End(xlUp).Row... |
| 09/01/2020 à 17:57 | bbto | Copie de range selon ligne 1 | Cette fonction marche bien. comment puis je faire pour adapter : si find n'est pas trouvé ça continue. exemple si find "désignation" n’est pas présent que le code puisse continuer : col1 = Range("A1:X1").Find("Référence").Column Columns(col1).Copy Destination:=Columns("AA:AA") col2 = Range("A1:X1")... |
| 09/01/2020 à 16:46 | bbto | Si valeur d'une colonne=0 alors remplacé par la valeur d'une autre | La BD fait 200 000 lignes. le principe est celui ci : si B = 0 alors B prend la valeur de C. avant ....................colonneA....................colonneB....................colonneC ligne 1.............aaa...............................17..............................85 ligne 2.............bbb...... |
| 08/01/2020 à 19:07 | bbto | Comparaison d'une colonne | La bd fait 80 000 lignes. si la valeur de la colonne A supérieur à 1500 alors je copie la formule loc12 en B résultat final: ..............................colonneA...............colonneB ligne 1..................1499...................... ligne 2..................1501......................loc12 lign... |
| 08/01/2020 à 18:07 | bbto | Comparaison de deux feuilles et copie de certaines valeurs | Bonjour, j'ai besoin d'aide. Ma BD en réel fait 200 000 lignes et RESULTAT fait environ 50 000lignes. J'aimerai privilégier du vba par rapidité. voir ma pj le principe est celui ci : Dans la feuille Résultat si les ref (en A) dans RESULTAT sont présentes dans BD (en A) alors je copie les valeurs (en... |
| 08/01/2020 à 17:40 | bbto | Copie de range selon ligne 1 | Merci Henri pour votre réponse. Cependant ce n'est pas forcément la colonne A a chaque fois. dans l’exemple la valeur "ref" peut être dans A ou B etc..mais forcement dans la ligne 1. plus dans ce genre. Sub CopyToColonneY() valeur = "ref" if valeur est dans range A1:X1 je copie la colonne concernée... |
| 08/01/2020 à 16:22 | bbto | Copie de range selon ligne 1 | Cela doit être tout bête en vba mais je galère je voudrai selon le titre d'une colonne la copier dans la colonne Y. (en vba) exemple : en ligne 1 si "ref" est présent je copie la colonne A en Y avant ....................colonneA..................colonne B..................colonneC...........etc....... |
| 08/01/2020 à 16:12 | bbto | Copie selon la taille de range | Merci de m'avoir mis sur la voie..ça marche. nom_f = Sheets("caté").Range("B1").Value If nom_f > 0 Then Range("A2:A" & Range("B" & Rows.Count).End(xlUp).Row).Formula = nom_f End If... |
| 07/01/2020 à 19:45 | bbto | Copie selon la taille de range | J'ai 2 feuilles feuil1 colonne A est vide & colonne B a des valeurs sur x lignes à partir de B2 feuil2 avec en B2 = 999 j'aimerai pouvoir insérer la valeur de B2 de la feuil2 dans la colonne A de la feuil1 selon la range hauteur de B. (Set myRange = Range("B" & Rows.Count).End(xlUp)) exemple : Feuil... |
| 04/01/2020 à 20:42 | bbto | Trier sans doublon avec cumul selon condition | Les étapes sont celle ci. les doublons sont en A. si doublon avec stock 0 conservation de la valeur B du doublon et ajout de C à I. puis suppression du doublon. voir ma pj. Le résultat écraserai la feuille existante si possible. le principe est peu le même dans ce fichier sauf que l'on n'ajoute qu'u... |
| 03/01/2020 à 15:14 | bbto | Renommer une feuille externe sous un autre nom | ' Enregistrer sous Application.DisplayAlerts = False Sheets("Résultat").Activate Dim Chemin As String, NomFichier As String Dim extension As String Chemin = "C:\Users\pc-ben\Documents\tarif\" extension = ".xlsm" On Error Resume Next MkDir Chemin On Error GoTo 0 NomFichier = "STOCK" & extension Activ... |
| 03/01/2020 à 14:59 | bbto | Renommer une feuille externe sous un autre nom | J'ai un fichier initial BASE avec une feuille nommé Résultat que j'enregistre dans un fichier de destination (ici STOCK) la feuille du fichier de destination STOCK s'appelle donc aussi Résultat. Comment puis changer le nom de la feuille de destination? exemple: fichier initial BASE avec nom de feuil... |
| 03/01/2020 à 13:37 | bbto | Calcul de date selon conditions | J'ai réussi avec ce code, si il a plus court je suis toujours preneur d’idée. 'calcul nombre de mois Dim myRange As Range Set myRange = Range("A" & Rows.Count).End(xlUp) Range("X2").Select ActiveCell.FormulaR1C1 = _ "=DATEDIF(IF((RC[-7]<>"""")*(RC[-6]<>"""")=1,RC[-7&#... |
| 03/01/2020 à 12:26 | bbto | Calcul de date selon conditions | Merci ce code fonctionne =DATEDIF(SI((Q2<>"")*(R2<>"")=1;Q2;R2);AUJOURDHUI();"m") j'ai tiré de X2 a X19 comme la feuille bd est supprimé à chaque ouverture (environ 150 000lignes) le nombre de ligne est donc variable comment faire pour adapter la range du vba X2:X19 à X2 jusqu’à la derni... |
| 03/01/2020 à 11:52 | bbto | Calcul de date selon conditions | Le fichier d'exemple en pj Sub calculdate() ' BD de 150 000 lignes dateQ = CDate(Q2) ' date de la colonne Q dateQ = CDate("31/03/2006") comment ecrire dateq = avec variable ? dateR = CDate(R2) ' date de la colonne R dateS = CDate(S2) ' date de la colonne S datenow = Date ' date du jour If dateQ >... |
| 03/01/2020 à 11:30 | bbto | Trier sans doublon avec cumul selon condition | Voici un exemple en pj avec doublon en ligne 3 et 4. BD initial de 150 000 lignes... |
| 03/01/2020 à 10:31 | bbto | Trier sans doublon avec cumul selon condition | Sur une BD de 150 000 lignes en vba comment faire cela : Suppression des doublons d'un Array selon conditions exemple ci-dessous : doublon en A si C présent je conserve C,D mais pas B et E de la même ligne (B et E sont conservés des autres doublons) avant ..........................Colonne A........... |
| 02/01/2020 à 18:52 | bbto | Calcul de date selon conditions | Avez-vous une idée en vba... |
| 02/01/2020 à 17:57 | bbto | Calcul de date selon conditions | Sur une bd de 150 000 lignes je souhaite calculer le nombre de mois jusqu’à aujourd'hui selon les conditions de 3 colonnes. Exemple de conditions de calcul en D par ligne : si A existe B existe C existe alors D = DateDiff("m", A, Date) si A vide B existe C vide alors D = DateDiff("m", B, Date) si A... |
| 02/01/2020 à 16:15 | bbto | VBA - tableau et extraction (en fonction de conditions) | J'ai mis a jour le fichier ce sera peut être plus simple. Feuille CATE j'ai conservé le choix des catégories avec nom en A en numéro en B. Feuil BD En appuyant sur le bouton Go caté1 / résultat ça fonctionne parfaitement avec envoi vers RESULTAT1. En appuyant sur le bouton Go choix caté / résultat2... |
| 02/01/2020 à 14:35 | bbto | VBA - tableau et extraction (en fonction de conditions) | Bonjour M Boisgontier. Ok, j'ai mis à jour le fichier dans le post précédent... |
| 02/01/2020 à 13:33 | bbto | VBA - tableau et extraction (en fonction de conditions) | J'ai mis a jour le fichier ce sera peut être plus simple. Feuille CATE j'ai conservé le choix des catégories avec nom en A en numéro en B. Feuil BD En appuyant sur le bouton Go caté1 / résultat ça fonctionne parfaitement avec envoi vers RESULTAT1. En appuyant sur le bouton Go choix caté / résultat2... |
| 02/01/2020 à 10:15 | bbto | VBA - tableau et extraction (en fonction de conditions) | Ca fonctionne pour la caté1 en reprenant le dernier fichier es-ce possible de - conserver les deux boutons de la BD 1 bouton pour le choix des catégories 1 bouton pour les catégories déjà défini (caté1) dans la feuille CATE d'avoir : le numéro des catégories en A et le nom en B le numéro des catégor... |
| 01/01/2020 à 15:42 | bbto | VBA - tableau et extraction (en fonction de conditions) | J'ai reposté avec le fichier en zip... |
| 31/12/2019 à 10:58 | bbto | VBA - tableau et extraction (en fonction de conditions) | En conservant le dernier fichier reçu. J'ai ajouté le nom des catégories dans la feuille Caté (voir le fichier en pièce jointe ce sera peut être plus explicite) Es-ce possible D'ajouter les quatre premiers caractères du nom de la catégorie au début de la référence Supprimer la colonne catégorie Dépl... |
| 31/12/2019 à 10:33 | bbto | VBA - tableau et extraction (en fonction de conditions) | C'est parfait. merci bcp... |
| 30/12/2019 à 11:50 | bbto | VBA - tableau et extraction (en fonction de conditions) | Merci pour votre réponse, elle fonctionne bien. Pour le choix des catégories Je dois faire cette manipulation tous les jours avec un choix de 200 catégories qui resteront les mêmes. Es-ce possible de ne pas passer par une checkbox (200clics) mais d'indiquer seulement les catégories qui m’intéressent... |
| 30/12/2019 à 10:04 | bbto | VBA - tableau et extraction (en fonction de conditions) | J'ai essayé toutes vos solutions. La solution de Boisgontierjacques est en effet très rapide. Est-il possible de modifier le code pour ne pas sélectionner les 200 catégories qui vont de 1 à 200 mais de pouvoir choisir le numéro des catégories exemple 1,2,5,250,360,480 avec certainement 200 catégorie... |
| 26/12/2019 à 17:35 | bbto | VBA - tableau et extraction (en fonction de conditions) | Merci, pour votre réponse rapide et elle fonctionne. Note : je ne suis pas passé par un filtre avancé du menu données sur la BD car j'ai environ 1000 catégories et la sélection est variable environ 200. Maintenant que le principe fonctionne est il possible de faire ceci sur une plus grande plage de... |
| 26/12/2019 à 17:14 | bbto | VBA - tableau et extraction (en fonction de conditions) | J'ai une base de donnée de 200 000 lignes et 23 colonnes. la colonne A comporte les catégories, B les ref, C les prix etc.... j'aimerai extraire de cette BD que certaines catégories vers une feuil2 : trois catégories pour l'exemple catégorie 1,4,5 je souhaite gagner en temps de traitement et optimis... |