VBA : Equivalent Index/equiv

Bonsoir à toutes et tous,

Je souhaite automatiser un fichier comptable pour faire un reporting.

Pour se faire, j'ai en colonne A tous les numéros de comptes selon l'intitulé.

Tous les numéros de compte sont sous la forme de 8 chiffres séparé par une virgule et un espace si il y en a plusieurs.

J'arrive à pourvoir mettre les numéros de comptes sur les différentes lignes.

Ce que je n'arrive pas à faire en VBA, c'est d'aller chercher le montant qui se rapporte au numéro de compte qui se trouve sur une autre feuille.

Par exemple, j'ai deux numéros de compte (12345678 et 87654321).

j'arrive et les extraire pour les écrire sur deux lignes différentes et je souhaiterai pouvoir mettre dans la cellule après le montant qui est dans l'onglet "Septembre".

Dans mon code j'ai mis la valeur 11 pour voir si le reste fonctionnait correctement!

Sans VBA j'utiliserai facilement la combinaison equiv et index mais sous VBA je ne sais pas trop!!!

Je demande ainsi votre aide!!!

Merci par avance.

Bonne soirée.

Bonsoir,

un tit essai voir si ça te vas.

Cordialement.

Bonsoir,

Dans ton cas je proposerais une fonction personnalisée, utilisable dans les mêmes conditions qu'une fonction intégrée d'Excel.

Function SOMMECHARGES(ch As String, m As String)
    Dim c, s, i%, j%, n%
    Application.Volatile
    c = Split(ch, ",")
    With Worksheets(m)
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        For i = 2 To n
            For j = 0 To UBound(c)
                If .Cells(i, 1).Value = CLng(Trim(c(j))) Then _
                 s = s + .Cells(i, 2).Value
            Next j
        Next i
    End With
    SOMMECHARGES = s
End Function

ch correspond à ta liste de comptes de charges, m au mois nom de feuille.

Cordialement

Ferrand

Bonjour MFerrand et Bigdaddy154,

Je vous remercie tous les deux de m'avoir permis de mettre en place mon fichier!!!

Merci bcp!

Bonne journée à vous.