Microsoft 365 rechercher des valeurs dans plusieurs feuilles

cg1980 à dit:

par exemple pour completer la cellule d4 dans la feuille "parameter". je prends les criteres "282689.002" et "EUR

Cliquez pour agrandir...

cg1980 à dit:

dans la page "parameter" j'aimerais completer les cellules en jaune
Pour cela, je dois aller chercher l'information dans les sheets 1 2 19 et 20

Cliquez pour agrandir...

Public Function rec_val(cpt, dev)
Const ong = "1,2,19,20" ' feuilles recherche
Dim feu                 ' feuille recherchée
Dim idf As Integer      ' indice feuille
Dim c_t As Range        ' position compte
Dim d_v As Range        ' position devise
    feu = Split(ong, ",")
    For idf = 0 To UBound(feu)
        With Worksheets(feu(idf))
            Set c_t = .Cells.Find(cpt, , xlValues, xlPart)
            If Not c_t Is Nothing Then
                Set d_v = .Columns("F").Find(dev, , xlValues, xlWhole)
                If Not d_v Is Nothing Then
                    rec_val = d_v.Offset(0, -1)
                    Exit Function
                End If
            End If
        End With
    Next idf
    rec_val = "Pas trouvé"
End Function

job75 à dit:

Bonjour cg1980,

Vous voulez dire D5 non ?

A+

Cliquez pour agrandir...

gbinforme à dit:

Bonjour,
Voilà, je t'ai fait une fonction personnalisée qui te fourni le résultat en bleu

VB:

Public Function rec_val(cpt, dev)
Const ong = "1,2,19,20" ' feuilles recherche
Dim feu                 ' feuille recherchée
Dim idf As Integer      ' indice feuille
Dim c_t As Range        ' position compte
Dim d_v As Range        ' position devise
    feu = Split(ong, ",")
    For idf = 0 To UBound(feu)
        With Worksheets(feu(idf))
            Set c_t = .Cells.Find(cpt, , xlValues, xlPart)
            If Not c_t Is Nothing Then
                Set d_v = .Columns("F").Find(dev, , xlValues, xlWhole)
                If Not d_v Is Nothing Then
                    rec_val = d_v.Offset(0, -1)
                    Exit Function
                End If
            End If
        End With
    Next idf
    rec_val = "Pas trouvé"
End Function

Cliquez pour agrandir...