Discussion :

[Le POlonais]

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 :

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

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

[fred65200]

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

Code :

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

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

[Le POlonais]

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 :

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

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 :

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

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

Merci
A+
Norbert

[fred65200]

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 :

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

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

[Le POlonais]

Bonjour fred65200,

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.

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


Amicalement

Norbert l'Homme de l'Est