Bonjour,
J'utilise une macro (cf. bas de message) trouvée sur le site de Boisgontiers Jacques. J'ai inversé les onglets pour avoir en premier le libellé des comptes de l'exercice n.
Elle fonctionne très bien (Merci M. Boisgontiers).
Mon souci est que je ne veux pas récupérer les comptes dont le montant est à "0" sur les 2 exercices.
Je précise que j'ai les N° de comptes dans la colonne A, en B les libellés, et en C les montants.
Merci, par avance.
Oliver77.
Set onglet1 = Sheets("BalanceN")
Set onglet2 = Sheets("BalanceN_1")
Sheets("Balances").[A2:G1500].ClearContents
Range(onglet1.[A2], onglet1.[A65000].End(xlUp).Offset(0, 2)).Copy Sheets("Balances").[A2]
For Each c In Range(onglet2.[A2], onglet2.[A65000].End(xlUp))
p = Application.Match(c, [A:A], 0)
If IsError(p) Then
[A65000].End(xlUp).Offset(1, 0) = c
[A65000].End(xlUp).Offset(0, 1) = c.Offset(0, 1)
[A65000].End(xlUp).Offset(0, 3) = c.Offset(0, 2)
Else
[A1].Offset(p - 1, 3) = c.Offset(0, 2)
End If
Next c
J'utilise une macro (cf. bas de message) trouvée sur le site de Boisgontiers Jacques. J'ai inversé les onglets pour avoir en premier le libellé des comptes de l'exercice n.
Elle fonctionne très bien (Merci M. Boisgontiers).
Mon souci est que je ne veux pas récupérer les comptes dont le montant est à "0" sur les 2 exercices.
Je précise que j'ai les N° de comptes dans la colonne A, en B les libellés, et en C les montants.
Merci, par avance.
Oliver77.
Set onglet1 = Sheets("BalanceN")
Set onglet2 = Sheets("BalanceN_1")
Sheets("Balances").[A2:G1500].ClearContents
Range(onglet1.[A2], onglet1.[A65000].End(xlUp).Offset(0, 2)).Copy Sheets("Balances").[A2]
For Each c In Range(onglet2.[A2], onglet2.[A65000].End(xlUp))
p = Application.Match(c, [A:A], 0)
If IsError(p) Then
[A65000].End(xlUp).Offset(1, 0) = c
[A65000].End(xlUp).Offset(0, 1) = c.Offset(0, 1)
[A65000].End(xlUp).Offset(0, 3) = c.Offset(0, 2)
Else
[A1].Offset(p - 1, 3) = c.Offset(0, 2)
End If
Next c