Discussion :

[bricereyem]

bonjour,
je souhaite contrôler sur plusieurs ligne (une à la fois) les lignes qui sont vides pour les supprimer par la suite.
ce contrôle devrait se faire à partir d'un colonne que j'indique.

est-il possible de faire un contrôle sur plusieurs cellules à la fois ?
merci

[AlainTech]

Fais une boucle For Each sur les cellules de la colonne et supprime la ligne correspondante si la cellule est vide.

Et pense au tag dans le titre, STP.
J'ai pas envie de le faire à chaque fois derrière toi.

[bricereyem]

oui, mais l'idée n'est pas de supprimer la ligne dès qu'il a une cellule vide, mais c'est de la supprimer si toutes les cellules d'une ligne entre deux colonnes sont vides....

désolé pour le tag, je le ferais la fois prochaine

[illight]

Tu reprend l'idée de AlainTech, en faisant un each comme il a dit sur les cellules de ta colonne

Essaye de faire un bout de code et on t'aidera si tu coinces

[AlainTech]

Fais une double boucle For Each.
La première parcourt la colonne et la deuxième parcourt la ligne courante.

Ou, sur chaque cellule vide, faire un .End(xlToRight).Column et comparer avec ta butée.

[bricereyem]

en fait ce que j'avais fait avant c'est

Code :

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

1
2
3
4
5
6
7
8
For Ligne = 20 To lastline
For col = firstcol To duringweekcol
    If Range(col, Ligne) = "" And Range(col + 1, Ligne) = "" Then
        Rows(Ligne).Delete
 
        End If
    Next
Next

maintenant je ne sais pas comment faire avec le for each... je dois définir le groupe mais je ne vois pas comment

J'ai lu quelque par que "la prochaî,e fois" tu penserais au tag... Faut aussi penser aux palises Code : Sélection du code, clic bouton (ajoutés par ouskel'n'or)

[bricereyem]

plus personne pour m'éclairer ?

[AlainTech]

Et bien, avec ma grande gueule, j'aurais mieux fait de me taire.

Alors que je suis un grand partisan des boucles For Each dès qu'on a à travailler sur des objets, je viens de tomber sur un os.

Je m'explique:

Nous cherchons donc à supprimer des lignes.
Fidèle à mon principe, je fais une boucle For Each.
Apparemment, elle fonctionne bien mais je constate un défaut. Si 2 lignes à supprimer se suivent, seule la première l'est.
Explication:
Imaginons que nous soyons sur [A2] et nous supprimons la ligne.
Toutes les cellules remontent d'une ligne.
Nous sommes toujours sur [A2] dons la ligne est vide également.
Et nous passons à l'objet suivant qui est [A3].
Nous avons donc sauté une ligne.

J'ai alors ajouté une boucle While pour rester sur la même ligne tant quelle est vide.
Je me suis retrouvé avec une erreur "Objet requis".
Logique. Pour ceux que ça intéresse, je leur laisse chercher le pourquoi.

J'ai donc travaillé sur la ligne suivante (ce qui me permet de ne pas supprimer mon objet courant).

Et là, je tombe sur une boucle sans fin quand j'arrive en bout de range.

Bref j'en conclus qu'il ne faut pas utiliser de boucle For Each pour faire de la suppression de lignes.

Je vous livre quand même mon dernier code (qui ne fonctionne pas) pour ceux qui sont curieux de suivre ma démarche.

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
Sub test()
  Dim bEmpty As Boolean
  Dim rCol As Range
  Dim rLine As Range
  Dim rCellCol As Range
  Dim rCellRow As Range
  Dim iLastLine
  Dim iLastCol
  iLastLine = 50
  iLastCol = 30
  Set rCol = Range([A1], Cells(iLastLine, 1))
  For Each rCellCol In rCol
    bEmpty = True
    While bEmpty
      Set rLine = Range(rCellCol.Offset(1, 0), rCellCol.Offset(1, iLastCol))
      For Each rCellRow In rLine
        If Not IsEmpty(rCellRow) Then
          bEmpty = False
          Exit For
        End If
      Next rCellRow
      If bEmpty Then
        rCellCol.Offset(1, 0).EntireRow.Delete
      End If
    Wend
  Next rCellCol
End Sub

[illight]

A ce moment la, le mieux serait alors d'utiliseru ne double boucle, une qui parcourt la ligne, et une autre les colonnes, et qui regarde si sur chaque colonne de la ligne c'est vide ou pas

Je regarderai ça cet après midi

[AlainTech]

bbil a eu une idée géniale à laquelle je n'ai pas pensé.
Voir là:
http://www.developpez.net/forums/sho...95#post1044595

[SilkyRoad]

bonjour à tous

ci joint une autre possibilité

boucler de la derniere à la 1ere ligne et utiliser la fonction CountA pour verifier si la ligne est vide
(pour remplacer 100 par la derniere ligne non vide de ton tableau , cela dépendra de sa structure)

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 supprimerLignesVide()
Dim i As Integer
 
Application.ScreenUpdating = False
 
'boucle sur les lignes 100 à 1
For i = 100 To 1 Step -1
    'supprimer ligne vide
    If Application.WorksheetFunction.CountA(Rows(i)) = 0 _
    Then Rows(i).Delete
Next i
 
Application.ScreenUpdating = True
End Sub

bon week end
michel

[ouskel'n'or]

Pour avoir la toute dernière ligne de données, tu peux utiliser

Code :

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

    DernièreLigne = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Row

... qui inclut les lignes vides
Code dont je ne peux plus me passer depuis qu'AlainTech nous l'a donné

Juste pour mettre mon grain de sel

Salut Silky

[bricereyem]

merci je vais essayer les deux possibilité,
mais juste pour comprendre que signifie dans l'idée de bbil :

Code :

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

r.Cells(4)

merci

[ouskel'n'or]

Hors du contexte, va être dur de te répondre... Croise les doigts pour que bbil passe par là

[SfJ5Rpw8]

r.Cells(4) .. corresponds à la colonne D... bon le contexte c'est la :
http://www.developpez.net/forums/sho...95#post1044595