Concatener

[urbanito1]

Bonjour à la communauté
besoin d'une petite aide pour concatener ( ou autre solution🙄)
tableau en annexe
merci bien
Urbanito1 débutant

 

[chris]

Re : Concatener

Bonjour

Entre l'exemple et l'explication, ce n'est pas clair.

Si j'ai compris, formule à mettre en G4

=CONCATENER(GAUCHE(F4;6);"321";STXT(F4;10;100))

 

[Grand Chaman Excel]

Re : Concatener

Bonjour Urbanito1,

Si j'ai bien "compris", tu veux créer un tableau dynamique, en séparant les montants par mois et par code de comptabilité. Dans ce cas, tu dois avoir une ligne par montant / code. Je te suggère cette macro pour formatter tes données correctement. Il te reste ensuite à mettre les entêtes au tableau et créer ton TCD à partir ce des nouvelles données.

Sub FormatterDonneesPourTCD()
Dim ws1 As Worksheet, ws2 As Worksheet
Dim rg1 As Range, rg2 As Range

Application.ScreenUpdating = True

Set ws1 = ActiveWorkbook.Sheets(1)
Set ws2 = ActiveWorkbook.Sheets(2)
Set rg1 = ws1.Range("A3")       'début des données
Set rg2 = ws2.Range("A2")       'début du nouveau tableau, ligne 1 sera pour les titres

'on boucle à travers toutes les données
Do Until IsEmpty(rg1)

    'Salaire
    rg2 = rg1                           'nom
    rg2.Offset(0, 1) = rg1.Offset(0, 1) 'mois
    rg2.Offset(0, 2) = rg1.Offset(0, 2) 'montant salaire
    rg2.Offset(0, 3) = "104/11110-01"   'code

    'Charges sociales
    rg2.Offset(1, 0) = rg1                          'nom
    rg2.Offset(1, 1) = rg1.Offset(0, 1) 'mois
    rg2.Offset(1, 2) = rg1.Offset(0, 3) 'montant charges sociales
    rg2.Offset(1, 3) = "104/11310-01"   'code
    
    'Charges pension
    rg2.Offset(2, 0) = rg1                          'nom
    rg2.Offset(2, 1) = rg1.Offset(0, 1) 'mois
    rg2.Offset(2, 2) = rg1.Offset(0, 4) 'montant charges pension
    rg2.Offset(2, 3) = "104/11310-21"   'code
    
    Set rg2 = rg2.Offset(3, 0) 'on décale de 3 lignes pour prochaines données


Set rg1 = rg1.Offset(1, 0)
Loop

Application.ScreenUpdating = False

End Sub

A+

 

[tdenfert]

Re : Concatener

Bonjour
je crois que tu devrais chercher avec décaler.
Vois sur le site de jacques Boisgontier il explique bien comment faire
Formation Excel VBA JB
a+

 

[chris]

Re : Concatener

Bonjour

J'ai répondu concernant la concaténation.

En ce qui concerne le TCD : outre l'aspect organisation des données soulevée par Grand chaman, on est un peu hors sujet pour un TCD puisque que le but n'est pas d'effectuer des regroupements avec opérations statistiques.

 

[urbanito1]

Re : Concatener

Merci Chris,

je me suis planté au niveau de la position du 2 ( concatenation)

oubliez le tcd

fichier en annexe

sympa tdenfert pour le site et grand chaman pour la macro....

ça me montre le chemin à parcourir....

urbanito1

 

[chris]

Re : Concatener

Re

En G4

=CONCATENER(GAUCHE(F4;6);"3";STXT(F5;8;3);"2";DROITE(F5;1))

 

[urbanito1]

Re : Concatener

Merci bien
j'essaye de suite
urbanito1 débutant