supprimer lignes inutiles

[stéphanie]

Bonjour à tous,
j'ai un fichier au format csv, dans celui ci j'ai une colonne avec un chemin d'accès, ce chemin doit avoir au maximum 7 ' \\' au dela je veux supprimer les lignes. (manuellement c impossible il y a plus de 20000 lignes )
Merci pour votre aide

 

[sylv900]

salut
qu'appel tu un chemin d'accès?
tu as essayé une boucle if pour deleter les ligne avec plus de 7 spaces?

 

[stéphanie]

en fait c un chemin unc de type \\\\nomdemachine\\nomdepartage\\etc et je ne dois pas depacer un certain niveau de l'arborescence, c pour ca que je dois m'arreter à 7 \\

 

[tempPascal]

un truc du genre

Sub Incorrect()
Dim x, z As Integer
x = 1 'la premiere ligne ou commencer si tu as un titre tu mets 2 ou plus
Do While True
z = 0
Cells(x, 1).Select
If Trim(ActiveCell.Value) = '' Then Exit Do 'sort de la boucle si la ligne est vide
For j = 1 To Len(Trim(ActiveCell.Value))
If Mid$(Trim(ActiveCell.Value), j, 1) = ' ' Then z = z + 1
Next j
If z > 7 Then
Selection.EntireRow.Delete
x = x - 1
End If
x = x + 1
Loop
End Sub

tu me dis si OK

 

[stéphanie]

:kiss: :kiss: :kiss:
merci ça marche super, j'ai juste à modifer l'espace par un antislash car j'avais pas remarqué dans mon post qu'il apparaissait uniquement des espaces.
Merci encore