Discussion :

[coolmomodu31]

Bonjour,
je souhaite supprimer les lignes ou leurs colonne A ont un fond blanc , j'ai essayé ce code mais sans résultat , apparemment il doit fonctionner ! je pense qu'il ya une erreur merci pour votre aide , voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub color()
 
Const PremLigne = 2
Const DerLigne = 1000
Const Colconcerner = 1
  For nuli = PremLigne To DerLigne
    If Cells(nuli, Colconcerner).Interior.ColorIndex = 2 Then
      Rows(nuli).Delete
    End If
  Next nuli
End Sub

Merci d'avance

[Invité]

le problème avec un collection d'item comme c'est le cas sur un tableau Excel,
c'est qu'il est impossible de supprimer la ligne 1 sans que la ligne 2 devienne immédiatement la ligne1

en revanche si tu commence par la fin la dernière ligne +1 deviendra la dernière ligne mais tu t'en fiche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub color()
 
Const PremLigne = 2
Const DerLigne = 1000
Const Colconcerner = 1
  For nuli = DerLigne To PremLigne step -1
    If Cells(nuli, Colconcerner).Interior.ColorIndex = 2 Then
      Rows(nuli).Delete
    End If
  Next 
End Sub

[coolmomodu31]

Bien expliqué , Merci ça fonctionne bien maintenant , problème résolu ...