supprimer groupe de lignes

[jaguar911]

Re-salut !!


Au sein d'une feuille Excel ,j'ai des lignes doublons de couleurs jaunes et je souhaiterais les supprimer à l'aide d'une macro . J'ai la macro pour les masquer mais pas pour les supprimer . MErci d'avance .

 

[XanorK]

Re : supprimer groupe de lignes

Bonjour,

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

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

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

 

[Pierrot93]

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 :

Rows(i).Delete

bonne soirée
@+

 

[jaguar911]

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 !!!!🙂 🙂 🙂

 

[jaguar911]

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
$

 

[jaguar911]

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

 

[jaguar911]

Re : supprimer groupe de lignes

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

 

[Pierrot93]

Re : supprimer groupe de lignes

Bonjour Jaguar

essaye comme ci dessous :

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
@+