Discussion :

[yoyo3d]

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]

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]

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

[marsupilami34]

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]

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

[marsupilami34]

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]

ca revient au meme non?