Discussion :

[urbanspike]

Bonjour à tous,

Voilà mon soucis. J'ai un fichier excel avec plus de 33000 lignes mais uniquement sur la colonne A. je voudrais simplement supprimer les lignes commançant par le caractère [

J'ai essayer des choses du genre:

Code :

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

1
2
3
4
5
6
 Sub test()
Dim cell As Range
For Each cell In ActiveSheet.UsedRange
If cell.Value = "[" Then cell.EntireRow.Delete
Next
End Sub

sans résultat. merci de votre aide.

[myrddin772]

Ton code ne fonctionne que si la cellule ne contien QUE le caractère [

Si tu veux éliminer toutes les lignes dont le contenu de la première cellule commence par [ (et pourrait donc par exmple être "[Salut"), il te faut utliser :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim cell As Range
 
    For Each cell In ActiveSheet.UsedRange
        If Left$(cell.Value,1) = "[" Then cell.EntireRow.Delete
    Next
End Sub

[ucfoutu]

bonjour,

ou encore, pour rigoler :

Code :

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

If Chr(Asc(cell.Value)) = "[" Then cell.EntireRow.Delete

ou plus court encore :

Code :

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

 If Asc(cell.Value) = 91 Then Then cell.EntireRow.Delete

[urbanspike]

Ok par contre j'ai l'impression que ce code test toutes les cellules du fichier alors que je voudrait le faire juste sur la colonne A.

EN plus je n'ai pas d'erreur mais les lignes ne s'efface pas...

[ouskel'n'or]

Et instr ? C'est pas bien instr ?

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim DerLigne As Integer, PremiereLigne As Long, NoCol As Integer, NoLig As Long
    PremiereLigne = 1 'à adapter
    NoCol = 1 ' à adapter
    DerLigne = Range("A65536").End(xlUp).Row
    For NoLig = DerLigne To PremiereLigne Step -1
        If InStr(1, Cells(NoLig, NoCol), "[") = 1 Then Rows(NoLig).EntireRow.Delete
    Next
End Sub

[urbanspike]

Code :

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

1
2
3
4
5
6
7
8
Dim DerLigne As Integer, PremiereLigne As Long, NoCol As Integer, NoLig As Long
    PremiereLigne = 1 'à adapter
    NoCol = 25254 ' à adapter
    DerLigne = Range("A65536").End(xlUp).Row
    For NoLig = DerLigne To PremiereLigne Step -1
        If InStr(1, Cells(NoLig, NoCol), "[") = 1 Then Rows(NoLig).EntireRow.Delete
    Next
End Sub

Erreur "erreur définie par l'application ou par l'objet" sur la ligne

Code :

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

f InStr(1, Cells(NoLig, NoCol), "[") = 1 Then Rows(NoLig).EntireRow.Delete

Mais je sens que vous brûler

[ouskel'n'or]

Et Like, c'est pas bien non plus ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
Dim Plage As Range, cell As Range
Dim DerLigne As Integer, PremiereLigne As Long, NoCol As Integer, NoLig As Long
    PremiereLigne = 1 'à adapter
    NoCol = 1 ' à adapter
    DerLigne = Range("A65536").End(xlUp).Row
    For NoLig = DerLigne To PremiereLigne Step -1
        If Cells(NoLig, NoCol).Formula Like "[[]*" Then Rows(NoLig).EntireRow.Delete
    Next
End Sub

[Capsule]

Ton code ne fonctionne que si la cellule ne contien QUE le caractère [

Si tu veux éliminer toutes les lignes dont le contenu de la première cellule commence par [ (et pourrait donc par exmple être "[Salut"), il te faut utliser :

Code :

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

1
2
3
4
5
6
7
Sub test()
    Dim cell As Range
 
    For Each cell In ActiveSheet.UsedRange
        If Left$(cell.Value,1) = "[" Then cell.EntireRow.Delete
    Next
End Sub

Ton code passe dans toutes les cellules par ce que tu lui dis de faire le test dans "Used" range.

Comme ceci, il ne testera que les cellules de la colonne A

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub test()
    Dim cell As Range
 
Set DataRange = Activesheet.Range("A:A")
 
    For Each cell In DataRange
 
        If Left$(cell.Value,1) = "[" Then cell.EntireRow.Delete
    Next
End Sub

[/QUOTE]

[ouskel'n'or]

Erreur "erreur définie par l'application ou par l'objet" sur la ligne

Code :

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

f InStr(1, Cells(NoLig, NoCol), "[") = 1 Then Rows(NoLig).EntireRow.Delete

Si tu enlève le if à If, tu as effectivement une erreur
Et ce sera pareil avec Like...

[urbanspike]

Meme erreur avec Like,

A lala, je vois que ça se complique lol.
Mille merci en tous cas pour toutes les propositions...

[ouskel'n'or]

Alors tu as un autre problème car j'ai testé mes deux codes sur la version 2003 et 1997 (au cas où) et les deux fonctionnent très bien chez moi.
Vérifie tes références dans l'éditeur VBA et précise la version que tu utilises

[urbanspike]

Et le gagnant est Capsule pour son code qui marche super bien...

Merci à tous.

[Capsule]

Et le gagnant est Capsule pour son code qui marche super bien...

Merci à tous.

La gagnante.....;