Inscrire un chiffre ds Cellule Colorée

DoubleZero

XLDnaute Barbatruc

• 6 Août 2016

• #2

Bonjour, Electron24, le Forum,

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

VB:

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 🙂

 

Vote positif 0 Vote négatif

Solution

J

JHA

XLDnaute Barbatruc

• 6 Août 2016

• #3

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

 

Vote positif 0 Vote négatif

djidji59430

XLDnaute Barbatruc

• 6 Août 2016

• #4

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Août 2016

• #5

Bonjour à tous


Pour varier les plaisirs

VB:

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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 7 Août 2016

• #6

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

 

Pièces jointes

• Classeur2.xlsm

  15.6 KB · Affichages: 26

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Août 2016

• #7

Bonjour à tous

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

 

Vote positif 0 Vote négatif

maval

XLDnaute Barbatruc

• 7 Août 2016

• #8

Bonjour

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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 7 Août 2016

• #9

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é.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 7 Août 2016

• #10

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Août 2016

• #11

Bonjour à tous,
Salut aux amis,

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

Code:

=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

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 7 Août 2016

• #12

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.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Août 2016

• #13

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

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 7 Août 2016

• #14

Bonjour à tous,

Une image...



A+ à tous

 

Vote positif 0 Vote négatif

Electron24

XLDnaute Occasionnel

• 7 Août 2016

• #15

Re,

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

Code:

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

Code:

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

Code:

=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)

 

Vote positif 0 Vote négatif