Supprimer une ligne excel apres un test IF

Version imprimable

15/09/2006, 15h12
yoyo3d

Supprimer une ligne excel apres un test IF
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:

1 2 Range("A2").Select ActiveCell.FormulaR1C1 = "=ISNUMBER(RC[2])"
Ici, j'incrémente mon test jusqu'à la ligne 10000

Code:

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:

1 2 Rows("2:2").Select Selection.Delete Shift:=xlUp
j'espere avoir été suffisament claire dans ma question, merci à vous...

Code:

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

15/09/2006, 15h32
yoyo3d

ok, merci, c'est une réponse "flash"
j'essaie et je te dit si ça marche...
merci encore
15/09/2006, 16h08
marsupilami34
Citation:
Envoyé par VBBBA

Code:

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
15/09/2006, 16h16
VBBBA

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

Peut être comme ceci

Code:

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

15/09/2006, 16h21
VBBBA

ca revient au meme non?
15/09/2006, 16h26
VBBBA

ile est pas bon ton code....il cheke aucune ligne
15/09/2006, 16h31
plegat

Citation:

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)
15/09/2006, 16h38
VBBBA

ton code ne cheke pas

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

en reprenant ton dernier commentaire et en ajoutant not

Code:

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

15/09/2006, 16h44
yoyo3d

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:roll:
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....
15/09/2006, 16h46
VBBBA

à toi d'adapter aprés

Salut, je pensais avoir résolu le mystere et finalement le code ne fonctionne pas,

Code:

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

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

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

Citation:

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+
18/09/2006, 11h53
yoyo3d

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???
18/09/2006, 12h01
ouskel'n'or

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:

Rows(NoLigne).delete

A+
18/09/2006, 12h26
SfJ5Rpw8
Citation:

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:

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..?
18/09/2006, 16h55
yoyo3d

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