Discussion :

[max55170]

Bonjour, voici mon problème :
dans un fichier j'ai une balance de comptes (compta) et je souhaite à partir de cette balance (sachant que je pourrais insérer d'autres balances après) reprendre certains comptes (donnés dans des plages de numéros de comptes) dont j'ai besoin et que je mettrai dans un nouvel onglet (un pour chaque catégorie).

Tout est sur le fichier en pièce jointe, macros ou formules ? Y a t-il une solution ?

J'espère que vous pourrez m'aider, merci par avance.

P.S : les comptes doivent tous être à 8 chiffres.
Exemple.xlsx

[Daniel.C]

Bonjour,

Est-ce que tu peux donner un exemple de compte qui soit dans les plages définies en H3:J15 ?

[max55170]

Par exemple le compte 27180000 - AUTRES TITRES IMMOBILISES se trouve dans la plage immos financières.

[Daniel.C]

J'ai modifié le tableau en H3:J15. Le nouveau tableau est en H18:M30. Quand tu double cliques sur un compte de la feuille "Balance", si le compte se trouve dans une des plages, il est copié sur la feuille correspondante.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim C As Range, Feuille As String, Ligne As Long
    If Target.Column <> 1 Or Target.Value = "" Then Exit Sub
    Cancel = True
    For Each C In [H18:H30]
        If Target.Value >= C.Value And Target.Value <= C.Offset(, 1).Value Then
            Feuille = "Immos financieres"
            Exit For
        End If
    Next C
    If Feuille = "" Then
        For Each C In [J18:J26]
            If Target.Value >= C.Value And Target.Value <= C.Offset(, 1).Value Then
                Feuille = "Provisions"
                Exit For
            End If
        Next C
    End If
    If Feuille = "" Then
        For Each C In [L18:L26]
            If Target.Offset(, 1).Value >= C.Value And Target.Offset(, 1).Value <= C.Offset(, 1).Value Then
                Feuille = "Op. Exceptionnelles"
                Exit For
            End If
        Next C
    End If
    If Feuille <> "" Then
        With Sheets(Feuille)
            Ligne = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(Ligne, 1).Resize(, 3).Value = Target.Resize(, 3).Value
            .[A:D].EntireColumn.AutoFit
        End With
    End If
End Sub

PJ : max55170 Exemple.xlsm

[max55170]

MERCI !! C'est vraiment génial, j'adore cette idée !

Bravo!



Re bonjour,
excuses moi de re déranger mais j'ai une dernière fois besoin de tes services.
J'aimerai si c'est possible que l'on puisse adapter la formule suivant l'exemple en pièce jointe.
J'ai maintenant une deuxieme balance.

Merci d'avance!
Exemple.xlsm

[Daniel.C]

Teste : max55170 Exemple2.xlsm