Récupération couleur à partir d'une valeur

Version imprimable

19/11/2015, 10h42
biquet52

1 pièce(s) jointe(s)

Récupération couleur à partir d'une valeur

Bonjour,

j'aimerais récupérer la couleur correspondante (feuille RAL) à partir de la valeur entrée sur la feuille Récupération.

Voir exemple en pièce jointe.

Merci d'avance.

Bonjour,

À mettre dans le code de la feuille Récupération

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Recherche As Range
 
    Application.EnableEvents = False
 
    Set Recherche = Sheets("RAL").Cells.Find(Target.Value, LookIn:=xlValues, LookAt:=xlWhole)
    If Not Recherche Is Nothing Then
        Sheets("RAL").Range(Recherche.Address).Copy
        Target.PasteSpecial xlPasteFormats
    Else
        MsgBox "Aucune valeur trouvée dans RAL"
    End If
 
    Application.EnableEvents = True
End Sub

26/11/2015, 08h50
biquet52

Bonjour,

merci pour votre réponse.

ça fonctionne impeccable.

Petite amélioration, est-il possible dans le cas d'un RAL qui n'existe pas dans la liste de simplement laisser la case en blanc?
Et de ne plus avoir le message "Aucune valeur trouvée dans RAL"

D'avance Merci
26/11/2015, 09h10
Menhir

Enlève la ligne Else et la suivante.
27/11/2015, 11h33
biquet52

Merci,

tout fonctionne.
08/12/2015, 15h42
biquet52

bonjour,

Comme je le disais juste avant, tout fonctionne.

Ce pendant, je récupère mes valeurs de RAL depuis une requête avec un calcul substring sur une colonne adjacente et là, ma couleur RAL n'est pas affichée.

Exemple:

En ligne A1, j'ai :

Code:

ABC5020

En ligne B1, je mets la formule

Code:

=droite(A1;4)

pour récupérer la valeur du RAL

Cette formule se trouve dans un tableau, donc toutes les nouvelles valeurs de RAL se calculent en automatique.

Pour pouvoir récupérer la bonne couleur de RAL, je suis obliger de rentrer dans la case où se trouve la formule et revalider la formule par "Enter" pour que le RAL apparaisse.

En espérant m'être fait comprendre... :-)

Merci d'avance pour votre aide
08/12/2015, 16h30
Menhir

Ta feuille ne serait-elle pas en mode de calcul manuel ?
Ruban Formules > Icone Option de calcul
13/01/2016, 15h07
biquet52

Bonjour,

merci pour votre réponse, mais malheureusement, ça ne corrige pas mon problème.

Je suis toujours obligé d'aller dans ma formule et la valider par "Enter"
13/01/2016, 17h10
parmi

La macro, de la façon dont elle est montée, est activée sur changement de valeur des cellules (Worksheet_Change)
Il faut donc qu'une cellule ait changé.

Peut-être aussi que tu pourrais modifier ta formule pour rendre ta valeur numérique (?)

Code:

=droite(A1;4) * 1

ou

Code:

=CNum(droite(A1;4))