[Résolu] Erreur de syntaxe ...

[djodjodjo]

Bonjour à tous,

j'ai un petit souci.. évidemment ! Je m'explique: en fait je veux trouver une valeur dans une colonne, et dès que je l'ai trouvée je supprime toutes les lignes qui suivent cette valeur. J'ai rédigé ça, mais evidemment ça ne fonctionne pas :

k = ActiveSheet.UsedRange.Rows.Count
Set g = ActiveSheet.Range("C9:C" & k).Find("-", LookIn:=xlValues, LookAt:=xlWhole)
lig_g = g.Row
Range("C" & lig_g:"C" & k).Delete

Et Rows("lig_g:k").Delete ne fonctionne évidemment pas..

Je ne peux pas supprimer les lignes une par une avec une boucle for car ça fait ramer le fichier à chaque suppression de ligne, donc il faudrait tout supprimer d'un coup!

Merci d'avance 🙂

 

[Pierrot93]

Re : Erreur de syntaxe ...

Bonjour,

regarde ceci, fonctionne chez moi si cela peut t'aider à avancer...

lig_g = 5
k = 10
Rows(lig_g & ":" & k).Delete

bon après midi
@+

 

[djodjodjo]

Re : Erreur de syntaxe ...

Haa d'accord compris ! Merci c'est résolu 🙂

 

[Dranreb]

Re : [Résolu] Erreur de syntaxe ...

Bonjour
Comme ça :

Dim K As Long, G As Range
With ActiveSheet.UsedRange: K = .Row + .Rows.Count - 1: End With
Set G = ActiveSheet.Range("C9:C" & K).Find("-", LookIn:=xlValues, LookAt:=xlWhole)
If Not G Is Nothing Then Rows(G.Row & ":" & K).Delete

À +

Bonjour Pierrot

 

[TempusFugit]

Re : [Résolu] Erreur de syntaxe ...

Bonjour

Je ne peux pas supprimer les lignes une par une avec une boucle for car ça fait ramer le fichier à chaque suppression de ligne, donc il faudrait tout supprimer d'un coup!

En utilisant par VBA un filtre automatique, plus besoin de rame.

Un exemple ci-dessous

Sub Macro1()
Dim k As Long
k = ActiveSheet.UsedRange.Rows.Count
Range("C8").Resize(k).AutoFilter Field:=1, Criteria1:="-"
Range("_FilterDatabase").Offset(1, 0).Resize(Range("_FilterDatabase").Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False
End Sub

 

[Pierrot93]

Re : [Résolu] Erreur de syntaxe ...

Re,

Pas sûr qu'un filtre soit plus rapide qu'un "Find"....

 

[TempusFugit]

Re : [Résolu] Erreur de syntaxe ...

@pierrot93
J'évoquais le filtre surtout pour ne pas faire de boucle comme le précise djodjodjo.

Je n'ai pas chronométré les deux méthodes, donc je ne saurai répondre laquelle est la plus rapide.

 

[Pierrot93]

Re : [Résolu] Erreur de syntaxe ...

Re,

Dim k As Long
k = ActiveSheet.UsedRange.Rows.Count
Range("C8").Resize(k).AutoFilter Field:=1, Criteria1:="-"
Range("_FilterDatabase").Offset(1, 0).Resize(Range("_FilterDatabase").Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
ActiveSheet.AutoFilterMode = False

d'autre part ce code n'effacera que les lignes renseignées par "-", pas les autres même si elles suivent..; :

 

[TempusFugit]

Re : [Résolu] Erreur de syntaxe ...

Effectivement, un bout de la phrase m'avait échappé.
Excusez-moi.

 

[djodjodjo]

Re : [Résolu] Erreur de syntaxe ...

Merci à vous !

Je vais garder la 1ère solution qui fonctionne bien

Cdt

 

[djodjodjo]

Re : [Résolu] Erreur de syntaxe ...

Pourquoi mettre

With ActiveSheet.UsedRange: K = .Row + .Rows.Count - 1: End With

plutôt que

k = ActiveSheet.UsedRange.Rows.Count

?

 

[Dranreb]

Re : [Résolu] Erreur de syntaxe ...

Parce que la plage définie par UsedRange peut commencer au delà des ligne et colonne 1. Ça m'arrive souvent dans mes classeurs. Je n'utilise guère la ligne 1, sauf pour un titre général de la feuille, ni la colonne A, sauf pour un numéro d'ordre de ligne en dehors de la zone d'impression, et si je n'en mets pas elle est même hors de la plage utilisée.

 

[djodjodjo]

Re : [Résolu] Erreur de syntaxe ...

Comment peut-on voir la plage définie par UsedRange ?

C'est bizarre moi j'ai rien en ligne 1 (juste du remplissage de couleur) et ma formule fonctionne...

 

[Dranreb]

Re : [Résolu] Erreur de syntaxe ...

Sub TestPlgU()
ActiveSheet.UsedRange.Select
MsgBox ActiveSheet.UsedRange.Address
End Sub

 

[djodjodjo]

Re : [Résolu] Erreur de syntaxe ...

Merci,

donc en gros pour plus de sûreté, autant toujours utiliser

With ActiveSheet.UsedRange: K = .Row + .Rows.Count - 1: End With

?

Ca sera équivalent à

k = ActiveSheet.UsedRange.Rows.Count

dans mon cas?