Discussion :

[Walter Wayte]

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 !

[Mickamax]

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

[Walter Wayte]

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.

[MarcelG]

Bonjour,

Code :

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

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é

SpecialCells

à l'objet Range concerné.

[Walter Wayte]

Merci pour votre réponse.

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

Code :

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

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.

[Mickamax]

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