Discussion :

[steph06000nice]

bonjour,
j' aimerai créer une fonction dans une cellule qui lorsque l'on entre une valeur vérifie dans une autre feuille que cette valeur est présente et met la cellule en vert dans cette feuille
cela dépasse mes capacités et un coup de pouce serait le bienvenu

steph

[mercatog]

On vérifie la valeur entrée en A1 de feuil2 si elle existe en colonne B de feuil1
Code à mettre dans l'évènement Change de feuil2

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range
If Target.Address = "$A$1" Then
    Target.Interior.ColorIndex = xlNone
    If Target.Value <> "" Then
        Set c = Sheets("Feuil1").Columns(2).Find(Target.Value, LookIn:=xlValues, lookat:=xlWhole)
        If Not c Is Nothing Then Target.Interior.ColorIndex = 4
    End If
End If
End Sub

[steph06000nice]

tout d’abord merci pour cette réponse très rapide

j' ai pas trop d'idées ou est "évènement change" pour mettre le code
n' est t il pas possible de mettre une formule dans la cellule A1 de feuille 2 qui vérifie sur la feuille 1 colonne b si il y a la même valeur

je ne connait pas encore le fonctionnement des macros

[mercatog]

Tu es dans le forum vba excel
Tu veux entrer une valeur en A1 de ta feuil2 et en même temps une fonction en A1?

Sinon, tu peux te servir d"une autre cellule pour la MFC
Exemple en H1 de feuil2 tu mets la formule =SI(ESTERREUR(RECHERCHEV(A1;Feuil1!B:B;1;FAUX));"";"!")
et en A1 tu applique la mise en forme conditionnelle: la formule est =H1="!"

[steph06000nice]

cool c' est ce que j' était en train d' essayer de faire sans resultats

merci

encore une petite question....

est il possible de faire la recherche sur plusieurs feuilles
=SI(ESTERREUR(RECHERCHEV(A1;Feuil1!B:B;1;FAUX));"";"!")
ici on recherche sur la feuil 1 mais je voudrais rechercher sur toutes les feuilles
soit janvier fevrier mars ........decembre
quelle est la syntaxe?


steph

[mercatog]

Bon je ne suis pas si chaud à ces types d'opérations, tu peux essayer une colonne par feuille H1 à S1 avec comme formule=SI(ESTERREUR(RECHERCHEV(A1;Feuil1!B:B;1;FAUX));0;1)
SI(ESTERREUR(RECHERCHEV(A1;Feuil2!B:B;1;FAUX));0;1)
...etc
et une dernière colonne T1 somme des résultats obtenu
dans MFC =T1>0