Microsoft 365 rechercher des valeurs dans plusieurs feuilles

[cg1980]

bonjour

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.

par exemple pour completer la cellule d4 dans la feuille "parameter". je prends les criteres "282689.002" et "EUR" , je vois dans la sheet 19, en B3 et f13, j'ai ces 2 criteres, je peux prendre le chiffre en E13.

Concretement je vais chercher le cash EUR du compte 282689.002 mais je ne sais pas à l avance dans quelle sheet il sera, donc je devrais creer une routine pour cela et egalement pour les autres comptes mentionnées dans parameter. les criteres sont toujours le numero de compte et la monnaie cherche
merci de votre aide

 

[job75]

Bonjour cg1980,

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

Vous voulez dire D5 non ?

A+

 

[gbinforme]

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

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

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

 

[cg1980]

Bonjour cg1980,

Vous voulez dire D5 non ?

A+

d5 correct oui pardon

 

[cg1980]

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

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

magnique, tu as creer la fonction pour cela. je suis assez scotche, merci beaucoup, c est tres evolue