COLOR CELULLE SI = à XX

Bonjour,

Sans passer par MFC mais plutôt par VBA je voudrai coloré les cellules d'une matrice 'Datas' = à un chiffre saisie 'Saisie'

ci joint un exemple

Bien cordialement

Bonjour

à tester

crdlt,

André

Merci Andre13,

L'idée est là bravo, mais le bout du bout est que cela s'adapte automatiquement avec le Chiffre aléatoire de l'onglet Saisie

comment adapter If cel.Text = 11 Then

bien cordialement

Re,

à tester

si la valeur de la celulle D8 de la feuille SAISIE contient "11" alors,

sur feuille DATAS on peut cliquer sur le bouton (mettre en rouge) et pour effacer le btn bleu

crdlt,

André

Oui Andre13 j'ai saisie le principe des boutons.

Simplement le Chiffre en SAISIE!D8 est une variable

Ta macro ne fonctionne que pour des 11, ma question était comment intégrer la variable SAISIE!D8 dans ta Macro

en lieu et place de 11 .

Merci par avance de ton retour

Bien cordialement

un peu comme dans ce style ou je déclare ma variable, mais malheureusement

ça ne fonctionne pas

Sub test()

Dim cel

Dim plage As Range

mavaleur = Worksheets("SAISIE").Range("D8").Value

Set plage = Range("I2:K11")

'On peut également écrire avec le format : Cells(ligne, colonne)

'Set plage = Range(Cells(1, 1), Cells(30, 6))

For Each cel In plage

If cel.Text = mavaleur Then

cel.Interior.ColorIndex = 3

' cell.Bold = True 'Police en gras

End If

Next cel

MsgBox mavaleur

End Sub

Sub testNO()

Dim cel

Dim plage As Range

Set plage = Range("I2:K11")

'On peut également écrire avec le format : Cells(ligne, colonne)

'Set plage = Range(Cells(1, 1), Cells(30, 6))

For Each cel In plage

If cel.Text = mavaleur Then

cel.Interior.ColorIndex = 0

' cell.Bold = True 'Police en gras

End If

Next cel

End Sub

Bonsoir Barachoie, André,

Bonsoir le forum,

une idée...

• En 'SAISIE' toute une série d'options d'affichage en fonction des tranches de nombre ou de nombres exacts ;
• En 'DATAS', le moindre changement de valeur adapte l'affichage de la cellule.

A tester et adapter...

A+

Merci Curilis

Belle réalisation Merci.

J'ai Bien peur que dans mon dossier réel ce n'est pas des chiffres

Que j'ai mes des chaînes Textes.

comme je veux maîtrisé exactement ce que je recherche j'ai opté pour

Le contenu d'une cellule.

Le code que g envoyé avec "mavalzur" est a amélioré car je pense

Qu'il y a une erreur de syntaxe donc c la raison pour lequel il n '

est pas opérant.

Merci infiniment pour ton coup de pouce et encore Merci

Pour ta belle proposition.

Cordialement

Bonjour et Par Avance Merci pour votre Aide

Pourquoi le code suivant ne fonctionne pas?

Sub test()

Dim cel

Dim plage As Range

mavaleur = Worksheets("SAISIE").Range("D8").Value

Set plage = Range("I2:K11")

'On peut également écrire avec le format : Cells(ligne, colonne)

'Set plage = Range(Cells(1, 1), Cells(30, 6))

For Each cel In plage

If cel.Text = mavaleur Then

cel.Interior.ColorIndex = 3

' cell.Bold = True 'Police en gras

End If

Next cel

MsgBox mavaleur

End Sub

Sub testNO()

Dim cel

Dim plage As Range

Set plage = Range("I2:K11")

'On peut également écrire avec le format : Cells(ligne, colonne)

'Set plage = Range(Cells(1, 1), Cells(30, 6))

For Each cel In plage

If cel.Text = mavaleur Then

cel.Interior.ColorIndex = 0

' cell.Bold = True 'Police en gras

End If

Next cel

End Sub

Bonjour,

J'ai un peu modifié, bon un peu légèrement planté sur certains points, mais c'est à améliorer

je me suis mélangé les pinceaux en voulant créer un compteur de plus

quelque chose m'échappe grr.

bon le fichier ci joint

crdlt,

André