[VBA-E]recherche de toutes lignes avec zero

**zoumzoum59** · 09/06/2006, 20h47

Bonjours a tous

desolé de commancer comme cela mais je n'ai pas d'idée pour debuter mon Code.
Sauf pour selectionner le tableau mais apres je suis perdu

Je voudrais dans un tableau comportant des lignes et des colonnes (donc par definition un tableau) selectionner toutes les lignes comportant un zero situé toujours dans la meme colonne et en l'ocurence la colonne "D".

Ensuite toutes ces lignes selectionner je voudrais les supprimer.

Si quelqu'un peu m'aiguiller sur la demarche à suivre.

Merci d'avance

**SfJ5Rpw8** · 09/06/2006, 21h56

ben déjà tu le sélectionne comment ton tableau ..? montre ton code et dis nous ce qui est sélectionné .. et la position de ta colonne D .. par rapport à cela ..
ensuite on trouvera le For Each... qui va bien

**zoumzoum59** · 09/06/2006, 22h06

Mon tableau est selectionner par le code suivant:

Code :

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

1
2
3
4
Set firstcell = Range("H1")
Set lastcell = Range("A65536").End(xlUp)
Set zone = Range(firstcell, lastcell)
Range(firstcell, lastcell).Select

Et donc je veux faire une recherche dans la colonne D (qui est en quatrieme position) sur la plage selectionner et supprimer toutes les lignes qui comprote un zero dans cette colonne.

**SfJ5Rpw8** · 09/06/2006, 22h15

donc tu sélectionne une plage allant de Axxx à H1, xxx étant la derniére ligne "non-vide" dans la colonne A...

bon au lieu de sélectionner la zone .. affecte une variable range à celle-ci
puis par un For Each.. parcours en les lignes..et à chaque tour de boucle contrôle la colonne D et supprime la ligne si = 0...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim rTab As Range
Dim r As Range
Set rTab = Range(firstcell, lastcell)
For Each r In rTab.Rows
  'ici à chaque tour de boucle ..
  ' r.. représente une ligne du tableau..
  If r.Cells(4) = 0 Then
    r.Delete Shift:=xlUp
End If
Next

PS : Ensuite pose toi la question "que ce passe t'il si la feuille contenant mon tableau n'est pas la feuille active au moment du lancement de la macro..."

**zoumzoum59** · 09/06/2006, 22h45

Je viens de tester ton code bbil est apparemment rien ne se supprime aucune ligne, mais sur la variable lastcell j'ai une valeur qui est renvoyer en faisant un stop juste apres ton code avec "erreur 2015".

Voila le 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
selection.Copy
    Workbooks.Add
 
    selection.PasteSpecial Paste:=xlPasteValues
 
     Stop
       Dim rTab As Range
Dim r As Range
Set rTab = Range(firstCell, lastCell)
For Each r In rTab.Rows
  'ici à chaque tour de boucle ..
  ' r.. représente une ligne du tableau..
  If r.Cells(4) = 0 Then
    r.Delete Shift:=xlUp
End If
Next
Stop

**SfJ5Rpw8** · 09/06/2006, 23h01

il manque tes lignes d'affectation de lastCell et firsCell.. que je n'ai pas voulu reprendre.....

Code :

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

1
2
3
 
Set firstcell = Range("H1")
Set lastcell = Range("A65536").End(xlUp)

en plus dans mon premier code j'avais zapper.. ton set zone... on aurai pu utiliser ta variable range zone, en lieu et place de mon rTap

**zoumzoum59** · 09/06/2006, 23h06

Ok bbil j'ai retester et ça marche en parti le code m'a bien supprimé la ligne i mais ne m'a pas supprimé la ligne j qui a egalement un zero, il me semble avoir lu un message d'Alain Tech sur un autre post que c'etait du au probleme que la ligne j apres suppression devenait et provoquait le bug.

Mais je peux me planter et que ce que je viens de dire n'a pas de sens.

Si c'est le cas toute mes excuses.

**SfJ5Rpw8** · 09/06/2006, 23h14

oups... j'ai du mal à te suivre ... c'est quoi ces lignes i et j ??

**zoumzoum59** · 09/06/2006, 23h21

Ligne i et j C'est la ligne N°9 et la ligne N°10 toute mes excuses c'est moi qui me suis mal exprimer car dans la colonne A( n°1 ) j'ai une liste qui ce deroule alphabetiquement.

Donc j'aurais pas du utiliser les termes i et j.

**SfJ5Rpw8** · 09/06/2006, 23h27

ok .. bon tu aurai pu nous mettre un lien vers le post à alain...

tiens une solution serai peu-être de grouper par une "union" les lignes à détruire dans un même range et à les détruire aprés la boucle for :

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
Dim rADet As Range
Dim rTab As Range
Dim r As Range
Set firstcell = Range("H1")
Set lastcell = Range("A65536").End(xlUp)
Set rTab = Range(firstcell, lastcell)
For Each r In rTab.Rows
  'ici à chaque tour de boucle ..
  ' r.. représente une ligne du tableau..
  If r.Cells(4) = 0 Then
    If rADet Is Nothing Then
      Set rADet = r
     Else
     Set rADet = Application.Union(rADet, r)
    End If
End If
Next
If Not rADet Is Nothing Then rADet.Delete
End Sub

**zoumzoum59** · 09/06/2006, 23h43

Ok bbil merci ça marche impec desolé pour le lien j'y ai pas pensé.

Par contre j'ai une evolution a faire au code precedent comment je peux effacer les lignes comportant un zero mais en ne touchant pas a la premiere colonne, pour ne pas toucher a l'ordre de ma liste alphabetique.

**SfJ5Rpw8** · 10/06/2006, 00h00

tu ve laisser la premiére colonne intacte ..? c'est bien cela ..? alors c'est plus simple ... le premier code devais marcher plus de probléme de décalage de ligne.. suffit de remplace le code r.delete par

Code :

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

Range(r.Cells(2),R.Cells(8)).ClearContents

2 = Colonne B
8 = Colonne H ...

**zoumzoum59** · 10/06/2006, 18h34

Merci bbil mais,

J'ai encore un petit souci que je ne vois pas comment resoudre ce problème.

En effaçant les lignes complettes j'ai mes données qui sont toute remonter les unes derriere les autres sans espace, par contre je perd mon ordre alphabetique de la premiere colonne.

si je garde ma premiere colonne intacte et que j'efface les lignes comportant un zero sans cette premiere colonne comportant ma liste alphabetique, les lignes de données sont espacé de cellule vide.

Qu'est ce qui est le plus simple :

_ recreer la liste alphabetiquedans la premiere colonne sur la plage de donnée restante apres avoir effacé les lignes.

_ supprimer les cellules vides entre mes données en ne touchant pas à ma premiere colonne pour reconcentrer ma plage de donnée.

J'espere avoir ete assez clair.

Merci d'avance

**SfJ5Rpw8** · 10/06/2006, 18h42

il y as quoi dans ta premiére colonne ? je vois pas pourquoi tu perd l'ordre alphabétique.. ? une formule ?

**zoumzoum59** · 10/06/2006, 18h47

non juste une liste type personalisé d'excell:

a,b,c,d,e,f,g,h,...

**SfJ5Rpw8** · 10/06/2006, 18h48

Envoyé par zoumzoum59

non juste une liste type personalisé d'excell:

a,b,c,d,e,f,g,h,...

c'est pas l'ordre que tu perd .. non ? il y as des trous c'est tout ..? non ?

**zoumzoum59** · 10/06/2006, 18h53

exacte desolé je me suis mal exprimé et je comprend maintenant que ça n'aide pas a la comprehension de ce que j'ai voulue expliquer

Mille excuses bbil.

**SfJ5Rpw8** · 10/06/2006, 19h17

donc si la colonne A contient une valeur allant de 'a' à 'z' ... modifie ainsi ton 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
 
Dim rADet As Range
Dim rTab As Range
Dim bColA As byte 'Caractére 1° ligne
Dim r As Range
Set firstcell = Range("H1")
Set lastcell = Range("A65536").End(xlUp)
Set rTab = Range(firstcell, lastcell)
bColA = asc("a") 
For Each r In rTab.Rows
  'ici à chaque tour de boucle ..
  ' r.. représente une ligne du tableau..
  If r.Cells(4) = 0 Then
    If rADet Is Nothing Then
      Set rADet = r
     Else
     Set rADet = Application.Union(rADet, r)
    End If
   Else
     r.cells(1) = chr(bColA)
     bColA = bColA +1
End If
Next
If Not rADet Is Nothing Then rADet.Delete

**zoumzoum59** · 10/06/2006, 19h49

ok bbil ton code fonctionne mais j'ai encore dirais je occulter malgres moi une info c'est que ma liste alphabetique, apres le z continue sur:

a,...,z,aa,ab,ac,...,az,ba,bb,bc,...,bz,ca,cb,cc,... et ainsi de suite.

alors que t'as suite

utilise le code ascii si j'ai bien compris et donc apres z,{,...

Si ça peut aider ma liste existe dans les listes perso d'excell, ne peut-on pas la recuperer avec la fonction "GetCustomListContents" ?

Quant à ouskel'n'or ta proposition paraissait simple d'utilisation mais je ne sais pas pourquoi les cellules ne se sont supprimer à l'execution du code.

**SfJ5Rpw8** · 10/06/2006, 20h09

bon remplace la ligne bCola =Chr... par :

Code :

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

1
2
 
 bColA = 1

et la ligne

Code :

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

  r.cells(1) = chr(bColA)

par

Code :

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

1
2
3
 
 st = Cells(1, bColA).AddressLocal(False, False)
   r.cells(1) = Left(st, Len(st) - 1)

PS: Si tu as besoin d'explication demande à ousk .. je vais manger ...

[VBA-E]recherche de toutes lignes avec zero

Macros et VBA Excel

Discussions similaires

Partager

Partager