Recherche code couleur pour changer la couleur

Hervé_88

XLDnaute Nouveau
Bonsoir à tous,

Je cherche une macro qui me permetterai de faire une recherche dans plusieur colonne et ligne d'un code couleur bien identifier dans une cellule, pour la changer par une autre ou pas de couleur

Ci-joint fichier dont je veux supprimer la couleur rouge et remplacer les "999999,90" par rien

D'avance merci de votre aide

Cdt,
Hervé
 

Pièces jointes

  • Classeur2.xls
    33 KB · Affichages: 128
  • Classeur2.xls
    33 KB · Affichages: 132
  • Classeur2.xls
    33 KB · Affichages: 134

pierrejean

XLDnaute Barbatruc
Re : Recherche code couleur pour changer la couleur

A tester

Code:
Set plage = Range("[COLOR=blue]I[/COLOR]1:[COLOR=blue]K[/COLOR]" & Range("[COLOR=blue]I[/COLOR]65536").End(xlUp).Row)
For Each cel In plage
If cel.Interior.ColorIndex = 22 Then
  cel.Interior.ColorIndex = [COLOR=blue]xlNone[/COLOR]
  cel.Value = ""
End If
Next cel

En bleu : a adapter eventuellement
 

Paritec

XLDnaute Barbatruc
Re : Recherche code couleur pour changer la couleur

Bonsoir Pierrejean Hervé le forum,
voilà Hervé je t'ai mis la macro de Pierrejean dans ton fichier
a+
papou :)
 

Pièces jointes

  • Copie de Classeur2-2.xls
    41 KB · Affichages: 170
  • Copie de Classeur2-2.xls
    41 KB · Affichages: 181
  • Copie de Classeur2-2.xls
    41 KB · Affichages: 180

Discussions similaires

Réponses
16
Affichages
352

Statistiques des forums

Discussions
312 489
Messages
2 088 857
Membres
103 979
dernier inscrit
bderradji