Supprimer une ligne excel apres un test IF

**yoyo3d** · 15/09/2006, 15h12

Bonjour à tous, tout d'abord, j'espere que je poste sur le bon forum...

Je ne connais pas vraiment visual basic pour excel, mais j'essaye d'automatiser certaines taches sous excel 2000 .
Voilà mon soucis, je récupère des listes d'enregistrement issues d'un terminal téléphonique, chaque ligne correspond à un appel et je dois d'abord supprimer les lignes qui ne m'intéressent pas…
En fait tout ce qui n'est pas identique à "xx" ou "yy" ou "zz"dans la colonne A, je souhaite le supprimer.
J'ai essayer de faire un test if( testvaleur; valeur si vrai;valeur si faux), mais dans la valeur si faux, je ne peux pas supprimer la ligne qui contient ma valeur fausse.

Voilà une partie de mon code:

Ici, je teste pour voir si la cellule contient une valeur numérique ou pas( apres transformation par mes sois…)

Code :

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

1
2
Range("A2").Select
ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[2])"

Ici, j'incrémente mon test jusqu'à la ligne 10000

Code :

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

Selection.AutoFill Destination:=Range("A2:A10000"), Type:=xlFillDefault

la je voudrais spécifier que si ma valeur de résultat est vrai, je garde la ligne, sinon:

Code :

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

1
2
Rows("2:2").Select
Selection.Delete Shift:=xlUp

j'espere avoir été suffisament claire dans ma question, merci à vous...

**VBBBA** · 15/09/2006, 15h24

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub a()
Dim i As Integer
i = 1 ' ici la premiere ligne à checker
Do Until Cells(i, 1) = ""
 
If Cells(i, 1).Value = "aa" Or Cells(i, 1).Value = "bb" Or Cells(i, 1).Value = "cc" Then
 
Rows(i & ":" & i).Delete
End If
i = i + 1
Loop
 
End Sub

essai ca...et adapte le

**yoyo3d** · 15/09/2006, 15h32

ok, merci, c'est une réponse "flash"
j'essaie et je te dit si ça marche...
merci encore

**marsupilami34** · 15/09/2006, 16h08

Envoyé par VBBBA

Code :

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

1
2
3
4
5
 
 
Rows(i & ":" & i).Delete
End If
i = i + 1

Attention, si tu incrémenta quand tu supprime une ligne, tu vas oublier de vérifier une ligne du au fait que lorsque tu supprimes une lignes les lignes d'en dessous remonte.

Donc i=i+1 oui mais si tu ne supprimes pas de lignes

**VBBBA** · 15/09/2006, 16h16

mais lui veut supprimer des lignes comment dois on faire dans ce cas..

**marsupilami34** · 15/09/2006, 16h19

Peut être comme ceci

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub a()
Dim i As Integer
i = 1 ' ici la premiere ligne à checker
while Cells(i, 1) = ""
 
      If Cells(i, 1)= "aa" Or Cells(i, 1)= "bb" Or Cells(i, 1)= "cc" then
         Rows(i & ":" & i).Delete
      End If
      i = i + 1
 
Wend
 
End Sub

**VBBBA** · 15/09/2006, 16h21

ca revient au meme non?

**VBBBA** · 15/09/2006, 16h26

ile est pas bon ton code....il cheke aucune ligne

**plegat** · 15/09/2006, 16h31

Envoyé par VBBBA

ile est pas bon ton code....il cheke aucune ligne

C'est le même que le tien sauf qu'il utilise un WHILE en lieu et place d'une DO UNTIL (et qu'il s'est planté sur la condition du while, mais bon...)

Deux possibilités:
1) utiliser un IF THEN ELSE, faire la suppression de ligne dans le THEN, et l'incrémentation dans le ELSE
2) chercher la dernière ligne à traiter, et vérifier les lignes en partant de la fin et en remontant (en gros, en décrémentant l'indice i)

**VBBBA** · 15/09/2006, 16h38

ton code ne cheke pas

il faut while not cells(i,1) = ""

**VBBBA** · 15/09/2006, 16h40

en reprenant ton dernier commentaire et en ajoutant not

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
 
 
Sub a()
Dim i As Integer
i = 1 ' ici la premiere ligne à checker
While Not Cells(i, 1) = ""
 
      If Cells(i, 1) = "aa" Or Cells(i, 1) = "bb" Or Cells(i, 1) = "cc" Then
         Rows(i & ":" & i).Delete
      Else
      i = i + 1
      End If
 
 
Wend
 
End Sub

et la ca marche

**yoyo3d** · 15/09/2006, 16h44

bon, vous fachez pas, je comprend vos codes, mais je n'arrive pas à les integrer dans ma macro...
je vais essayer le dernier, mais est ce que je peux directement l'integrer dans le code de ma macro?

edit

ok ça marche j'avais pas prix en compte les valeur aa ou bb, mais VRAI et FAUX dans mon code, merci encore, c'est super....

**VBBBA** · 15/09/2006, 16h46

à toi d'adapter aprés

**yoyo3d** · 18/09/2006, 09h10

Salut, je pensais avoir résolu le mystere et finalement le code ne fonctionne 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
17
18
19
20
21
22
23
24
25
26
27
Columns("C:C").Select
' voici le début de mon code

    Selection.Replace What:="""19""", Replacement:="aa", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="""17""", Replacement:="bb", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="""18""", Replacement:="cc", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False
    Selection.Replace What:="""20""", Replacement:="dd", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False


Dim i As Integer
' je fait partir cette fonction à partir de la ligne 2 pour garder ma ligne de titre

i = 2 ' ici la premiere ligne à checker
While Not Cells(i, 1) = ""

      If Cells(i, 1) = "aa" Or Cells(i, 1) = "bb" Or Cells(i, 1) = "cc" Or Cells(i, 1) = "dd" Then
         Rows(i & ":" & i).Delete
      Else
      i = i + 1
      End If
      

Wend

en fait le changement de valeur est bien réalisé, mais les lignes ne correspondant pas, ne sont pas effecées...j'ai oublié quelquechose???
merci

**ouskel'n'or** · 18/09/2006, 10h46

Hello,
Je ne comprends plus rien à ce que tu veux faire...

Envoyé par Tu

En fait tout ce qui n'est pas identique à "xx" ou "yy" ou "zz"dans la colonne A, je souhaite le supprimer.

Ce que tu fais :
Tu recherches une valeur entre guillemets que tu "cherches" à remplacer par des caractères sans guillemet.
Et donc, tu cherches "18", "19", "20", guillemets compris et ne les effaces donc pas, mais tu cherches à les remplacer par aa bb cc... sans les guillemets.
Tu sélectionnes une colonne et ta demande de remplacement se fait par ligne, non par colonne... (SearchOrder:=xlByRows)
Enfin, tu dis "je fais partir ma plage à la ligne 2" or en sélectionnant ta colonne, tu sélectionnes... toute la colonne (Columns("C:C").Select)

Essaie de reformuler ta demande, là "je" n'y comprends rien.
- Ce que tu veux faire (remplacer ou effacer)
- Quelles données tu cherches (sont-elles pourvues ou non de guillemets)
- Où se trouvent-elles (Sur une colonne unique ou partout dans la feuille ?)
A+

**yoyo3d** · 18/09/2006, 11h53

bon, désolé, je me suis embrouillé avec ce que je voulais réaliser au dépard et les solutions que vous m'avez touts proposées...
au depart, avec ma macro, je voulais :
1) remplacer les ""17"" de mon listing par des "17", les ""18"" par des "18" etc cela me semblait plus simple pour reperer les lignes qui ne m'interressent pas!!
2) ensuite, tout ce qui n'est pas "17" ou "18" etc je souhaitait le supprimer....

vu les listing proposés , je n'avais plus besoin de modifier les valeurs puisque visiblement, le code if ...then ... permetait de supprimer directement les lignes qui ne contenaient pas mes valeurs de test ....

c'est plus clair la???
en fait tout ce qui est remplacement de valeurs dans mon code n'est plus utile, sauf que vos codes ne me suppriment pas les lignes inutiles, c'est une histoire de format de characteres???

**ouskel'n'or** · 18/09/2006, 12h01

Non. Quand tu fais une recherche, tu recherches une cellule. Quand la cellule est trouvée, il faut supprimer la ligne et non la selection. Or ta solution ne le permet pas telle quelle. Pour supprimer ta ligne tu dois la désigner

Code :

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

Rows(NoLigne).delete

A+

**SfJ5Rpw8** · 18/09/2006, 12h26

Envoyé par yoyo3d

....
c'est plus clair la???
en fait tout ce qui est remplacement de valeurs dans mon code n'est plus utile, sauf que vos codes ne me suppriment pas les lignes inutiles, c'est une histoire de format de characteres???

bon est tu en est ou ..? ce code

Code :

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

1
2
3
4
5
6
 
If Cells(i, 1) = "aa" Or Cells(i, 1) = "bb" Or Cells(i, 1) = "cc" Then
         Rows(i & ":" & i).Delete
      Else
      i = i + 1
      End If

teste la colonne 1 : A ..? c'est bien cela que tu veu..?

**yoyo3d** · 18/09/2006, 16h55

bon, je vais recommencer mon cde et je vous tiens au courant,
Merci

Supprimer une ligne excel apres un test IF

Macros et VBA Excel

Discussions similaires

Partager

Partager