Discussion :

[duha2_fr]

Bonjour ,

Étant un grand novice j'aurais besoin de votre aide.

dans un tableau 5 colonnes avec entêtes.

je voudrais enlever les lignes qui possèdent des cellules de couleur RGB(198, 179, 235) et non vides dans la 4 eme colonne

Merci par avance

Jacques

[Philippe Tulliez]

Bonjour,
Tu crées une fonction personnalisée de type booléen te permettant de vérifier si la cellule testée contient la couleur voulue.
Comme par exemple (même si je préfère seulement 2 arguments 1 pour la cellule et l'autre pour le code RGB)

Code :

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

1
2
3
Function IsColorInterior(Cell As Range, RedCode As Byte, GreenCode As Byte, BlueCode As Byte) As Boolean
 IsColorInterior = Cell.Interior.Color = RGB(RedCode, GreenCode, BlueCode)
End Function

Tu crées une procédure pour supprimer les lignes répondant aux deux critères, l'un renvoyé par la fonction personnalisée IsColorInterior et l'autre testant si la cellule de la quatrième colonne est remplie.
Personnellement, j'utilise la méthode AdvancedFilter pour faire cela

Un exemple dans ce billet Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Pour comprendre le filtre avancé d'excel, je te conseille la lecture de ce tutoriel Les filtres avancés ou élaborés dans Excel

[duha2_fr]

Bonjour Philippe
Merci pour votre aide

j'ai trouvé un code qui marche (enfin presque)
il ne prends pas en compte mon critère "cellule vide"
code ci-dessous si vous avez un instant Merci

Sub Macro8()
'
' Macro8 Macro
'

Dim ligne As Integer: Dim colonne As Integer
Dim der_ligne As Integer

ligne = 2: colonne = 3
der_ligne = Cells.SpecialCells(xlCellTypeLastCell).Row

While ligne < der_ligne

If (Cells(ligne, colonne).Value = "" And Cells(ligne, colonne).Interior.Color = RGB(198, 179, 235)) Then

Cells(ligne, colonne).EntireRow.Delete
ligne = ligne - 1

End If

ligne = ligne + 1

Wend

End Sub

Bonjour,
Tu crées une fonction personnalisée de type booléen te permettant de vérifier si la cellule testée contient la couleur voulue.
Comme par exemple (même si je préfère seulement 2 arguments 1 pour la cellule et l'autre pour le code RGB)

Code :

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

1
2
3
Function IsColorInterior(Cell As Range, RedCode As Byte, GreenCode As Byte, BlueCode As Byte) As Boolean
 IsColorInterior = Cell.Interior.Color = RGB(RedCode, GreenCode, BlueCode)
End Function

Tu crées une procédure pour supprimer les lignes répondant aux deux critères, l'un renvoyé par la fonction personnalisée IsColorInterior et l'autre testant si la cellule de la quatrième colonne est remplie.
Personnellement, j'utilise la méthode AdvancedFilter pour faire cela

Un exemple dans ce billet Supprimer des lignes suivant critères avec la méthode AdvancedFilter

Pour comprendre le filtre avancé d'excel, je te conseille la lecture de ce tutoriel Les filtres avancés ou élaborés dans Excel

[Philippe Tulliez]

Bonjour,
Il faudrait placer ton code entre les balises (dans l'éditeur le bouton #) prévue à cet effet
Je ne vois pas de problème dans le test cependant il y a me semble t'il une incohérence dans le code. Une ligne de code fait une soustraction (ligne = ligne - 1) et plus loin une addition

De plus dans ta demande initiale

je voudrais enlever les lignes qui possèdent des cellules de couleur RGB(198, 179, 235) et non vides dans la 4 eme colonne

et maintenant

Code :

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

il ne prends pas en compte mon critère "cellule vide"

Il faudrait savoir

[duha2_fr]

Bonjour,


Merci de votre aide.

Bonjour,
Il faudrait placer ton code entre les balises (dans l'éditeur le bouton #) prévue à cet effet
Je ne vois pas de problème dans le test cependant il y a me semble t'il une incohérence dans le code. Une ligne de code fait une soustraction (ligne = ligne - 1) et plus loin une addition

De plus dans ta demande initiale

et maintenant

Code :

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

il ne prends pas en compte mon critère "cellule vide"

Il faudrait savoir