Inscrire un chiffre ds Cellule Colorée

  • Initiateur de la discussion Initiateur de la discussion Electron24
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Electron24

XLDnaute Occasionnel
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"
 
Dernière édition:
Solution
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 🙂
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 🙂
 
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
 
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é.
 
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.
 
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
 
Bonjour à tous,

Une image...

upload_2016-8-7_13-59-58.png


A+ à tous
 
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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Question Question
Microsoft 365 Lecture vocale USF
Réponses
5
Affichages
166
Retour