Astuces Excel
  1. Astuces Excel
  3. Excel: VBA supprime le groupe de lignes
Intereting Posts
Affichage des charts lorsque certains critères sont remplis dans Excel en utilisant les instructions if ou vba Formule problématique avec POI d'Apache Insérez une ligne dans la feuille de calcul Excel en utilisant openpyxl dans Python Sélectionnez une colonne en fonction de différents noms d'en-tête possibles Tracer un graphique CDF par Microsoft Excel Correspond à des mots individuels en string en VBA Pivot créé à l'aide de l'affichage de tableau croisé dynamic (Tous) au lieu de (Articles multiples) Comment puis-je supprimer complètement le contenu et les propriétés d'une cellule excel dans C #? Comment afficher le document MS-Excel et PDF dans le browser? Besoin d'écrire deux résultats dans la même feuille excel Comment puis-je get des données pour «remplir» d'une feuille à l'autre dans Excel 2007? Déplacer une partie de la ligne vers la deuxième rangée, et une partie de la ligne vers la troisième rangée Téléchargement de file JavaScript xlsx Créez l'index de la boucle et copyz datatables des feuilles de travail d'index en Master Colonne de boucle Excel Une colonne d'action B

Excel: VBA supprime le groupe de lignes

J'ai un file excel avec une colonne avec des données. Quelque chose comme: 

21/07/2017 DEF GHI Field 7 SOMETHING HERE MORE TEXT 21/07/2017 DEF GHI Field 7

Cela se répète quelques milliers de fois. Ce que je cherche, ce sont toutes les lignes entre 21 et 20/20/20 et Field 7 à supprimer et pour les lignes à déplacer vers le haut.

J'ai essayé quelques choses mais maintenant de nouveau sur une canvas vierge! Des conseils?

Merci

CODE QUE J'AI FAIT

Je reçois une erreur de débordement 

 Sub deleteRows() Dim sh As Worksheet Dim rw As Range Dim RowCount As Integer RowCount = 1 Application.DisplayAlerts = False Set sh = ActiveSheet For Each rw In sh.Rows If sh.Cells(rw.Row, 1).Value = "21/07/2017" Then a = RowCount End If If sh.Cells(rw.Row, 1).Value = "Field 7" Then b = RowCount Rows(a & ":" & b).Delete End If RowCount = RowCount + 1 Next rw End Sub

Cela ne bougera que plusieurs fois que la paire existe et supprime chaque bloc dans son set.

La boucle se termine la première fois que les deux valeurs ne sont pas trouvées dans les valeurs restantes. 

 Sub myDelete() Dim str1 As ssortingng Dim str2 As Ssortingng Dim rng As Range Dim ws As Worksheet Dim i As Long Dim j As Long str1 = "21/07/2017" str2 = "Field 7" Set ws = Worksheets("Sheet18") 'change to your worksheet Set rng = ws.Range("A:A") Do i = 0: j = 0 On Error Resume Next i = Application.WorksheetFunction.Match(str1, rng, 0) j = Application.WorksheetFunction.Match(str2, rng, 0) On Error GoTo 0 If i > 0 And j > 0 Then ws.Rows(i & ":" & j).Delete End If Loop Until i = 0 Or j = 0 End Sub

Si votre date est une date réelle, modifiez str1 en Double: 

 Dim str1 As Double

puis affectez-le comme tel: 

 str1 = CDbl(DateSerial(2017, 7, 21))