remplacer cellule coloree par texte

[guizmotte88]

bonjour,
j'aimerais avec la fonction rechercher et remplacer, mettre du texte dans mes cellules colorée afin de pouvoir faire mon tableau croisé dynamique.
merci

 

[Vilain]

Re : remplacer cellule coloree par texte

Bonjour,
il y a une autre possibilité, tu peux filtrer sur les couleurs pour ajouter du texte seulement sur les cellules souhaitées. Cela peut il convenir ?

 

[guizmotte88]

Re : remplacer cellule coloree par texte

oui ca pourrait être une possibilité mais trop long

 

[DoubleZero]

Re : remplacer cellule coloree par texte

Bonjour, guizmotte88, Gillus69, le Forum,

A tester : sur une plage de cellules colorées en jaune de A1 à G1000.

Sub Texte_si_couleur()
For Each c In ActiveSheet.Range("a1:g1000")
If c.Interior.Color = 65535 Then c.Value = ("toto")
Next c
End Sub

Bonne soirée.

 

[DoubleZero]

Re : remplacer cellule coloree par texte

Re-bonjour, bonjour carcharodon-carcharias 🙂,

... un essai à la CC🙄

Si j'aurais su..., j'aurais pas v'nue 😱 !

Bravo 😀 et à bientôt !