Discussion :

[beabianchini]

Bonjour,

J'ai une base de donnée qui fait correspondre des numéros à des noms.
Je voudrais (avec une macro) qui si j'écris un de ces numéros dans une cellule lorsque je tape entrée le nom correspondant s'affiche et que si je tape un numéro inconnu dans la base il y ait un message d'erreur.

Merci si quelqu'un peut m'aider!

[unparia]

Bonjour
Quel code as-tu au moins tenté par utilisation, par exemple, de la méthode Range.Find ?

[bboy-eazy]

Bonjour,

Voir aussi du coté de l'évenement "worksheet selection changes"
et du côté de la méthode intersect

exemple:

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A2")) Is Nothing Then
    MsgBox "ok"
End If
End Sub

[BENNASR]

avec ce code qui fonctionne mais nécessite amélioration de la part des MR de ce site (vu que chui débutant en VBA ... je cherche si la valeur saisie en C1 existe dans la colonne "A" et s'il existe il affiche la valeur de B si non un message indiquant que la valeur est introuvable

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Recherche()
Dim plage As Range
RT = 0
Set plage = Sheets("Feuil1").Range("A2:A" & [A65536].End(xlUp).Row)
For Each Cell In plage
 If Cell.Value = Sheets("Feuil1").Range("C1").Value Then
 RT = 1
 MsgBox Cell(1, 2)
 End If
Next Cell
If RT = 0 Then
MsgBox ("Valeur introuvable")
End If
End Sub

[beabianchini]

Merci beaucoup pour tous vos retours!
merci