Discussion :

[Nouky95]

Bonjour,
Je suis à la recherche du code VBA me permettant de sélectionner au sein d'une ligne (R16:NZ16) toutes les cellules d'une même couleur. Puis une fois la sélection effectuée, je voudrais supprimer la couleur de ces cellules.
Merci par avance pour votre aide

[Patrice740]

Bonjour,

Avec VBA, il est inutile (voire néfaste) de sélectionner des cellules pour agir dessus.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Option Explicit
Sub test()
Dim plage As Range, cellule As Range
Dim couleur As Long
  couleur = RGB(255, 0, 0)                            ' Définir de la couleur, par exemple rouge
  Set plage = Worksheets("Feuil1").Range("R16:NZ16")  ' Définir la plage (à adapter au nom de la feuille)
  For Each cellule In plage.Cells                     ' Analyse de chaque cellule
    If cellule.Interior.Color = couleur Then          ' si elle est de la bonne couleur ...
      cellule.Interior.ColorIndex = xlNone            ' ... remplacer par aucun remplissage
    End If
  Next cellule
End Sub

[Nouky95]

Merci Patrice. Je vais essayer. Ne faut-il pas "fermer" une boucle For

[Patrice740]

Merci Patrice. Je vais essayer. Ne faut-il pas "fermer" une boucle For

Elle est fermée par la ligne 11

[Nouky95]

Je viens d'essayer après avoir transposé le code couleur Long en RGB. Le résultat est SUPER, depuis le temps que je piétinais ! MERCI Beaucoup