[VBA] Supprimer Lignes selon Couleur cellule

[soaresden]

Bonjour a tous !
Voila je souhaiterai automatiser un fichier excel
et dans une macro j'aurai besoin de supprimer une ligne selon sa mise en forme


"Rechercher dans toute la feuille
Des qu'il y'a une cellule a fond rouge, supprimer la ligne"


A savoir :

J'ai trouvé 2 ou 3 trucs sur d'autre forum mais cela ne marche pas.

Voici le fichier:

VBA.xlsm - File Shared from Box.net - Free Online File Storage 370ko

 

[soaresden]

Re : [VBA] Supprimer Lignes selon Couleur cellule

OUf !

Le Zip compresse les 113 Ko du 2003 !

 

[Efgé]

Re : [VBA] Supprimer Lignes selon Couleur cellule

Re
Un autre essai commenté:

Sub Test4()
[COLOR=seagreen]'On arrete l'affichage de l'écran[/COLOR]
Application.ScreenUpdating = False
[COLOR=seagreen]'1er Boucle sur les colonne 31 à 35 (AE:AI)[/COLOR]
For j = 31 To 35
[COLOR=seagreen]'Récupération de la dernière ligne remplie en colonne A (la dernière du tableau)[/COLOR]
Derligne = Range("A" & Application.Rows.Count).End(xlUp).Row
  [COLOR=seagreen]  '2 em boucle sur les lignes de la dernière vers la 3em en remontant[/COLOR]
    For i = Derligne To 3 Step -1
       [COLOR=seagreen]'Si la valeur de la cellule où l'on se trouve est[/COLOR]
[COLOR=seagreen]      'suppérieure ou égale à la valeur en ligne 1 de la même colonne[/COLOR]
        If Cells(i, j).Value >= Cells(1, j).Value Then
          [COLOR=seagreen]  'Suppression de la ligne[/COLOR]
            Cells(i, 1).EntireRow.Delete
       [COLOR=seagreen]'Fin de la condition[/COLOR]
        End If
 [COLOR=seagreen]   'Ligne suivante[/COLOR]
    Next i
[COLOR=seagreen]'Colonne suivante[/COLOR]
Next j
[COLOR=seagreen]'On remet l'affichage écran[/COLOR]
Application.ScreenUpdating = True
End Sub

Dis moi si cela te convient.
Cordialement

 

[soaresden]

Re : [VBA] Supprimer Lignes selon Couleur cellule

Alors là ..... !!

"Holy Shit !" comme je dirai !

Superbe la macro !
Tu a tout compris ce que je voulais faire !

"Rep Added" comme on peut mettre sur d'autres forums !

Merci Beaucoup

ps: L'ordinateur dans l'entreprise a 512 de RAM, au debut je croyai que ca avait planté mais faut lui laisser le temps