Soucis dans la compilation de données

Résolu

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention -
Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention - 15 juin 2015 à 14:00

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...

A voir également:

Soucis dans la compilation de données
Fuite données maif - Guide
Supprimer les données de navigation - Guide
Trier des données excel - Guide
Reinstaller windows sans perte de données - Guide
Sauvegarde des données - Guide

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription Statut Membre Dernière intervention 338

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

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

Merci beaucoup pour votre aide!!! C'est nickel!!!

Réponse 2 / 2

Laeti3112 Messages postés 14 Date d'inscription Statut Membre Dernière intervention

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...

Discussions similaires

Erreur la zone de données passée à un appel système est insu

relation d'approbation

Barre de données en pourcentage (maintenir 100% comme max)

je tombe sur le service de diffusion des donnees?que faire?

TNT base de donnees vide!!

Votre réponse

Discussions similaires