Discussion :

[mrsx37]

Bonjour,

Je suis charlotte alias mrsx je suis nouvelle sur le forum.

Je travail sous excel en vba.

(J'ai repris un code déjà existant sur internet pour faire ce que j'ai commencé, en le modifiant un peut.)

Ce que je cherche à faire c'est dans mon tableau je veux rechercher dans ma colonne b les numéros de services 2836 afin de supprimer la ligne.

Je cherche dans ma colonne B la cellule qui contient 2836, je récupère la ligne puis je sélectionne la ligne et je la supprime et enfin je passe à la suivante.

Mais mon code marche à une exception prêt. Si m'a dernière cellule de ma colonne b n'est pas vide et donc n'est pas le service 2836 il me met:
Erreur d'exécution 424 objet requis

Voici mon 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
21
22
23
24
25
26
27
28
Sub teste()
 
'###################
'enlève le 2836
 
Range("B1").Select
 
Set c = Worksheets("Feuil1").Range("b1:b50").Find("2836", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do While Range(Selection.Address).Value <> ""
 
ligne = c.Row
col = c.Column
 
 
Set c = Worksheets("Feuil1").Range("b1:b50").FindNext(c)
 
Rows(ligne & ":" & ligne).Select
    Selection.Delete Shift:=xlUp
 
Cells(ligne, col).Select
 
Loop
End If
 
'####################
End Sub

J'allé oublier
Il me dit que la ligne erroné est

Code :

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

ligne = c.Row

Je voudrai que quand c'est la fin de la recherche autrement dit quand y'a plus de 2836 il arrête de rechercher.

je sais pas comment faire.

Par avance merci de votre aide.

Charlotte.

[Antoniom]

Hello,

Essaie comme ceci peut-être...

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
    Range("B1").Select
 
    Set c = Worksheets("Feuil1").Range("b1:b50").Find("2836", LookIn:=xlValues)
 
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do While Range(Selection.Address).Value <> ""
            ligne = c.Row
            col = c.Column
            Set c = Worksheets("Feuil1").Range("b1:b50").FindNext(c)
            Rows(ligne & ":" & ligne).Select
            Selection.Delete Shift:=xlUp
            Cells(ligne, col).Select
        Loop
    Else 'Autrement
        Exit Sub 'Sort de la procédure
    End If

Bon week !

[Daniel.C]

Bonjour et bienvenue sur le forum.

eux choses, dans ton code; d'une manière générale, il vaut mieux éviter les "Select", ça ralentit inutilement le code; sinon, et je me suis déjà fait avoir, quand tu mets

Code :

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

....FindNext(c)

"c" représente la dernière cellule trouvée. Dans le cas présent, tu l'as supprimée, ça ne peut donc pas fonctionner. J'ai donc un peu modifié ton code. Si tu as des questions, n'hésite pas.

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
Sub teste()
 
'###################
'enlève le 2836
 
Dim c As Range, Plage As Range
Set Plage = Worksheets("Feuil1").Range("b1:b50")
Do
    Set c = Plage.Find("2836", LookIn:=xlValues)
    If c Is Nothing Then Exit Do
    c.EntireRow.Delete
 
Loop
 
'####################
End Sub

[mrsx37]

J'ai toujours le même problème. Mais Merci quand même.

Je continue de chercher.

Mais en faite je lui dit tant que ma cellule n'est pas vide il continu (do while..)
La je suis ok mais il faudrai lui faire prendre en compte la dernière ligne.

Sinon je triche et je lui affecté juste après la dernière cellule pleine le 2836 comme ça il suprime la ligne et je me retrouve en ligne vide.

C'est fesable mais y'a peut être plus simple lol.

[mrsx37]

Merciii Daniel C

ça marche nickel Merci beaucoup.

Ok je savais pas pour le selecte, merci beaucoup.

Et merci de l'aide des autres aussi.

Bon week end.