Soucis dans la compilation de données

Résolu/Fermé

Laeti3112 Messages postés 14 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015 - 9 juin 2015 à 17:30
Laeti3112 Messages postés 14 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015 - 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
Effacer les données de navigation - Guide
Reinstaller windows sans perte de données - Guide
Tnt base de données vide ✓ - Forum TNT / Satellite / Réception
Célia doit nettoyer le tableau ci-dessous pour l’ajouter à la base de données de son entreprise. les données sont ensuite traitées automatiquement. quelles sont les 4 cellules qui risquent de poser problème ? ✓ - Forum Excel
Acquisition de données pci et contrôleur de traitement du signal ✓ - Forum Windows 10

2 réponses

Réponse 1 / 2

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
10 juin 2015 à 18:59

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 vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015
15 juin 2015 à 14:00

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

Réponse 2 / 2

Laeti3112 Messages postés 14 Date d'inscription vendredi 22 mai 2015 Statut Membre Dernière intervention 15 juin 2015
9 juin 2015 à 17:35

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

ou sont les bananes ?

relation d'approbation

Germain

Exemple de base de données access

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

Discussions similaires

Newsletters