supprimer groupe de lignes

XanorK

XLDnaute Occasionnel

• 21 Décembre 2006

• #2

Re : supprimer groupe de lignes

Bonjour,

jaguar911 à dit:

J'ai la macro pour les masquer mais pas pour les supprimer.

Cliquez pour agrandir...

A priori c'est la meme macro avec un .delete a la place du .hidden, non ?

Code:

Sub jaune()
    For i = 10 To 1 Step -1
        If Range("A" & i).Interior.ColorIndex = 6 Then
            Rows.Delete
        End If
    Next i
End Sub

XanorK

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Décembre 2006

• #3

Re : supprimer groupe de lignes

Bonsoir Jaguar, Xanork

peut être spécifier le numéro de ligne à supprimer, à modifier comme ci dessous le cas échéant :

Code:

Rows(i).Delete

bonne soirée
@+

 

Vote positif 0 Vote négatif

J

jaguar911

Guest

• 22 Décembre 2006

• #4

Re : supprimer groupe de lignes

Merci c'est impecable , ici s'achéve mon travail sur excel , j'ai obtenu mon fichier final sans doublons, avec les données actualisées . MErci au forum et joyeuses fêtes de fin d'année à tous !!!!🙂 🙂 🙂

 

Vote positif 0 Vote négatif

J

jaguar911

Guest

• 22 Décembre 2006

• #5

Re : supprimer groupe de lignes

Finalement sa ne marche pas , que je remplace hidden par delette ou je copie directement la macro , sa me met erreur : Objet REquis
$

 

Vote positif 0 Vote négatif

J

jaguar911

Guest

• 22 Décembre 2006

• #6

Re : supprimer groupe de lignes

je mets ci-dessous la macro que j'avais pour masquer les lignes mais ou j'airemplacé hidden par delete



Sub SupprLignesjaunes()
Dim C As Range
Application.ScreenUpdating = False
For Each C In ActiveSheet.UsedRange
If C.Interior.ColorIndex = 6 Then C.EntireRow.Delete = True
Next C
C.EntireRow.Delete = False
End Sub

 

Vote positif 0 Vote négatif

J

jaguar911

Guest

• 22 Décembre 2006

• #7

Re : supprimer groupe de lignes

Voila le message d'erreur que j'obtiens en pièce jointe

 

Pièces jointes

• erreur.xls

  43.5 KB · Affichages: 55
• erreur.xls

  43.5 KB · Affichages: 57
• erreur.xls

  43.5 KB · Affichages: 56

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 22 Décembre 2006

• #8

Re : supprimer groupe de lignes

Bonjour Jaguar

essaye comme ci dessous :

Code:

Sub SupprLignesjaunes()
Dim C As Range
Application.ScreenUpdating = False
For Each C In ActiveSheet.UsedRange
If C.Interior.ColorIndex = 6 Then C.EntireRow.Delete
Next C
Application.ScreenUpdating = True
End Sub

bon après midi
@+

 

Vote positif 0 Vote négatif