Discussion :

[eudeline91]

Bonjour,
Je n'arrive pas à faire de boucle, je cherche à trouver tous les mots "total" d'une page et a supprimer La Ligne dans laquel le mot apparaît.
Voici un code, il fonctionne mais il bug

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
For i = 1 To 20
  Cells.Select
    Selection.Find(What:="total", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
        ActiveCell.EntireRow.Delete

Merci de votre aide.

[edelweisseric]

Bonjour à tous
Bonjour eudeline91

Essaie ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub efface()
Dim c As Range
Dim ligne As Integer
 
With Worksheets("Feuil1").Range("a1:j20")   ' MODIFIER SUIVANT LA PLAGE
 
mavar = "total"
    Set c = .Find(mavar, LookIn:=xlValues, Lookat:=xlWhole) ' Lookat:=xlwhole => recherche exacte
                                                          ' Lookat:=xlPart  => recherche dans la cellule n'importe où
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            ligne = c.Row
            Range(ligne & ":" & ligne).Delete
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
 
End Sub

Eric

[mayekeul]

bonjour,

il vaux mieux utiliser findnext pour les recherche suivante

un peu comme ça:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub fra()
 
Dim c As Range
    Set c = Cells.Find(What:="total", After:=ActiveCell, LookIn:=xlFormulas, _
        lookat:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)
 
Do Until c Is Nothing
    c.EntireRow.Delete
    Set c = Cells.FindNext
Loop
 
End Sub

[fring]

Bonjour,

Quel est ta plage de cellules ?
Petite remarque, lorsqu'on fait une boucle afin de supprimer des lignes entières, il faut la faire en remontant sinon tu risques qu'il en saute si plusieurs lignes d'affilées.

Supposons que ta plage de cellules est la colonne D, de la cellule D2 à Dxx, cela donnerait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Sub test()
Dim i As Integer '<-- déclaration de la variable i
 
For i = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1 '<-- boucle de la dernière ligne occupée de la colonne D à la ligne 2
    If Cells(i, 4) = "total" Then Rows(i).Delete
Next
End Sub

[mayekeul]

D'accord mais dans ce cas ci en supprimant la ligne, il va continuer la recherche sur la ligne suivante.
Il n'y a aucune raison, qu'il en oublie, vu que si ily en avais d'autre sur la même lignes... elles sont déjà supprimées

non?

[eudeline91]

Merci à tous les deux pour votre aide, cela fonctionne. Le deuxième code de mayekeul me semble plus facile à comprendre.
Merci beaucoup !!