Discussion :

[khroutchev]

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

[Theze]

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 :

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
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é.