Présentation d'un TCD

Question

Sans doute une question très bête, mais je n'y arrive pas : Lors de la création de mes Tcd, la présentation est telle que les références de la 1ère colonne ne sont pas répétées lorsque les lignes suivantes lui sont liées, hors je voudrait qu'elles le soient. Un petit exemple simple : J'obtiens par exemple : Marc..........12,5.......43 ................ 7..........38 ................ 8..........25 David..........11..........29 ................10..........42 .................9..........34 .................7..........28 Et je voudrais obtenir : Marc..........12,5.......43 Marc...........7..........38 Marc...........8..........25 David..........11.........29 David..........10.........42 David...........9..........34 David...........7..........28 Soit directement dans mon Tcd si c'est possible, soit en créant un tableau basé sur le Tcd original.... Avez-vous des pistes ? Merci par avance !!...

Dan · Answer

Ce que tu voudrais n'est pas possible à faire avec un TCD. Vois toutefois les modèles de mise en forme par l'option Format / mise en forme automatique. Amicalement...

bemann · Answer

Ca serait très interessant de pouvoir voir le tableau initial et surtout de à quoi correspondent les 3 lignes pour marc etc... En postant un exemple on pourra se prononcer plus précisemment (ajout d'un champs ou élément calculé) export des lignes correspondant à une personne etc... cordialement...

bemann · Answer

Bravo pour les efforts d'explication et de tentatives pour trouver une solution... Ce n'est pas que vos explications ne soient pas claires mais sans un fichier exemple on est un peu obligé de refaire le travail de préparation avant de proposer des solutions ! et il y a beaucoup de questions postées chaque jour. Donc tout le monde gagne du temps avec un classeur exemple sur lequel il est possible de travailler directement. A bientôt...

bemann · Answer

Je ne vois pas trop où est le problème ou alors j'ai trop abusé de l'apéro estival !!! (ça peut arriver...) créer un tcd mettre le champ nom_enqueteur en champ de ligne mettre le champ temps en champ de ligne par dessus le champ nom_enqueteur en plaçant le champ à droite mais un TCD ne sert pas vraiment à ça, il suffirait de trier la base par nom enqueteur puis masquer les colonnes qu'on ne veut pas ou faire deux colonnes avec des formules de liaison où est le problème ??? (à part mes mirettes qui ne voient peut être plus très clair ! la voiture reste au garage ce soir !) amicalement hips...

dubois · Answer

J'utilise des filtres élaborés plutôt que des TCD, Ici, j'extrais directement des "Données" les 2 colonnes triées par dates et noms, que veux-tu faire par la suite ? Sub NouvBase() Dim Lg% 'Macros par Claude Dubois pour "Kiriko" Excel-Pratique le 8 Août 2010 Application.ScreenUpdating = False Sheets("Données").Activate Lg = Range("A65536").End(xlUp).Row With Sheets("Base") .Columns(3).Insert .Range("a1") = Range("i1") 'enquêteur .Range("b1") = Range("g1") 'temps .Range("c1") = Range("d1") 'date '---- extrait ---- Range("a1:i" &amp; Lg).AdvancedFilter Action:=xlFilterCopy, CopyToRange:= _ .Range("a1:c1"), Unique:=True '---- tri par date et nom ---- .Range("a1:c" &amp; Lg).Sort Key1:=.Range("a1"), Order1:=xlAscending, Key2:= _ .Range("c1"), Order2:=xlAscending, Header:=xlYes .Columns(3).Delete .Range("a:b").Columns.AutoFit .Activate End With End Sub Amicalement Claude...

dubois · Answer

Re, Ok mais après, tu l'utilise ce TCD ? Claude...

dubois · Answer

Re, Sub NouvBase() Dim Lg%, i% 'Macros par Claude Dubois pour "Kiriko" Excel-Pratique le 8 Août 2010 Application.ScreenUpdating = False Sheets("TCD").Activate Lg = Range("A65536").End(xlUp).Row - 2 Range("a1:b" &amp; Lg).Copy With Sheets("Base") .Range("a1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False .Columns("b:b").NumberFormat = "&#91;$-F400&#93;h:mm:ss AM/PM" .Range("a:b").Columns.AutoFit .Activate End With For i = 2 To Lg If Cells(i, 1) = "" Then Cells(i, 1) = Cells(i - 1, 1) Else Range(Cells(i, 1), Cells(i, 2)) _ .Borders(xlEdgeTop).Weight = xlMedium End If Next i With Range("a1:b" &amp; Lg) .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeTop).Weight = xlMedium .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeRight).Weight = xlMedium .Borders(xlInsideVertical).Weight = xlThin End With Range("a1").Select End Sub Amicalement Claude...

dubois · Answer

Comme je disais + haut, je ne connais pas le fonctionnement des TCD, mais si tu me dis que seule la dernière colonne est complète et que les précédentes sont à compléter, alors oui on sait détecter sans boite de dialogue, dans ton dernier exemple, les vides en A et B sont bien sur les mêmes lignes ? confirme ? développe, j'ai pas trop pigé ce point. Claude...

dubois · Answer

Re, La feuille "Base" est pour moi temporaire, à toi de la renommer comme tu veux après la macro Sub NouvBase() Dim Lg%, CL%, i%, A As Byte 'Macros par Claude Dubois pour "Kiriko" Excel-Pratique le 8 Août 2010 Application.ScreenUpdating = False Sheets("TCD2").Activate Lg = Range("A65536").End(xlUp).Row - 2 CL = Columns(200).End(xlToLeft).Column Range(Cells(1, 1), Cells(Lg, CL)).Copy With Sheets("Base") .Range("a1").PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False .Columns(CL).NumberFormat = "&#91;$-F400&#93;h:mm:ss AM/PM" .Range("a:g").Columns.AutoFit .Activate End With Range(Cells(1, 1), Cells(Lg, CL)).Borders.LineStyle = xlNone '---- boucle sur toutes colonnes moins une ---- For A = 1 To CL - 1 For i = 2 To Lg If Cells(i, A) = "" Then Cells(i, A) = Cells(i - 1, A) Else Range(Cells(i, A), Cells(i, CL)) _ .Borders(xlEdgeTop).Weight = xlMedium End If Next i Next A '---- With Range(Cells(1, 1), Cells(Lg, CL)) .Borders(xlEdgeLeft).Weight = xlMedium .Borders(xlEdgeTop).Weight = xlMedium .Borders(xlEdgeBottom).Weight = xlMedium .Borders(xlEdgeRight).Weight = xlMedium .Borders(xlInsideVertical).Weight = xlThin End With Range("a1").Select End Sub Claude...