[Résolu] Erreur de syntaxe ...

Pierrot93

XLDnaute Barbatruc

• 24 Octobre 2011

• #2

Re : Erreur de syntaxe ...

Bonjour,

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

Code:

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

bon après midi
@+

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 24 Octobre 2011

• #3

Re : Erreur de syntaxe ...

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

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Octobre 2011

• #4

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

Bonjour
Comme ça :

VB:

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #5

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!

Cliquez pour agrandir...

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

Un exemple ci-dessous

Code:

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

 

Dernière édition: 24 Octobre 2011

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Octobre 2011

• #6

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

Re,

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #7

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.

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 24 Octobre 2011

• #8

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

T

TempusFugit

XLDnaute Impliqué

• 24 Octobre 2011

• #9

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

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

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 24 Octobre 2011

• #10

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

Merci à vous !

Je vais garder la 1ère solution qui fonctionne bien

Cdt

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 24 Octobre 2011

• #11

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

Pourquoi mettre

Code:

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

plutôt que

Code:

k = ActiveSheet.UsedRange.Rows.Count

?

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Octobre 2011

• #12

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.

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 24 Octobre 2011

• #13

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

 

Dernière édition: 24 Octobre 2011

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Octobre 2011

• #14

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

VB:

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

 

Vote positif 0 Vote négatif

D

djodjodjo

XLDnaute Occasionnel

• 24 Octobre 2011

• #15

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

Merci,

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

Code:

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

?

Ca sera équivalent à

Code:

k = ActiveSheet.UsedRange.Rows.Count

dans mon cas?

 

Vote positif 0 Vote négatif