Soucis dans la compilation de données Résolu

Question

Bonjour, 

Je cherche à fusionner 2 feuilles dans une troisième. Toutes les colonnes de mes tableaux sont identiques. J'utilise la formule suivante :

Sub recap()
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name <> "Paiements non débités" Then
sh.[A2].Resize(sh.[A65536].End(xlUp).Row - 1, 9).Copy Destination:=Worksheets("Paiements non débités").[A65536].End(xlUp).Offset(1, 0)
End If
Next sh
End Sub

Petits soucis : j'aimerais calibré la formule pour seulement 2 de mes  onglets (F.G Juin et Fournisseurs Juin) au lieu de For Each sh In Worksheets, car j'ai d'autres onglets à ne pas prendre en compte... Mais je n'y arrive pas. De plus, j'ai un souci pour la réactualisation de mon tableau final, car quand je relance ma formule après avoir ajouté des lignes dans mes premiers tableaux, le nouveau tableau ne s'affiche pas là où il faut... En effet il s'affiche en dessous...!!???

Touts les bonnes volontés seront salutaires!!!

Merci pour votre collaboration...

Configuration: Windows 7 / Chrome 43.0.2357.81

Laeti3112 · Answer

Je me suis mal exprimée, quand je relance ma formule pour réactualiser mon tableau, j'ai un 2ème tableau qui s'affiche en dessous du premier...
Les données ne sont pas écrasées...

Frenchie83 · Answer

Bonjour
Si j'ai bien compris

Sub recap()
    Dim sh As Worksheet
    Application.ScreenUpdating = False
    Sheets("Paiements non débités").Range("A2:I" & [I100000].End(xlUp).Row).ClearContents
    For Each sh In Worksheets
        If sh.Name <> "Paiements non débités" And sh.Name = "F.G Juin" Or sh.Name <> "Paiements non débités" And sh.Name = "Fournisseurs Juin" Then
            sh.[A2].Resize(sh.[A65536].End(xlUp).Row - 1, 9).Copy Destination:=Worksheets("Paiements non débités").[A65536].End(xlUp).Offset(1, 0)
        End If
    Next sh
End Sub

Cdlt

Soucis dans la compilation de données

2 réponses

Discussions similaires

Newsletters