VBA: Supprimer ligne commençant par un caractère donné

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:

---

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.

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:

---

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

---

bonjour,

ou encore, pour rigoler :

Code:

---

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

---

ou plus court encore :

Code:

---

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

---

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...

Et instr ? C'est pas bien instr ? :mouarf:

Code:

---

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

---

Code:

---

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:

---

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

---

Mais je sens que vous brûler ;)

Et Like, c'est pas bien non plus ?

Code:

---

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

---

Citation:

---

Envoyé par 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:

---

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:

---

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]


;)

Citation:

---

Envoyé par urbanspike

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

Code:

---

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... :mouarf:

Meme erreur avec Like,

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

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

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

Merci à tous.

Citation:

---

Envoyé par urbanspike

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

Merci à tous.

---

La gagnante.....;


:oops::oops::oops:

8-)