XL 2010 Faire communiquer 2 tableaux structurés sur 2 feuilles

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion Orson83
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Orson83

Orson83

XLDnaute Impliqué
Bonjour à toutes et tous,
Je vous sollicite, car je ne parviens pas à faire communiquer 2 tableaux structurés. En effet, ils sont placés sur 2 pages différentes et il y a un décalage de 2 lignes dans la feuille "Récap". L'idée, c'est que le tableau "Récap" se complète automatiquement grâce au tableau "Planning".
Je vous remercie par avance pour votre aide👍
Je joins mon fichier exemple dans ce fil.

PS : j'ai aussi un petit problème pour trier la liste déroulante (> Factures > cellule J5)😵

Orson83
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
gbinforme à dit:
Bonjour,
Ton tableau corrigé
Cliquez pour agrandir...
Bonjour @gbinforme, le forum,
Merci pour cette proposition👍
Bizarrement, quand j'ajoute 1 ligne dans ma feuille "Planning", le tableau "Récap" ne se complète pas.
Effectivement, en allongeant le tableau du Récap, cela fonctionne, mais dans l'idée, j'aurais souhaité qu'il s'alimente sans avoir à intervenir dessus 🙂
Au cas où, tu aurais une solution pour la liste déroulante en "Factures J5" ? (ordre alphabétique)
Je joins mon nouveau fichier V2.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Bonjour Orson83, gbinforme, sylvanu,

Voyez le fichier joint et cette macro dans le code de la feuille "Récap" :
VB: 
Private Sub Worksheet_Activate()
Dim d As Object, tablo, i&, resu(), x$, n&
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
With [TabRecap] 'tableau structuré
    tablo = .Resize(, 4) 'matrice,plus rapide
    For i = 1 To UBound(tablo)
        d(tablo(i, 1)) = tablo(i, 4) 'mémorise le Type paiement
    Next i
    tablo = [TabPL].Resize(, 7) 'matrice,plus rapide
    ReDim resu(1 To UBound(tablo), 1 To 4)
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        If x <> "" Then
            n = n + 1
            resu(n, 1) = x
            resu(n, 2) = tablo(i, 5)
            resu(n, 3) = Format(tablo(i, 6), "d/m/yy") & " " & Format(tablo(i, 7), "d/m/yy")
            resu(n, 4) = d(x) 'récupère le Type paiement
        End If
    Next i
    If n Then .Resize(n, 4) = resu 'restitution
    If n < .Rows.Count Then If Not .ListObject.DataBodyRange Is Nothing Then .Rows(n + 1).Resize(.Rows.Count - n).Delete xlUp 'RAZ en desssous
End With
End Sub
Elle se déclenche automatiquement quand on active la feuille.

Bien noter que les Types paiement déjà entrés sont mémorisés et récupérés quelque soit le classement dans la feuille "Planning".

A+
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Bonjour Orson83, gbinforme, sylvanu,

Voyez le fichier joint et cette macro dans le code de la feuille "Récap" :
VB: 
Private Sub Worksheet_Activate()
Dim d As Object, tablo, i&, resu(), x$, n&
Set d = CreateObject("Scripting.Dictionary")
d.CompareMode = vbTextCompare 'la casse est ignorée
With [TabRecap] 'tableau structuré
    tablo = .Resize(, 4) 'matrice,plus rapide
    For i = 1 To UBound(tablo)
        d(tablo(i, 1)) = tablo(i, 4) 'mémorise le Type paiement
    Next i
    tablo = [TabPL].Resize(, 7) 'matrice,plus rapide
    ReDim resu(1 To UBound(tablo), 1 To 4)
    For i = 1 To UBound(tablo)
        x = tablo(i, 1)
        If x <> "" Then
            n = n + 1
            resu(n, 1) = x
            resu(n, 2) = tablo(i, 5)
            resu(n, 3) = Format(tablo(i, 6), "d/m/yy") & " " & Format(tablo(i, 7), "d/m/yy")
            resu(n, 4) = d(x) 'récupère le Type paiement
        End If
    Next i
    If n Then .Resize(n, 4) = resu 'restitution
    If n < .Rows.Count Then If Not .ListObject.DataBodyRange Is Nothing Then .Rows(n + 1).Resize(.Rows.Count - n).Delete xlUp 'RAZ en desssous
End With
End Sub
Elle se déclenche automatiquement quand on active la feuille.

Bien noter que les Types paiement déjà entrés sont mémorisés et récupérés quelque soit le classement dans la feuille "Planning".

A+
Cliquez pour agrandir...
Bonsoir @job75, le fil,
Merci pour cette proposition, je regarderai lundi dans la journée.
Bon weekend 😉
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Orson, Gbinforme,
Dans un tableau structuré les formules se propagent sur toutes les lignes mais pas au delà du tableau.
Serait ce possible d'agrandir le tableau Recap ? Dans ce cas le problème serait résolu sans autre intervention.
Cliquez pour agrandir...
Bonsoir @sylvanu, le fil,
Merci pour cette proposition, je regarderai lundi dans la journée.
Bon weekend 😉
 
Dernière édition:
Vote positif 0 Vote négatif
Pour la feuille "Factures" on utilisera cette macro :
VB: 
Private Sub Worksheet_Activate()
With Columns(1)
    .Clear
    [TabPL].Columns(1).Copy .Cells(1)
    .Sort .Cells, xlAscending, Header:=xlNo 'tri
End With
End Sub
qui alimente la colonne A quand la feuille est activée.

Formule de validation puisque vous aimez INDIRECT :
Code: 
=INDIRECT("A1:A"&MAX(1;NBVAL(A:A)))
 

Pièces jointes

Vote positif 0 Vote négatif
job75 à dit:
Pour la feuille "Factures" on utilisera cette macro :
VB: 
Private Sub Worksheet_Activate()
With Columns(1)
    .Clear
    [TabPL].Columns(1).Copy .Cells(1)
    .Sort .Cells, xlAscending, Header:=xlNo 'tri
End With
End Sub
qui alimente la colonne A quand la feuille est activée.

Formule de validation puisque vous aimez INDIRECT :
Code: 
=INDIRECT("A1:A"&MAX(1;NBVAL(A:A)))
Cliquez pour agrandir...
Merci @job75, le fil,
Je regarderai cela lundi.
Je suis de sortie avec ma belle 😁
 
Vote positif 0 Vote négatif
sylvanu à dit:
Bonjour Orson, Gbinforme,
Dans un tableau structuré les formules se propagent sur toutes les lignes mais pas au delà du tableau.
Serait ce possible d'agrandir le tableau Recap ? Dans ce cas le problème serait résolu sans autre intervention.
Cliquez pour agrandir...
Bonjour le fil,
Merci pour ces propositions que j'ai adaptées en fonction de toutes les réponses obtenues.
@gbinforme pour les formules de liaison entre les tableaux
@sylvanu pour son intervention
@job75 pour ses réponses pertinentes
J'ai finalement mixé vos solutions pour résoudre mon problème.
Bonne journée à tous 😉
 
Vote positif 0 Vote négatif
job75 à dit:
Pour la feuille "Factures" on utilisera cette macro :
VB: 
Private Sub Worksheet_Activate()
With Columns(1)
    .Clear
    [TabPL].Columns(1).Copy .Cells(1)
    .Sort .Cells, xlAscending, Header:=xlNo 'tri
End With
End Sub
qui alimente la colonne A quand la feuille est activée.

Formule de validation puisque vous aimez INDIRECT :
Code: 
=INDIRECT("A1:A"&MAX(1;NBVAL(A:A)))
Cliquez pour agrandir...
@job75,
Je rencontre un problème dans la gestion du tri de la liste. Comme cette question n'est pas propre à ce thread, j'en ai créé un autre ici.
Bonne soirée.
Orson83
 
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Orson83
  • Résolu(e)
XL 2010 Déplacer liste tri validation de données
Réponses
10
Affichages
625
Orson83
Orson83
D
  • Question Question
Microsoft 365 RECHERCHEV sur deux tableaux distincts avec une mise à jour automatique
Réponses
3
Affichages
416
chris
chris
R
  • Résolu(e)
XL 2019 détection de dates sur la base de 2 tableaux
Réponses
2
Affichages
515
rh.finances
R
Orson83
  • Résolu(e)
XL 2010 RechercheV concaténer le résultat de 2 numéros de colonne
Réponses
11
Affichages
836
TooFatBoy
TooFatBoy
Gen Rose
  • Résolu(e)
Microsoft 365 Comparer deux colonnes et souligner les différences
Réponses
13
Affichages
1 K
Gen Rose
Gen Rose
M
  • Question Question
Microsoft 365 fusion automatique de plusieurs tableaux évolutifs sur différents onglet vers un tableau général récapitulatif
Réponses
5
Affichages
917
mitmit
M
L
  • Résolu(e)
XL 2013 Garder espace de 1 ou 2 ligne(s) entre tableaux structurés sur une même feuille
Réponses
13
Affichages
2 K
Leguyl
L
A
  • Résolu(e)
XL 2013 Couper-coller ligne sans formulaire entre 2 tableaux structurés
Réponses
12
Affichages
903
Dranreb
Dranreb
A
  • Résolu(e)
XL 2013 VBA - Comparaison de 2 tableaux
Réponses
4
Affichages
2 K
Ananas94
A
JOL
  • Question Question
Microsoft 365 Compare 2 tableaux avec 16 possibilités.
Réponses
7
Affichages
897
JOL
JOL
A
  • Résolu(e)
XL 2019 Comparer 2 tableaux dans deux feuilles puis attribuer une valeur définie
Réponses
6
Affichages
3 K
Alketros
A
I
  • Question Question
XL 2016 [RESOLU] Recherche dans des tableaux sur des feuilles différentes
Réponses
2
Affichages
790
ivan27
I
Meria
  • Question Question
Recherchev sur 3 tableaux
2
Réponses
16
Affichages
3 K
Meria
Meria
K
  • Question Question
XL 2013 VBA - EXCEL - Aide pour simplifier mon fichier
Réponses
0
Affichages
1 K
Khalidoune
K
F
  • Question Question
re-Modification à partir d'une ComboBox dans un tableau dynamique
Réponses
9
Affichages
4 K
Staple1600
Staple1600
A
  • Question Question
Addition conditionnelle sur 2 feuilles
Réponses
2
Affichages
807
AntoineLR
A
A
  • Question Question
XL 2013 Addition conditionnelle sur 2 feuilles
Réponses
11
Affichages
1 K
CISCO
CISCO
N
  • Question Question
XL 2010 Affectation de personnels sur planning
2
Réponses
15
Affichages
5 K
newheel
N
E
  • Question Question
Copier/Coller une ligne de plusieurs feuilles sur une autre feuille sous conditions
2
Réponses
17
Affichages
2 K
DoubleZero
DoubleZero
T
  • Question Question
Problème avec formulaire sur VBA - 1 UserForm pour 2 feuilles avec un multipage
Réponses
6
Affichages
5 K
tath132
T
Retour