Discussion :

[biquet52]

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.

[parmi]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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

[Menhir]

Enlève la ligne Else et la suivante.

[biquet52]

Merci,

tout fonctionne.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

ABC5020

En ligne B1, je mets la formule

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=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

[Menhir]

Ta feuille ne serait-elle pas en mode de calcul manuel ?
Ruban Formules > Icone Option de calcul

[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"

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

=droite(A1;4) * 1

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

=CNum(droite(A1;4))