Inscrire un chiffre ds Cellule Colorée

[Electron24]

Bonsoir le Forum,

Serait il possible d'inscrire un chiffre dans une cellule selon son texte ou sa couleur.
Je m'explique : j'ai des cellules qui ont un fond rouge je souhaiterai que l'on puisse inscrire le chiffre 1
idem pour des cellules ayant un fond bleue, là, je souhaiterai que l'on puisse inscrire le chiffre 2
idem pour des cellules ayant un fond vert, là, je souhaiterai que l'on puisse inscrire le chiffre 3
Merci d'avance de votre participation.

Pour être plus complet, j'ai des cellules qui contiennent "CB" d'autres "PRLV" d'autre "VIR" je souhaite que celles qui contiennent "CB" la cellule précédente doit contenir 1 (ex: B1 contient "CB" A1 doit contenir 1 et 2 pour celles qui contiennent "PRLV" et 3 pour "VIR"

 

[DoubleZero]

Bonjour, Electron24, le Forum,

Un essai, avec le code ci-après.

Option Explicit
Sub Valeur_selon_couleur()
    Dim c As Range
    For Each c In Selection
        Select Case c.Interior.ColorIndex
        Case 3: c = 1
        Case 33: c = 2
        Case 4: c = 3
        End Select
    Next
End Sub

S'applique à la plage de cellules sélectionnée.

A bientôt 🙂

 

[JHA]

Bonjour à tous,

Tu peux aussi mettre une formule du genre:
=si(B1="CB";1;si(B1="PRLV";2;si(B1="VIR";3;"")))
Et mettre une MFC en colonne "A"

JHA

 

[djidji59430]

Bonjour,
Pour ma part, j'irais plutôt vers une validation de données.

 

[Staple1600]

Bonjour à tous


Pour varier les plaisirs

Sub Valeur_selon_couleur_variante()
Dim c As Range, x&
For Each c In Selection
x = c.Interior.ColorIndex
c = Switch(x = 3, 1, x = 5, 2, x = 10, 3)
Next
End Sub

PS: Sur le PC que je t'utilise actuellement 3=rouge , 5=bleu et 10=vert

 

[Electron24]

Bonjour à Tous,

Je reviens vers vous avec un petit fichier qui expliquera mieux mon souhait.
En effet, je vous remercie pour vos suggestions mais si cela serait possible, d'avoir une formule dans la colonne C sans passer par une macro

 

[Staple1600]

Bonjour à tous

Electron24
JHA t'a déjà proposée une formule dans le message #3
Tu l'as testée?

 

[maval]

Bonjour

Juste pour Staple 1600 toujours énervé je pense que la crème bruler n'est pas passé..!
Non juste pour dire bonjour @+

 

[Electron24]

Bonjour Staple 1600

Bien sur que je l'ai testée mais cela ne fonctionne pas car si tu regardes le fichier joint il n'y a pas que "CB" ou "PRLV" ou "Vir" dans les cellules elles contiennent d'autres mots.
Le principe serait de rechercher si la cellule contient bien ces mots et de noter en C 1, 2 ou 3 selon le mot trouvé. D’où au départ de colorier la cellule C selon le mot trouvé.

 

[Staple1600]

maval
???
Je ne suis pas du tout énervé.
J'ai juste demandé si Electron24 avait vu la formule proposée par JHA.
Ni plus moins.
Et Electron24 vient de répondre à la question.

 

[JCGL]

Bonjour à tous,
Salut aux amis,

Surement déjà proposé mais tant pis....

=SI(GAUCHE(D3;2)="CB";1;SI(GAUCHE(D3;4)="PRLV";2;SI(GAUCHE(D3;8)="VIREMENT";3;0)))

Evidemment Bises++ à ma très chère G....
A+ à tous

 

[Electron24]

Bonjour JCGL

Ta formule recherche que "CB" ou "PRLV" ou "VIR" mais dans les cellules D ces mots sont suivis d'autre mots il faudrait pouvoir trouver une formule si extrait le mot "CB" .... "VIR" de la phrase et si c'eqst le cas mettre 1,2ou 3 dans la colonne C comme je l'indique dans le fichier joint ci dessus.

 

[JCGL]

Bonjour à tous,

01 lundi 04 janv 2016 3 VIREMENT dudule
01 lundi 04 janv 2016 1 CB LE PETIT NICE 31/12/15
01 lundi 04 janv 2016 2 PRLV SEPA ASSURANCE
01 lundi 04 janv 2016 0 VOTRE OFFRE LCL INITIAL
01 mardi 05 janv 2016 2 PRLV SEPA EDF clients particul
01 mardi 05 janv 2016 2 PRLV SEPA ASSURANCE
01 mardi 05 janv 2016 3 VIREMENT COMPTE
01 jeudi 07 janv 2016 1 CB PHARMACIECIE

Rendu de la formule proposée mais en format brut, les tableaux n'étant ps possible pour le moment...

A+ à tous

 

[JCGL]

Bonjour à tous,

Une image...

A+ à tous

 

[Electron24]

Re,

Actuellement j'ai trouvé la formule afin de colorier les cellules par mise en forme.

=MAJUSCULE(GAUCHE(D15;1))=MAJUSCULE($T$1)

=MAJUSCULE(GAUCHE(D15;1))=MAJUSCULE($T$2)

=MAJUSCULE(GAUCHE(D15;2))=MAJUSCULE($T$3)

en sachant que:
T1 contient C et donc ma cellule en colonne C se colorie en orange
T2 contient P et donc ma cellule en colonne C se colorie en rouge
T3 contient VI et donc ma cellule en colonne C se colorie en vert et donc GAUCHE(D15;2)