Démarrage d'une macro par Enter ou par Tabulation

Bonjour,

Encore une fois l'homme de l'Est a un problème.

Je voudrais et je n'arrive pas à faire déclencher une macro par Enter ou par tabulation.
J'explique :
j'ai 2 feuilles nommés tout simplement A et B
J'ai 2 listes qui se trouvent touts les deux en colonne A
Je souhaiterai que lorsque je tape un nombre dans la colonne A cela déclenche la macro, qui va comparer si dans la feuille B colonne A ce nombre se trouve.
Soit avec Enter (numérique) soit par tabulation.

Code:

---

1 2 3 4 5

for toto = 0 to 100 If cellactive.value=worksheets("B").range("A1").offset(toto,0) then msgbox "Alerte" else ens if next toto

---

Merci par avance de votre aide.

Cordialement

Norbert:cry::cry:

Bonsoir l'homme de l'Est
Teste ce code dans le module de feuille de la feuille A

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub Worksheet_Change(ByVal Target As Range) ' si la colonne est la colonne A (1) et qu'il n'y a qu'une cellule de sélectionnée alors If Target.Column = 1 And Target.Count = 1 Then 'recherche valeur feuille B (formule EQUIV) If Not IsError(Application.Match(Target.Value, Sheets("B").Columns(1), 0)) Then MsgBox "la valeur existe feuille B, cellule A" & Application.Match(Target.Value, Sheets("B").Columns(1), 0) Else: MsgBox "Aucune correspondance." End If End If       End Sub

---

cordialement

Bonsoir Fred65200,

C'est parfait mais une autre petite demande
si je veut prendre la valeur de la colonne B
par exemple :

si je tape 124 dans la feuille A et que dans la

Code:

---

Sheets("B").Columns(1), 0)) = 124

---

est ce que je peux par un offset prendre la valeur de la ligne à droite sur la colonne B

Code:

---

LaValeur = Sheets("B").range(Columns(1), 1))

---

Merci
A+
Norbert

Bonsoir,

tu n'as qu'à changer le code comme ci-dessous.
Je t'ai ajouté quelques commentaires. Tu dis si tu as besoin d'explications supplémentaires

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Private Sub Worksheet_Change(ByVal Target As Range) ' si la colonne est la colonne A (1) et qu'il n'y a qu'une cellule de sélectionnée alors If Target.Column = 1 And Target.Count = 1 Then 'recherche valeur feuille B (formule EQUIV) ' la ligne de code suivante pourrait se traduire par ' Si la recherche de la valeur de cellule à l'intérieur de la feuille B colonne B ne donne pas d'erreur, on donne la position de la valeur trouvée. If Not IsError(Application.Match(Target.Value, Sheets("B").Columns(2), 0)) Then MsgBox "la valeur existe feuille B, cellule B" & Application.Match(Target.Value, Sheets("B").Columns(2), 0) & vbLf & _ "La valeur de la cellule à droite est """ & _ Sheets("B").Cells(Application.Match(Target.Value, Sheets("B").Columns(2), 0), "C") & """" & vbLf & vbLf & _ "Application.Match(Target.Value, Sheets(""B"").Columns(2), 0) donne la position de la valeur trouvée dans la zone de recherche." Else: MsgBox "Aucune correspondance." End If End If end sub

---

cordialement

Bonjour fred65200,:D

TU EST UN CHAMPION, C'EST VRAIMMENT CE QUE JE VOULAIS.Au départ j'ai eu du mal à comprendre ta démarche mais
en la découpant pas à pas, je l'ai compris.:lahola:

JESZCZE RAZ WIELKI DZIEKUJE (ENCORE UNE FOIS UN GRAND MERCI):merci:


Amicalement

Norbert l'Homme de l'Est:king: