Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2013 Extraction de données d'un tableau vers un autre

C

Cyril-neo

XLDnaute Nouveau
Bonjour à tous,

tous d'abord je tiens à notifié que je ne connais quasiment rien au VBA mais j'essais d'apprendre.
Je souhaiterai pouvoir compiler des données venant de plusieurs tableaux vers un tableau récapitulatif.

les tableaux visé pour l'extraction se trouve sur la feuille "Perte de charge" et sont les tableau N° 3 et 4 pour qu'ils déversent les informations voulu (seulement certaine colonne) vers le tableau N°2 de la feuille "Extraction Note", mais je ne veux pas que les ligne vide se transfert.

J'ai déjà réalisé l'action pour l'extraction du tableau N°1(feuille "Perte de charge") vers le Tableau N°6 (feuille "Extraction Note") en utilisant l'enregistreur de Macro mais cela ne permet pas de ne pas copié les Lignes vide.

En Moyenne mes tableaux comporterons une cinquantaine de ligne.

Pouvez vous m'aider
 

Pièces jointes

  • exemple.xlsm
    69.4 KB · Affichages: 24
Solution
Bonjour à vous tous

Juste en passant et en lisant ça :
Cyril-neo à dit:
si je relance sans être sur la feuille cela me lance encore l'erreur.
Cliquez pour agrandir...
et après ça :

Cyril-neo à dit:
Quand je lance le débuggeur c'est sur cette ligne qu'il s'arête
"Set row = ActiveSheet.ListObjects("Tableau2").ListRows.Add()"
Cliquez pour agrandir...
Pour moi c'est normal que cela plante car activesheet fait reference à la feuille active donc il cherche le tableau2 sur la feuille active et donc plantage car il n'y a pas de tableau2 sur la feuille active CQFD.

Comme c'est un tableau et qu'il ne peut pas avoir 2 tableaux avec le même nom il faudrait plutôt écrire
Set row =ListObjects("Tableau2").ListRows.Add()
Cliquez pour agrandir...
Excel ce débrouillera pour trouver ce fameux tableau2

@Phil69970
Trier par date Trier par votes

Wayki

XLDnaute Impliqué
Bonjour,
VB: 
Sub test()
Dim cellule As Range, ws As Worksheet
Set ws = Worksheets("extraction note")
For Each cellule In Range("Tableau3[Cône]")
    If cellule <> "" Then
    Dim row As ListRow
    Set row = ActiveSheet.ListObjects("Tableau2").ListRows.Add()
    With row.Range
        .Cells(1) = cellule
        .Cells(2) = cellule.Offset(0, 1)
        .Cells(3) = cellule.Offset(0, 2)
        .Cells(4) = cellule.Offset(0, 3)
        .Cells(5) = cellule.Offset(0, 6)
        .Cells(6) = cellule.Offset(0, 8)
        .Cells(7) = cellule.Offset(0, 5)
        .Cells(8) = cellule.Offset(0, 12)
        .Cells(9) = cellule.Offset(0, 13)
    End With
    End If
Next cellule
Set row = Nothing
For Each cellule In Range("Tableau4[Cône]")
    If cellule <> "" Then
    Set row = ActiveSheet.ListObjects("Tableau2").ListRows.Add()
    With row.Range
        .Cells(1) = cellule
        .Cells(2) = cellule.Offset(0, 1)
        .Cells(3) = cellule.Offset(0, 2)
        .Cells(4) = cellule.Offset(0, 3)
        .Cells(5) = cellule.Offset(0, 6)
        .Cells(6) = cellule.Offset(0, 8)
        .Cells(7) = cellule.Offset(0, 5)
        .Cells(8) = cellule.Offset(0, 12)
        .Cells(9) = cellule.Offset(0, 13)
    End With
    End If
Next cellule
End Sub
A +
 
Vote positif 0 Vote négatif
C

Cyril-neo

XLDnaute Nouveau
Bonjour @Wayki, et Merci pour ce code.
Je rencontre toutefois 2 petit problème avec.
le 1er est quand je l'utilise via le bouton de lecture dans VBA, et en étant sur la feuille "Extraction Note" tous fonctionne mais des que je le met en bouton de commande il indique une erreur "erreur Exécution 9", je suppose que cela doit être en relation avec la sélection de la feuille car si je relance sans être sur la feuille cela me lance encore l'erreur.

Quand je lance le débuggeur c'est sur cette ligne qu'il s'arête
"Set row = ActiveSheet.ListObjects("Tableau2").ListRows.Add()"

Le 2ième est la dernière cellule du tableau 4 (feuille perte de charge") qui ne se copie pas dans le tableau 2 (Feuille "extraction Note")

Peut tu m'aider?
 
Dernière édition:
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Bonjour à vous tous

Juste en passant et en lisant ça :
Cyril-neo à dit:
si je relance sans être sur la feuille cela me lance encore l'erreur.
Cliquez pour agrandir...
et après ça :

Cyril-neo à dit:
Quand je lance le débuggeur c'est sur cette ligne qu'il s'arête
"Set row = ActiveSheet.ListObjects("Tableau2").ListRows.Add()"
Cliquez pour agrandir...
Pour moi c'est normal que cela plante car activesheet fait reference à la feuille active donc il cherche le tableau2 sur la feuille active et donc plantage car il n'y a pas de tableau2 sur la feuille active CQFD.

Comme c'est un tableau et qu'il ne peut pas avoir 2 tableaux avec le même nom il faudrait plutôt écrire
Set row =ListObjects("Tableau2").ListRows.Add()
Cliquez pour agrandir...
Excel ce débrouillera pour trouver ce fameux tableau2

@Phil69970
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

  • Résolu(e)
XL 2021 Classement de noms en fonction de mois ou années dans un tableau
Réponses
10
Affichages
192
AtTheOne
C
  • Question
XL 2016 Automatiser et synthétiser les informations d'un tableau Excel d'un onglet 1 vers des onglets 2 et 3
Réponses
14
Affichages
284
chris63
C
  • Résolu(e)
Microsoft 365 Tableau de STATS sur autre feuille
Réponses
8
Affichages
321
AtTheOne
M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
262
mromain
A
  • Résolu(e)
Microsoft 365 Alimenter automatiquement un tableau à partir des données d'un autre tableau en fonction d'un critère
Réponses
9
Affichages
973
Alexandrax971
A
M
  • Résolu(e)
XL 2016 Comment récupérer les données d'un tableau excel vers un espace Powerpoint
Réponses
7
Affichages
625
melltel
M
Y
  • Résolu(e)
XL 2013 Récupérer le contenu d'un Tableau dans un autre classeur via Power Query et non toute la feuille...
Réponses
4
Affichages
415
Yvan1
Y
N
  • Résolu(e)
Microsoft 365 Transfère de données d'un Userform vers un tableau structuré d'une feuille de calcul
Réponses
4
Affichages
215
NONO14
N
R
  • Résolu(e)
XL 2016 Créer un .doc à partir des données d'un tableur
Réponses
9
Affichages
322
job75
T
  • Question
XL 2016 Transfert de données d'un tableau à un autre
2
Réponses
16
Affichages
2 K
merinos-BernardEtang
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…