Fusion des colonnes ou de TCD
Bonjour,
Je souhaiterais fusionner plusieurs colonnes en une, par exemple :
- B1 à B100 et C1 à C100 soit réunis en A1 à A200 de manière automatisé.
Après visite de plusieurs forums, les outils qui pourraient se rapprocher de ce que je souhaite faire sont :
- Assistant Tableau croisé dynamique
- Formule ou macro avancé
Cependant, je ne parviens pas à appliquer ces outils complexes à mon cas.
Ci-joint un exemple tableau, de ce que j'ai versus ce que je souhaiterais obtenir.
En vous remerciant par avance de votre aide.
Respectueusement.
Bonjour,
Ton tableau ne reflete pas vraiment ta demande...il n'y a pas de fusion..
Ci joint un tdc qui extrait les 3 1ères colonnes pour plus de visibilité
et j'ai ajoute une colonne dans le tableau initale qui "fusionne" B et C
Bonjour,
Une tentative !?
ALT F8, puis exécuter la procédure Consolidate_data
Cdlt.
Bonjour,
Merci pour vos réponses.
Ma demande doit être mal exprimée, je m'en excuse.
Ce que je souhaite faire, c'est obtenir le résultat que vous verrez dans l'onglet "Après", dont l'origine des données sont saisies dans l'onglet "Avant".
Pour obtenir l'onglet "Après" j'ai fait un copié-collé basique. Je souhaiterais trouver une ou plusieurs autres méthodes.
En vous remerciant par avance de votre réponse et en vous souhaitant une bonne journée.
Respectueusement.
Bonjour,
Merci pour votre message.
L'activation de la macro ALT+F8 engendre l'activation d'un tableau contenant la colonne Problème 1 uniquement. Cela ne répond pas à l'illustration de l'onglet "Après".
"A te relire" : merci de formuler une phrase, je ne comprends pas son sens.
En vous remerciant par avance de votre réponse et en vous souhaitant une bonne journée.
Respectueusement.
Re,
Désolé, j'avais omis de traiter toutes les colonnes.
Ci-joint la procédure modifiée.
Les lignes à zéro ne sont pas prises en compte.
Cdlt.
Jean-Eric,
Merci pour votre réponse.
Cela répond parfaitement à ma problématique.
Est-il possible de décrire exhaustivement, le processus pour développer cette macro ?
A mon niveau, je sais :
- Afficher une Macro
- Enregistrer une Macro
- Aller dans l'interface VBA.
- Je connais l'anglais, et comprend très globalement le langage "IF", "IF NOT", "END"
Pour précision, je souhaiterais exporter cette macro vers mon document de travail. Je pense pouvoir le faire en copiant-collant la macro. Par exemple, il est simple pour moi d'adapter les informations dans la macro, tels que Worksheets("Données") ou Worksheets("Synthèse").
Si décrire ce processus ci-dessous est trop fastidieux, n'hésitez pas en m'en faire part.
Public Sub Consolidate_data()
Dim lo As ListObject
Dim tbl, Arr()
Dim rCell As Range
Dim I As Long, J As Long, k As Long
tbl = Worksheets("Données").ListObjects(1).DataBodyRange.Value
Set lo = Worksheets("Synthèse").ListObjects(1)
If Not lo.DataBodyRange Is Nothing Then lo.DataBodyRange.Delete
Set rCell = lo.InsertRowRange.Cells(1)
For I = 1 To UBound(tbl)
For J = 2 To UBound(tbl, 2) - 1 Step 2
If tbl(I, J) <> 0 Then
ReDim Preserve Arr(3, k + 1)
Arr(0, k) = CLng(tbl(I, 1))
Arr(1, k) = tbl(I, J)
Arr(2, k) = tbl(I, J + 1)
k = k + 1
End If
Next J
Next I
With rCell
.Resize(k, 3).Value = Application.Transpose(Arr)
.EntireColumn.AutoFit
End With
End Sub
En vous remerciant à nouveau et en vous souhaitant une bonne journée.
Respectueusement.
Re,
J'ai commenté la procédure.
Reviens vers moi, pour un complément d'informations.
Cdlt.
Bonjour Jean-Eric,
Merci pour ces informations.
Quelles paramètres dois-je modifier si je souhaites extraire ces données depuis d'autres colonnes.
Par exemple, dans mon document de travail :
- La date est placé en colonne B
- Les arrêts et temps, il y en a en tout 8, et commence à partir de la colonne V jusqu'à la colonne AK.
En te remerciant par avance de ta réponse et en te souhaitant une bonne journée.
Respectueusement,
Bonjour,
Essaie la procédure modifiée du fichier joint.
Cdlt.
Bonjour,
Merci pour ces nouvelles précisions, je commence un peu mieux visualiser le fonctionnement VBA.
Après téléchargement du document, l’exécution de la nouvelle macro ne fonctionne pas.
En te remerciant à nouveau et en te souhaitant une bonne journée.
Respectueusement