Tri d'un tableau en fonction de cellules vides

Bonjour,

Etant débutant en VBA, j'ai grandement besoin d'aide. J'ai essayé plusieurs codes différents mais aucun ne fonctionne.

Je souhaite copier une plage de cellule vers un nouvel onglet et supprimer les lignes pour lesquelles certaines colonnes ( Email et fonction pour l'instant) ne sont pas renseignées. Il faut donc que je copie la ligne si ces colonnes ne sont pas vides.
Il faudrait que la macro parcours la plage de cellule ligne par ligne.

Je vous joint le fichier (celui sur lequel j'ai essayé mes différents codes, l'original est beaucoup plus long).

Merci de votre aide !

Bonjour,
Souhaites-tu supprimer les lignes dont les colonnes Email et fonction sont toutes deux vides, ou simplement lorsque l'une des deux est vide ?
Une boucle For to devrait convenir à ton problème.

Edit: Je t'ai fait une bricole en PJ tu me diras si ça te convient.

Mickamax

Merci beaucoup pour ta réponse.

Sur le document complet, je dois effectuer un tri du plus au moins renseigné (donc du plus de cases non vides au moins de cases non vides). Je pensais procéder par étape en cherchant d'abord à supprimer toutes les lignes avec une case vide ou plus et récolter le résultat dans une nouvelle feuille. Recommencer la même procédure avec deux cases vides ou plus. Etc.

J'avais aussi pensé à utiliser une boucle For mais étant donné la taille importante du document complet, j'ai peur que cela prennes beaucoup de temps …
J'ai trouvé un code permettant de le faire sans utiliser de boucle SpecialCells(xlCellTypeBlanks).EntireRow.Delete mais je n'arrive pas à l'adapter correctement.

Bonjour,

Code:

---

SpecialCells(xlCellTypeBlanks).EntireRow.Delete

---

C'est le processus que j'adopte personnellement.
Mais, pour ce faire, il faut:
- Remplacer éventuellement les cellules concernées par un vide, ou du moins s'assurer qu'elles sont vides.
- Disposer de cellules vides en rattachant la propriété

Citation:

---

SpecialCells

---

à l'objet Range concerné.

Merci pour votre réponse.

Avec ce processus, j'ai utilisé le code suivant :

Code:

---

1 2 3 4 5 6

Sub tri()   Sheets("Feuil1").Copy After:=Sheets("Feuil1") ActiveSheet.Range("G1:G50000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete   End Sub

---

Cependant, je ne trouve pas comment l'adapter pour plusieurs colonnes et lorsque je le fais tourner uniquement pour la colonne G, il y a une erreur d'exécution 1004.

Salut,
Je suis plutôt un adepte de la boule For to en ce qui me concerne. Je suis d'ailleurs curieux de savoir si la méthode "SpecialCells" est plus rapide que la boucle ?

Toujours est-il que je te conseille fortement de borner ton tableau avec end(XlUp).row, voire avec (XlLeft).column. Cela te permettra de variabiliser ta sélection au cas où ton tableau venait à être modifié en amont, mais également à limiter le temps d'exécution de ta macro.

Au hasard: un tableau structuré avec des filtres ne te convient pas ?

Mickamax

Mon code avec la boucle For fonctionne et j'ai bien borné le tableau avec End(xlUp).Row mais le code présente deux problèmes :
- il ne prend en compte qu'une seule colonne à la fois
- il ne conserve pas le tableau d'origine
Malgré plusieurs tentatives pour l'améliorer, les versions censées résoudre ces problèmes ne tournent pas.
Je te laisse mon code ci-dessous :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Public Sub test()   Dim i As Integer, DerniereLigne As Integer   DerniereLigne = Range("G50000").End(xlUp).Row   For i = DerniereLigne To 1 Step -1 If Worksheets("Feuil1").Cells(i, 7) = "" Then Worksheets("Feuil1").Rows(i).Delete Next i   End Sub

---

Aurais-tu des idées pour palier à ces problèmes ou pour améliorer le code.

Je ne connaissais pas en détail les fonctionnalités permises par les tableaux structurés. Je vais me pencher dessus, merci !

Citation:

---

Envoyé par Walter Wayte

Mon code avec la boucle For fonctionne et j'ai bien borné le tableau avec End(xlUp).Row mais le code présente deux problèmes :
- il ne prend en compte qu'une seule colonne à la fois
- il ne conserve pas le tableau d'origine
Malgré plusieurs tentatives pour l'améliorer, les versions censées résoudre ces problèmes ne tournent pas.

---

J'ai "répondu" à ces deux problèmes dans le code que je t'ai envoyé précédemment.

1) Tu peux l'appliquer ce code à plusieurs colonnes en combinant if et and :

Code:

---

If cells(i,x)=<> and cells(i,y)=<> and... then rows(i).delete

---

2) en copiant-collant le tableau au début de la macro et en le traitant après, tu garderas ta base dans ton premier onglet. c'est ce que j'ai fait dans le code que je t'ai transmis. Tu remarqueras que tu as gardé ta base dans le premier onglet.

Ok super merci beaucoup !

Et, qui plus est, bien rattacher les objets (Range, Row..) à leur feuille parent.
Ceci en utilisant le bloc With.

Merci à vous je corrige mon code et vous dis si ça fonctionne !