Effectuer un test

XL 2007 VBA

Bonjour a tous et toutes, forum bonjour,

Voila, j'ai une plage de cellules H2:H27 dans cette plage il y a des sommes et un mot

Exemple 145,80 € sous cette forme pour les sommes aleatoires

Exemple "Valider" pour le mot d'ailleurs il ni a que ce mot

Je souhaiterai SVP tester cette plage afin que, dès qu'il trouve une somme la colorier en bleu 5 uniquement les sommes en bleu

Merci beaucoup d'avance et bonne journée a tous

Raymond

Bonjour

essaie ce code à placer dans un module en VBA et lui associer un bouton

Sub colorise()
'Macro Dan pour eliot raymond - XL pratique 07/04/09
Dim cel As Range
For Each cel In Range("H2:H27")
If cel.HasFormula = True Then
cel.Interior.ColorIndex = 5
Else: cel.Interior.ColorIndex = xlNone
End If
Next
End Sub

Amicalement

Dan

Salut

Merci pour ta reponse rapide

j'ai essayer ca colorie le fond de la cellule et si j'enleve le code interior ca marche plus

je veux juste colorier les sommes en bleu dans la plage

merci d'avoir regarder

bonne journée a toi

Raymond

re,

Ah ben oui tu n'avais pas précisé que ce n'était pas la celule. Voici le code modifié

Sub colorise()
'Macro Dan pour eliot raymond - XL pratique 07/04/09
Dim cel As Range
For Each cel In Range("H2:H27")
If cel.HasFormula = True Then
cel.Font.ColorIndex = 5
Else: cel.Font.ColorIndex = xlAutomatic
End If
Next
End Sub

Dan

Edit Dan : en voyant tes fils résolus, je vois que tu omets de mettre RESOLU afin de montrer que ton pb est terminé. Pour mettre RESOLU, lis ce lien --> https://forum.excel-pratique.com/viewtopic.php?t=13

Merci de ta participation.

Dan

Bonjour Nad dan, forum

J'ai essayer ton code c'est bon ca marche, je te remercie j'ai bidouiller mais c'est bon

pour les questions j'ai mis RESOLU comme tu me l'a demander je ne pense pas en avoir oublier

encore merci pour le chti coup de mains

te souhaite bonne fin d'apres midi

@++ Raymond