Soucis dans la compilation de données Résolu/Fermé

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