Extraction-Suppression-colonne

[Aladin]

Bonjour le forum
J' ai une macro excel qui permet de lister le contenu de mon répertoire de musique. Sur cette feuille excel, il y a mus de 19000 lignes, et le traitement manuel est fastidieux. Est il possible de l' automatiser ?.
1) Suppression de tous les caracteres j'usqu' au dernier \ rencontré pour toutes les lignes en jaunes.
2) Déplacement de cette ligne jaune dans la colonne de gauche
3) Suppression de toutes les lignes vides
4) Suppression des lignes etn txt et jpg
Ci joint un modele allégé du fichier.
Merci d' avance pour toute aide me permettant d' automatiser ce volumineux fichier.
Aladin

 

[suistrop]

Re : Extraction-Suppression-colonne

Salut,

Ce code te permet de reperer les lignes ou y a pas .mp3.
Tu peux les supprimer à l'aide d'un filtre automatique puis supprimer(idem pour les lignes vides).

Sub mp3()
For i = 1 To Range("A65536").End(xlUp).Row
If Not Cells(i, 1) Like "*.mp3" Then
Cells(i, 5) = 1
End If
Next i
End Sub

Suistrop

 

[Aladin]

Re : Extraction-Suppression-colonne

Bonsoir suistrop et le forum
Merci pour le codequi bien entendu servira mais n' y a t il pas moyen de proceder suivant les etapes que j' ai décrite plus haut ave l' exemple que j' ai donné
Aladin

 

[suistrop]

Re : Extraction-Suppression-colonne

Salut,

Je te donne quelques pistes, à toi apres de les utiliser, le but du forum n'est pas de faire à la place mais simplement d'aider.
Ci joint un petit code qui te permet d extraire les caractere apres le dernier "\" des cellules au fond jaune.

Sub ligne_jaune()
For i = 1 To Range("A65536").End(xlUp).Row
If Cells(i, 1).Interior.ColorIndex = 36 Then 'couleur jaune
num_car_last = InStr(1, StrReverse(Cells(i, 1)), "\")
new_chaine = Right(Cells(i, 1), num_car_last - 1)
Cells(i, 2) = new_chaine
End If
Next i
End Sub

Suistrop

 

[Aladin]

Re : Extraction-Suppression-colonne

Bonjour le forum
Merci Suistrop pour ton code pour l' extraction, je n' ai pas eu de resultat positif.
Aladin

 

[Staple1600]

Re : Extraction-Suppression-colonne

Bonjour

Personnellement, j'utiliserai un batch + Excel
(avec les commandes suivantes : dir ou tree )

Fais-moi savoir si cette option t'intéresse
Si c'est le cas, je te posterai un exemple un peu plus tard

(Tu peux aussi faire une recherche des messages avec mon pseudo, tu trouveras des exemples évoquant ces méthodes que j'ai déjà postées sur XLD.)

 

[Aladin]

Re : Extraction-Suppression-colonne

Bonjour Staple1600 et le forum
Ta solution m' interesse, je te remercie d' avance pour l' envoi
Aladin