[VBA-E] cellules vide sur une ligne

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

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.

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

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 :D

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.

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

Code:

---

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 Pièce jointe 1689 (ajoutés par ouskel'n'or)

plus personne pour m'éclairer ?:cry:

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:

---

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

---

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 :D

Je regarderai ça cet après midi :)

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

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:

---

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

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

Code:

---

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 :lol:

Salut Silky

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

Code:

---

r.Cells(4)

---

merci

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

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