Microsoft 365 rechercher des valeurs dans plusieurs feuilles

cg1980

XLDnaute Occasionnel
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
 

Pièces jointes

  • test.xlsm
    105.3 KB · Affichages: 3

gbinforme

XLDnaute Impliqué
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 :)

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
 

Pièces jointes

  • test(7).xlsm
    102.5 KB · Affichages: 2

cg1980

XLDnaute Occasionnel
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
magnique, tu as creer la fonction pour cela. je suis assez scotche:), merci beaucoup, c est tres evolue
 

Discussions similaires

Réponses
5
Affichages
227

Statistiques des forums

Discussions
313 328
Messages
2 097 214
Membres
106 879
dernier inscrit
Peaulittic