Discussion :

[Pefds]

Bonjour à tous,

Très autodidacte, Je viens souvent sur ce site piocher des informations très utiles pour créer mes propres macros VBA et ainsi améliorer mon utilisation Excel ; c'est donc la première fois que je fais appel à votre aide.

Et malgré mes recherches, je ne trouve pas la solution à mon problème qui peut vous paraître evident...

Je retraite un fichier texte dans Excel et je supprime des lignes inutiles en m'apuyant sur une recherche par mot clé se trouvant dans le fichier. Jusqu'à présent, j'utilisais une seule recherche dans une macro et cela fonctionnait plutôt bien.
Je me rends compte qu'aujourd'hui, en ajoutant une seconde recherche, que j'ai une erreur de type "run-time error 91" "Object Variable or With Block variable not set" et je ne trouve pas et ne vois pas à quel type de problème auquel je suis confronté pour pouvoir le résoudre.

Lorsque je fais une seule recherche, j'utilise le code suivant et je ne rencontre aucun souci. je fais une recherche sur le contenu d'une cellule, et je supprime les 6 lignes precedents et les 4 lignes suivantes sur tout le fichier :

Code :

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

1
2
3
4
5
6
7
8
9
range("A1").Select
On Error GoTo sortie
    Do
        cells.Find(What:="P.APAD", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        range(ActiveCell.offset(-6, 0), ActiveCell.offset(4, 0)).Select
        selection.EntireRow.Delete
    Loop
sortie:

Sur le meme fichier je decide alors de faire plusieurs traitements du meme genre et j'ai donc tout naturellement copier/coller le meme code pour chercher sur un autre contenu :

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
21
22
23
24
'suppression lignes en-têtes
range("A1").Select
On Error GoTo sortie
    Do
        cells.Find(What:="P.APAD", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        range(ActiveCell.offset(-6, 0), ActiveCell.offset(4, 0)).Select
        selection.EntireRow.Delete
    Loop
sortie:
 
 
'suppression lignes titres
range("A1").Select
 
 
On Error GoTo sortie1
    Do
        cells.Find(What:="VENDOR/", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
        range(ActiveCell.offset(-1, 0), ActiveCell.offset(2, 0)).Select
        selection.EntireRow.Delete
    Loop
sortie1:

Mais Excel ne le comprend pas comme je le souhaiterais
Je n'arrive surtout pas à comprendre pourquoi une recherche se passé bien, et 2 traitements ça coince...
Est-ce que quelqu'un pourrait m'éclairer sur ce point ?

Merci d'avance.

[Igloobel]

Bonjour,

je suis très surprit que cela .... Marche pour le premier.

je ne connais pas le Do ... Loop

par contre je connais les :

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
do  While condition
...
Loop
------------
do Until condition
...
loop
------------
do
...
loop While condition
------------
do 
...
loop Until condition

Parce qu'il faut bien sortir de la boucle avec une condition (que j'ai pas vu )

Donc peut-être que quand tu fais une autre recherche il se perd ...

tu dis

A+

PS : Met ton code entre balise code (clic sur #) c'est plus lisible

[Menhir]

Code :

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

On Error GoTo sortie

Ce type de code est à éviter à tout prix en phase de développement.
Ca t'empêche de voir les problèmes.

[Pefds]

Merci pour vos réponses.

J'avoue que ça ne répond pas trop à mon problème technique car un DO... LOOP tout seul fonctionne bien car je l'utilise dans plusieurs macros mais il est vrai que je n'avais qu'un seul type de recherché, donc cette bidouille devait fonctionner quand même

J'ai suivi les conseils et j'ai modifié mon code en conséquence pour donner cela :

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
21
22
23
'suppression lignes en-têtes
 
range("A1").Select
    With Maplage
    Do Until cells.Find(What:="P.APAD") Is Nothing
        cells.Find("P.APAD", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        range(ActiveCell.offset(-6, 0), ActiveCell.offset(4, 0)).Select
        selection.EntireRow.Delete
    Loop
    End With
 
 
'suppression lignes titres
range("A1").Select
    With Maplage
    Do Until cells.Find(What:="VENDOR/") Is Nothing
        cells.Find("VENDOR/", After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False).Activate
        range(ActiveCell.offset(-1, 0), ActiveCell.offset(2, 0)).Select
        selection.EntireRow.Delete
    Loop
    End With

et cela fonctionne beaucoup mieux
Peut-être justement parce que je definis l'Objet variable avec un WITH au sein de la plage determinée comme demandé lors du message d'erreur n°91 d'Excel.

Merci beaucoup pour votre aide, j'ai encore appris quelque chose de nouveau

[Theze]

Bonjour,

Le problème avec Find c'est qu'il n'aime pas trop les suppressions dans la plage de recherche et surtout, il faut tester si le range existe avec "Is Nothing". Cette procédure parcours la zone utilisée dans la feuille et colore en rouge les lignes puis ensuite, en partant du bas, supprime toutes les lignes ayants une cellule rouge en colonne A :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
    Dim Adr As String
    Dim I As Long
 
    'défini la plage sur la feuille active
    Set Plage = ActiveSheet.UsedRange
 
    'effectue la recherche
    Set Cel = Plage.Find("P.APAD", , xlFormulas, xlPart)
 
    'si trouvé
    If Not Cel Is Nothing Then
 
        'mémorise l'adresse
        Adr = Cel.Address
 
        Do
 
            'colore les lignes en rouge
            Range(Cel.Offset(-6), Cel.Offset(4)).EntireRow.Interior.ColorIndex = 3
 
            'continu la recherche
            Set Cel = Plage.FindNext(Cel)
 
        Loop While Adr <> Cel.Address
 
    End If
 
    'idem pour le second mot...
    Set Cel = Plage.Find("VENDOR/", , xlFormulas, xlPart)
 
    If Not Cel Is Nothing Then
 
        Adr = Cel.Address
 
        Do
 
            Range(Cel.Offset(-1), Cel.Offset(2)).EntireRow.Interior.ColorIndex = 3
 
            Set Cel = Plage.FindNext(Cel)
 
        Loop While Adr <> Cel.Address
 
    End If
 
    'boucle sur les cellules de la colonne A en partant du bas et supprime les lignes ayant la cellule en rouge
    For I = Plage.Rows.Count To 1 Step -1
 
        If Cells(I, 1).Interior.ColorIndex = 3 Then Cells(I, 1).EntireRow.Delete
 
    Next I
 
End Sub