XL 2019 Suppression de colonne / convertion des données et suppression des doublons

chac10

XLDnaute Junior
Bonjour à tous,

Content de vous revoir, j'aimerais mettre en place un fichier simplifié issu d'un csv à l'aide d'une macro.
J'ai tenté de le faire par une macro enregistré, mais un certain nombre de beug se manifeste.

Ainsi pouvez vous m'aider à coder pour réaliser les étapes suivantes:

Convertir le fichier csv en fichier excel avec macro
Je souhaiterais supprimer les colonnes AVEC UN X : E3 à W3
Ajouter une colonne entre les colonnnes suivantes (AGENT NOM / AGENT LOGIN / AGENT LOGOUT ) d'une colonne entre elle
Séparer le call du nom & Séparer l'heure de la date
Supprimer les doublons sur les toutes les colonnes
Effectuer Ces opérations sur les colonnes entières
le fichier a cette tête
Fichier origine première ligne en A1bcdefghijklmnopqrstuvw
Agent-IDAgent-NomAgent-LoginAgent-LogoutJourAppels-TypeAppels-Tr.Appels-Non Tr.Appels-TpsMoyAppels-TotalComAppels-TauxMPA (AHT)ProdClotN.iterDispoN.iterBON.iterM.attN.iterPresencePause
xxxxxxxxxx : yyyyyy
14/10/2021 06:07​
14/10/2021 15:37​
xxxxxxxxxxxxxxxxxxx

Fichier final souhaité :

Fichier souhaité abcdefg
Agent-IDAgent-NomAgent-LoginAgent-Logout
XXXXYYYYY
14/10/2021​
06:07​
14/10/2021​
15:37​

Est ce que ma demande est limpide ?

Je mets le fichier source en pièce jointe:

En vous remerciant énormément pour votre aide.

j'ai du le mettre au format excel macro, je ne crois pas que la plateforme accepte les fichiers csv

Chac10
 

Pièces jointes

  • Test Simplification des colonnes et remise en forme.xlsm
    10.7 KB · Affichages: 7

Jacky67

XLDnaute Barbatruc
Bonjour à tous,

Content de vous revoir, j'aimerais mettre en place un fichier simplifié issu d'un csv à l'aide d'une macro.
J'ai tenté de le faire par une macro enregistré, mais un certain nombre de beug se manifeste.

Ainsi pouvez vous m'aider à coder pour réaliser les étapes suivantes:

Convertir le fichier csv en fichier excel avec macro
Je souhaiterais supprimer les colonnes AVEC UN X : E3 à W3
Ajouter une colonne entre les colonnnes suivantes (AGENT NOM / AGENT LOGIN / AGENT LOGOUT ) d'une colonne entre elle
Séparer le call du nom & Séparer l'heure de la date
Supprimer les doublons sur les toutes les colonnes
Effectuer Ces opérations sur les colonnes entières
le fichier a cette tête
Fichier origine première ligne en A1bcdefghijklmnopqrstuvw
Agent-IDAgent-NomAgent-LoginAgent-LogoutJourAppels-TypeAppels-Tr.Appels-Non Tr.Appels-TpsMoyAppels-TotalComAppels-TauxMPA (AHT)ProdClotN.iterDispoN.iterBON.iterM.attN.iterPresencePause
xxxxxxxxxx : yyyyyy
14/10/2021 06:07​
14/10/2021 15:37​
xxxxxxxxxxxxxxxxxxx

Fichier final souhaité :

Fichier souhaité abcdefg
Agent-IDAgent-NomAgent-LoginAgent-Logout
XXXXYYYYY
14/10/2021​
06:07​
14/10/2021​
15:37​

Est ce que ma demande est limpide ?

Je mets le fichier source en pièce jointe:

En vous remerciant énormément pour votre aide.

j'ai du le mettre au format excel macro, je ne crois pas que la plateforme accepte les fichiers csv

Chac10
Bonjour,
Une proposition avec ce code dans une feuille supplémentaire
La mise à jour se fait à la sélection de la feuille "Résultat"
Condition: la structure du nom soit identique à celle du classeur joint
VB:
Private Sub Worksheet_Activate()
    Dim Derlg&
    Application.ScreenUpdating = False
    Cells.Clear
    Feuil1.UsedRange.Columns("A:D").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[a1], Unique:=True
    Derlg = Cells(Rows.Count, "A").End(xlUp).Row
    Columns(4).Insert: Columns(3).Insert
    Columns(2).Copy [i1]
    Range("g2:g" & Derlg).Formula = "=f2": Range("g2:g" & Derlg).NumberFormat = "h:mm"
    Range("e2:e" & Derlg).Formula = "=d2": Range("e2:e" & Derlg).NumberFormat = "h:mm"
    Range("f2:f" & Derlg).NumberFormat = "dd/mm/yyyy": Range("d2:d" & Derlg).NumberFormat = "dd/mm/yyyy"
    Range("c2:c" & Derlg).Formula = "=mid(i2, Find("":"", i2)+2,9^9)"
    Range("b2:b" & Derlg).Formula = "=left(i2, Find("":"", i2)-2)"
    Range("b2:g" & Derlg).Value = Range("b2:g" & Derlg).Value
    [c1] = "Agent-Prénom": [e1] = "Début": [g1] = "Fin"
    Columns(9).Clear: Columns("B:C").EntireColumn.AutoFit: Rows(1).HorizontalAlignment = xlCenter
End Sub
**Fichier modifié
 

Pièces jointes

  • Test Simplification des colonnes et remise en forme.xlsm
    28.2 KB · Affichages: 1
Dernière édition:

Statistiques des forums

Discussions
298 812
Messages
1 971 980
Membres
203 574
dernier inscrit
Chris804