VBA Excel données bancaires

Bonjour,
voilà je dispose d'un fichier de données bancaires Excel sous forme d'échantillon.
Mon échantillon se constitue de 11 colonnes et de 134 lignes.
Deux de ces colonnes m'intéressent particulièrement puisque je cherche à obtenir l'age du client en entrant son identifiant. (colonnes : "âge client" et "identifiant" ).

Le but est de créer un programme qui me renverrait l'âge du client lorsque l'utilisateur rentre le code d'un identifiant quelconque.

Pouvez-vous m'aider :cry:

Bonjour,

Utilise "Find" sur la colonne "identifiant" puis "Offset" pour accéder à la colonne "âge client" en regard de la cellule trouvée. Exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21

Sub Age()   Dim Plage As Range Dim Cel As Range Dim Identifiant As Long   Identifiant = 123456   'défini la plage des identifiants en colonne A Set Plage = [A2:A50]   'effectue la recherche Set Cel = Plage.Find(Identifiant, , xlValues, xlWhole)   'si trouvé, retourne la valeur de la cellule située en colonne D If Not Cel Is Nothing Then MsgBox Cel.Offset(0, 3).Value End If   End Sub

---

Hervé.