| Date | Auteur du sujet | Sujet | Extrait du message |
|---|
| 11/05/2022 à 15:46 | BreizhThom | VBA Recherche V | Bonjour à tous, je fais appel à vos solides compétences et vôtre âme pédagogue pour m'aider face à un code un peu trop costaud pour mes faibles compétences (en progression) Dans le classeur "fichier 1" Pour chaque cellules JAUNE de la colonne k (à partir de la ligne 10). (Il n'y a pas besoin que les... |
| 12/05/2020 à 16:27 | BreizhThom | For I Next | T'as proposition de code fonctionne parfaitement, merci pour les commentaires en plus. Merci pour vôtre temps et sans doutes à bientôt ! Thom... |
| 12/05/2020 à 16:06 | BreizhThom | For I Next | Non La méthode Sort de la range échoue malheureusement. Au risque d'être un poil chiant, comme j'apprend tout seul les commentaires de fonctionnement me sont très utile pour comprendre plutôt que de recopier bêtement un code de quelqu'un qui maîtrise... |
| 12/05/2020 à 15:56 | BreizhThom | For I Next | C'est une option que je garde de coté si la suppression par Macro est trop galère, c'est assez frustrant car en Pas à Pas cela fonctionne mais via le bouton de commande plus du tout... |
| 12/05/2020 à 15:38 | BreizhThom | For I Next | Je reviens à la suite de mon premier post sur le sujet, j'aimerai avoir vôtre avis. la Macro exécute cette boucle sur une feuille contenant une extraction brut d'un WMS. Parfois cette extraction peut contenir jusqu'à 50.000 lignes et plus. Ma question est : Est ce qu'il y a une différence entre ce c... |
| 12/05/2020 à 14:38 | BreizhThom | Boucle For i Next | Alors le problème est réglé ! Avec le code de Archer, il faut penser à remplacer .End(xlDown) par (xlUP). Merci AlgoPlus pour l'explication du fonctionnement. Sub XDK_2() With Sheets("Extraction") For i = .Range("P" & Rows.Count).End(xlUp).Row To 3 Step -1 If Cells(i, 16) <> "XDK" Then Row... |
| 12/05/2020 à 14:31 | BreizhThom | Boucle For i Next | J'ai bien compris l'explication de AlgoPlus et l'intérêt du (step - 1) de Archer mais la proposition de code de Archer ne fonctionne pas ou fait tourner la boucle dans le vide. J'ai essayer de placer le (step - 1) à différent endroit comme après le (Next i) par exemple mais ça ne fonctionne pas comm... |
| 12/05/2020 à 11:49 | BreizhThom | Boucle For i Next | Je me suis lancé dans l'apprentissage de l'utilisation des Boucles. Sub XDK() Dim cellule As Range With Sheets("Extraction") For i = 3 To .Range("P" & Rows.Count).End(xlDown).Row If Cells(i, 16) <> "XDK" Then Rows(i).EntireRow.Delete End If Next i End With End Sub L’exécution du code fonct... |
| 11/05/2020 à 10:53 | BreizhThom | Vérification d'une range Feuille 1 par rapport à une range Feuille 2 | Le fichier est presque vide maintenant mais le voilà, je ne comprend pas comment coder : Si la date Min de la colonne AN de la feuille Extraction est supérieur ou égale à la date Max de la colonne A de la feuille TDB alors MsgBox "Attention..." Merci à ceux qui prendrons le temps de m'aider. cdlt Th... |
| 10/05/2020 à 17:54 | BreizhThom | Vérification d'une range Feuille 1 par rapport à une range Feuille 2 | 1 Workbook 2 Worksheets : "Extraction" pour accueillir l'extraction brut d'un WMS, l'extraction est supprimé à la fin de l’exécution de la MACRO "TDB" un tableau qui regroupe les données de l'extraction, ce tableau sert d'historique sur l'année et de base de donnée pour un futur TCD. Sur la feuille... |
| 10/05/2020 à 17:45 | BreizhThom | Vérification d'une range Feuille 1 par rapport à une range Feuille 2 | Le fichier est trop volumineux même après compression... |
| 10/05/2020 à 17:26 | BreizhThom | Vérification d'une range Feuille 1 par rapport à une range Feuille 2 | Ou peut être comme ça ? Sub vérification() Dim earliest As Date, latest As Date earliest = Worksheets("Extraction").Function.Min(Range("AN3:AN" & Extraction.Range("AN" & Rows.Count).End(xlUp).Row)) latest = Worksheets("TDB").Function.Max(Range("A2:A" & TDB.Range("A" & Rows.Count).End... |
| 10/05/2020 à 16:55 | BreizhThom | Vérification d'une range Feuille 1 par rapport à une range Feuille 2 | Pourriez vous m'aidez à comprendre comment traduire ce bout de code correctement pour que la MACRO l'exécute à chaque fois. L'idée : chaque semaines une extraction est faite du lundi 00:00 au dimanche 23:59 de la semaine précédente. Avant que mon code ce lance, je souhaite que la MACRO fasse une vér... |
| 16/04/2020 à 14:50 | BreizhThom | Boucle While | Un peu d'humour quand même, j'ai commencé le VBA tout seul depuis 1 semaine .. je reviendrai sûrement avec d'autres questions !! merci encore A+... |
| 16/04/2020 à 14:28 | BreizhThom | Boucle While | C'est exactement ça ! Il me manquait le "i" après le Next surtout. Merci à vous 2, c'est déjà un peu plus clair pour moi A+... |
| 16/04/2020 à 14:09 | BreizhThom | Boucle While | Il ne semble pas y avoir d'erreur de script mais rien ne se passe ?? Sub Boucle_2() Dim ligne As Integer For i = 3 To Range("G" & Rows.Count).End(xlUp).Row If Range("G" & i).Value = Len("11111111111") Then 'len = 11 ligne = ligne + 1 Worksheets("AUTREFEUILLE").Range("G" & ligne).Value = Right(Range(... |
| 16/04/2020 à 13:19 | BreizhThom | Boucle While | D'accord donc il serait plus simple d'utiliser le code avec la variable ligne du coup. if range("G" & i).value = 11 caractères, then je rencontre quand même un problème avec cette ligne, je crois que "caracteres" n'est pas accepté ?? que ce soit un chiffre ou une lettre ou autre je peux utiliser le... |
| 16/04/2020 à 11:42 | BreizhThom | Boucle While | Dans le [if range("G" & i).value = 11 caractères] la macro va compter pour chaque cellule le nombre de caractères contenus ? l'idée est de garder les 2 derniers caractères d'un nombre de 11 chiffres pour chaque cellules non vide de la colonne G, avant de CC / CV cette colonne sur une autre f... |
| 16/04/2020 à 11:14 | BreizhThom | Boucle While | J'aimerai que l'on m'explique comment coder une condition particulière pour mon cas et votre avis sur ce code svp. Il faut savoir que je débute en VBA et que c'est un entrainement. Sub Boucle() Dim target As Range Dim cell As Range Dim mystr As Byte Set target = Columns("G") Set cell = target.Cells(... |
| 15/04/2020 à 12:10 | BreizhThom | Formule DROITE | 78chris, merci beaucoup ... |
| 15/04/2020 à 11:55 | BreizhThom | Formule DROITE | Je débute pour la création et l'utilisation des MACRO. Actuellement je fait face à un soucis qui me rend fou. Je souhaite récupérer les 2 derniers chiffres d'un nombre de 11 chiffres puis coller ces fameux 2 derniers chiffres dans une une colonne bien précise sur une autre feuille. Il y a bien une a... |