attribution de numero comptable a un montant

[306255]

Bonjour,

je cherche a ce que des montants inscrits sur différentes feuilles (feuille 1 dans l 'exemple) viennent se déverser dans un "plan comptable" qui se trouve en feuille 2

Il peut y avoir 12 feuilles identiques a la feuille 1 et toutes ces feuilles viennent alimenter la feuille 2

Merci pour votre aide

 

[kiki29]

Re : attribution de numero comptable a un montant

Salut,peut-être via un TCD ? voir FAQ MS-Excel et Les tableaux croiss dynamiques dans Excel2007

 

[job75]

Re : attribution de numero comptable a un montant

Bonjour 306255, kiki29,

Exécutez cette macro, placée où vous voulez :

Sub Ventile()
Dim lig As Byte, w As Worksheet, cel As Range, col As Variant
Application.ScreenUpdating = False
Feuil2.[B3:H17].ClearContents 'Feuil2 => CodeName
lig = 3 '1ère ligne en Feuil2
For Each w In Worksheets
  If w.CodeName <> "Feuil2" Then
    If Application.Count(w.[B3:B65000]) Then
      For Each cel In w.[B3:B65000].SpecialCells(xlCellTypeConstants, 1)
        col = Application.Match(cel.Offset(, 1), Feuil2.[B2:H2], 0)
        If IsNumeric(col) Then Feuil2.Cells(lig, col + 1) = cel
      Next
      lig = lig + 1
    End If
  End If
Next
End Sub

A+

 

[job75]

Re : attribution de numero comptable a un montant

Re,

Si en colonne A de Feuil2 vous voulez écrire le nom des feuilles, utilisez :

Sub Ventile()
Dim lig As Byte, w As Worksheet, cel As Range, col As Variant
Application.ScreenUpdating = False
Feuil2.[A3:H17].ClearContents 'Feuil2 => CodeName
lig = 3 '1ère ligne en Feuil2
For Each w In Worksheets
  If w.CodeName <> "Feuil2" Then
    If Application.Count(w.[B3:B65000]) Then
      For Each cel In w.[B3:B65000].SpecialCells(xlCellTypeConstants, 1)
        col = Application.Match(cel.Offset(, 1), Feuil2.[B2:H2], 0)
        If IsNumeric(col) Then Feuil2.Cells(lig, col + 1) = cel
      Next
    End If
    Feuil2.Cells(lig, 1) = w.Name 'nom de la feuille en colonne A
    lig = lig + 1
  End If
Next
End Sub

A+

 

[poulie]

Re : attribution de numero comptable a un montant

Bonsoir 306255, job75, kiki29, Bonsoir à tous,

Peut-être ainsi, si j'ai bien compris. Il faut néanmoins changer les noms de feuilles dans les formules sur l'onglet Feuil2.

Bonne réception

 

[poulie]

Re : attribution de numero comptable a un montant

Bonsoir,

Un complément de proposition plus pratique. Avec la fonction INDIRECT.
A toi de compléter les autres feuilles et à "descendre" la formule vers le bas

Bonen réception