Recherche dans tableau

Bonsoir,

je travaille actuellement un module de gestion de transport.

Le cout du transport dépend de la distance de livraison déterminé par des zones, mais aussi de la taille du camion

définit par des m3.

Dans 2combobox, je récupère ces 2 éléments.

Je ne maitrise pas les tableaux.

SI par exemple j'ai un camion de 10m3 en zone 3, comment récupérer la valeur 54 ?

Merci de votre aide.

Bonjour à tous,

Une proposition :

Bonsoir,

DjiDji59430 bonsoir,

presque pareil avec le classique INDEX, EQUIV :

@ bientôt

LouReeD

Bonsoir,

merci pour votre retour, sauf que je ne souhaite pas passer par des formules excel, mais par un code vba, qui sera

intégrer à un code que j'ai commencé à écrire.

Bonsoir,

votre fichier en retour avec ce code :

Sub TestLRD()
    Dim Cel As Range, Entête As Range, ColZone As Range
    Dim ColType As Integer, LigZone As Long, LeType, LaZone
    LeType = Range("B14")
    LaZone = Range("B15")
    Set Entête = Range("B2:N2")
    Set Cel = Entête.Find(LeType, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
        ColType = Cel.Column
        Set ColZone = Range("A3:A11")
        Set Cel = ColZone.Find(LaZone, LookIn:=xlValues, lookat:=xlWhole)
        If Not Cel Is Nothing Then
            LigZone = Cel.Row
            Range("B16") = Cells(LigZone, ColType).Value
        End If
    End If
End Sub

@ bientôt

LouReeD

Bonjour,
Mes meilleurs voeux !...

Sub Test_JE()
Dim rTypes As Range, rZones As Range
Dim r, c
    With Me
        Set rTypes = .Range("B2:N2"): Set rZones = .Range("A3:A11")
        r = Application.Match(.Range("B15"), rZones, 0)
        c = Application.Match(.Range("B14"), rTypes, 0)
        .Range("B16").Value = .Cells(r + 2, c + 1)
    End With
End Sub

Merci à tous les deux.

Bonjour,

merci @ vous pour votre retour et remerciement !

@ bientôt

LouReeD