Supp lignes en fct du début d'une cellule

PascalXLD

XLDnaute Barbatruc

• 7 Décembre 2005

• #2

Bonjour

Voici une macro. Je boucle à l'envers pour ne pas oublié de ligne en cas de suppression

Sub toto()

Dim x As Integer

For x = Range('A65536').End(xlUp).Row To 1 Step -1
If Range('A' & x) Like 'Prix :*' Then Rows(x).Delete
Next

End Sub

Cliquez pour agrandir...

Bon courage

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 7 Décembre 2005

• #3

Merci Pascal,

Entre temps g trouvé la formule que je cherchais:

If Left(ActiveCell.Value, 4) = 'Prix' Then


C plus sûr de boucler à l’envers?


Antoine

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Décembre 2005

• #4

Re

Oui c'est plus sur

Imagine en ligne 4 et 5 tu as prix

il arrive à la 4 il supprime la ligne
donc la cellule active devient celle de la ligne 5
ensuite tu passes à la ligne suivante donc à la 6
Et tu as oublié de supprimer la ligne 5

Bon courage

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 7 Décembre 2005

• #5

Ta macro marche super.

Juste pour info g testé aussi le programme suivant (autre solution) qui se trouve
Lien supprimé

où j'ai modifier une instruction en fonction de ce que je veux :
.FormulaR1C1 = '=IF(Left((RC[1], 9) = ''Adaptable'',''del'')'

mais ne fonctionne pas avec cette instruction. Saurais-tu pourquoi?

rappel du programme:

Sub SuppCertainLigne2()
' Sans boucle:
' (données en colonne A, recherche 'Adaptable')

Dim rng As Range
Columns(1).Insert
Set rng = Range([B1], [B65536].End(xlUp)).Offset(, -1)
With rng
.FormulaR1C1 = '=IF(Left((RC[1], 9) = ''Adaptable'',''del'')'
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, xlConstants).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
Set rng = Nothing

' Suppression des lignes en fonction de la longueur de caractère
' de la cellule
' tu remplaces:
' .FormulaR1C1 = '=IF(RC[1]=''texte'',''del'')'
' par
' .FormulaR1C1 = '=IF(LEN(RC[1])=5,''del'')'

Bonne soirée
Antoine

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 7 Décembre 2005

• #6

Re

Je ne vais pas critiqué un code qui n'est pas de moi mais je le trouve un peu compliqué. Le code crée une colonne dans lequel il met une formule et ensuite suppprime les lignes où il ya une valeur et non FAUX puis supprime la colonne.

Perso j'ai essayé ça marche mais bon c'est pas du tout ma façon de programmer

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 7 Décembre 2005

• #7

J'adhère totalement à ta macro pour deux raisons :

1_ je la comprends

2_ elle supprime aussi les lignes vides en même temps alors que les autres macros ne le font pas.

Merci encore,
Antoine

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 8 Décembre 2005

• #8

G testé ta macro dans la pratique est je me suis heurté à deux problèmes :

1_ Si le nombre de lignes est trop important ça ne marche pas. Je commence donc depuis la ligne 15000 et je répète l'opération.

2_ Dans l'esemple du fichier joint, quand je lance ta macro, cela ne supprime que la dernière ligne!

Bonne journée,
Antoine

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 8 Décembre 2005

• #9

Re

En effet si tu as plus de 32767 lignes il faut déclarer

Dim x as Long au lieu de Integer

Pour le reste je comprends pas vu qu'il n'y a pas de fichier

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 8 Décembre 2005

• #10

Merci pour la solution de 'Long'

Désolé le fichier ne s'est pas attaché...
Le voici

A+
Antoine [file name=EffaceLigneDtCelluleVide.zip size=9809]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/EffaceLigneDtCelluleVide.zip[/file]

 

Pièces jointes

• EffaceLigneDtCelluleVide.zip

  9.6 KB · Affichages: 19

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

• 8 Décembre 2005

• #11

Bonjour

Si tu parles de cette macro il est normal qu'elle ne fonctionne pas

Sub SuppLigneDtCelluleVides()

Dim x As Integer

For x = Range('B65536').End(xlUp).Row To 1 Step -1
If IsEmpty(Range('B' & x)) Then
Rows(x).Delete
End If
Next

End Sub

En effet ta colonne B est vide donc

Range('B65536').End(xlUp).Row

Renvoie 1 donc ta boucle ne traite que la ligne 1

Il faut que tu regardes la dernière ligne de la colonne A

For x = Range('A65536').End(xlUp).Row To 1 Step -1

Bonne journée

 

Vote positif 0 Vote négatif

A

Antoine

Guest

• 8 Décembre 2005

• #12

Encore une fois merci Pascal de tes lumières.

Je viens d'utiliser ta macro plusieurs fois et c'est parfait.

Sinon pour l'autre cas de copie plage je viens d'y joindre un fichier sur
Lien supprimé

Bonne soirée à toi et à très bientôt,
Antoine

 

Vote positif 0 Vote négatif