Bonjour,
Je suis un peu novice,
Je cherche à remplacer la valeur d'une cellule colorée par une valeur 0
Ma feuille est remplie de la colonne A à CC et de la ligne 1 à 10000.
La valeur de la couleur est 16749054
voici ce que j'ai essayé mais il me manque des étapes:
Sub changer_valeur_couleur_cellule()
Range("A1:CC60000").Select
Dim Cel As Range
For Each Cel In Selection
If NO_Couleur = 16749054 Then Cells.Value = "0"
Next
End Sub
Merci d'avance
Je suis un peu novice,
Je cherche à remplacer la valeur d'une cellule colorée par une valeur 0
Ma feuille est remplie de la colonne A à CC et de la ligne 1 à 10000.
La valeur de la couleur est 16749054
voici ce que j'ai essayé mais il me manque des étapes:
Sub changer_valeur_couleur_cellule()
Range("A1:CC60000").Select
Dim Cel As Range
For Each Cel In Selection
If NO_Couleur = 16749054 Then Cells.Value = "0"
Next
End Sub
Merci d'avance