Microsoft 365 Faire correspondre une cellule à une autre

R

robinherold

XLDnaute Nouveau
Bonjour,

Je possède un fichier 1 "test extraction" qui correspond à une extraction que réalise mon TMS pour chaque commande d'un de mes clients.
Le fichier 2 "Exemple_livraisons" correspond à ce que le client doit recevoir de son côté pour pouvoir traiter la commande correctement.
J'aimerais que chaque champ du fichier "test extraction" se "transforme" en son champ correspondant dans le fichier "Exemple_livraisons".
Les 2 fichiers sont joints à ce message

Par exemple : "Récepissé" dans la colonne D du fichier 1 se transforme en "Réference de commande client" dans le colonne B du fichier 2.
Ou encore, "Poids" de la colonne R du fichier 1 se transforme en "Kilogramme" dans la colonne N du fichier 2.

Plusieurs précisions :
- Les colonnes E & F du fichier 1 doivent correspondre à la colonne C du fichier 2 (dans une seule cellule)
- Les colonnes G & H du fichier 1 doivent correspondre à la colonne D du fichier 2 (dans une seule cellule)
- Il faudrait aussi concaténer les colonnes L & M du fichier 1 afin qu'elles correspondent à la colonne I du fichier 2.
- "Code produit vendu" de la colonne Q du fichier 1 peut comprendre différents codes produits : CU1 & CU2 doivent correspondre à "VRAI" dans la colonne M du fichier 2, tout autre code produit, hors ces 2, là doivent correspondre à "FAUX".
- Les colonnes A & B du fichier 1 ne correspondent à rien dans le fichier 2, pas besoin d'en prendre compte.

J'espère avoir été assez clair et précis, n'hésitez pas à me poser vos questions pour vous épingler si besoin!
 

Pièces jointes

  • Exemple_livraisons.xlsx
    9.9 KB · Affichages: 6
  • test extraction.xlsx
    11.2 KB · Affichages: 5
Trier par date Trier par votes
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Bonjour,

Vos exemples ne correspondent pas. Les données du fichier "test extraction.xlsx" ne correspondent pas à la ligne exemple de l'autre fichier. Vous ne dites pas s'il y aura plusieurs lignes à traiter.
"Nombre d'UM" = "Nombre de colis" ?
 
Vote positif 0 Vote négatif
R

robinherold

XLDnaute Nouveau
Hasco à dit:
Bonjour,

Vos exemples ne correspondent pas. Les données du fichier "test extraction.xlsx" ne correspondent pas à la ligne exemple de l'autre fichier. Vous ne dites pas s'il y aura plusieurs lignes à traiter.
"Nombre d'UM" = "Nombre de colis" ?
Cliquez pour agrandir...
Bonjour,

Les données des 2 fichiers ne correspondent pas car il s'agit de 2 commandes tests différentes.
Il y aura effectivement plusieurs lignes à traiter, dans l'optique où il y aura plusieurs commandes à traiter.

Et oui, "Nombre d'UM" = "Nombre de colis" !

Merci pour votre réponse!
 
Vote positif 0 Vote négatif
R

robinherold

XLDnaute Nouveau
robinherold à dit:
Bonjour,

Merci beaucoup pour votre aide!

Il me suffit donc de copier les données des futures commandes dans la première feuille "extract_185_284_230426_0937", puis cliquer sur "Bouton 1" afin que les données se transforment pour apparaître dans la feuille "Resultat" ?
Cliquez pour agrandir...
Excusez-moi, il semble que j'ai oublié de préciser que "Nombre d'UM" = "Nombre de colis", comment puis-je le rajouter dans la macro ?
 
Vote positif 0 Vote négatif
R

robinherold

XLDnaute Nouveau
robinherold à dit:
Bonjour,

Les données des 2 fichiers ne correspondent pas car il s'agit de 2 commandes tests différentes.
Il y aura effectivement plusieurs lignes à traiter, dans l'optique où il y aura plusieurs commandes à traiter.

Et oui, "Nombre d'UM" = "Nombre de colis" !

Merci pour votre réponse!
Cliquez pour agrandir...
"Nombre d'UM" du fichier 1 correspond à la première colonne du fichier 2 "Commentaires"*
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
Re
voici le code modifié avec des commentaires
VB: 
Sub Livraison()

Dim TabData() As Variant
Dim TabFinal() As Variant

With ActiveSheet
    LastLine = .UsedRange.Rows.Count 'dernière ligne
    TabData = .Range("A1:S" & LastLine).Value 'on place les colonnes A à S dans le tablo VBA
End With

ReDim TabFinal(1 To UBound(TabData, 1), 1 To 14) 'on dimensionne le tableau final avec le meme nombre de lignes et 14 colonnes

With Sheets("Resultat") 'dans la feuille résultat
    .UsedRange.Offset(1, 0).Clear 'on efface tout SAUF la ligne d'entête
    TabFinal = .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)).Value 'on récupère la ligne d'entete dans la première ligne du tabloeau VBA
End With

For i = LBound(TabFinal, 1) + 1 To UBound(TabFinal, 1) 'pour chaque ligne, on déplace la donnée de TabData vers TabFinal à la bonne colonne
        TabFinal(i, 1) = TabData(i, 3)
        TabFinal(i, 2) = TabData(i, 4)
        TabFinal(i, 3) = TabData(i, 5) + TabData(i, 6)
        TabFinal(i, 4) = TabData(i, 7) + TabData(i, 8)
        TabFinal(i, 5) = TabData(i, 9)
        TabFinal(i, 6) = ""
        TabFinal(i, 7) = TabData(i, 10)
        TabFinal(i, 8) = TabData(i, 11)
        TabFinal(i, 9) = TabData(i, 12) & Chr(10) & TabData(i, 13)
        TabFinal(i, 10) = TabData(i, 14)
        TabFinal(i, 11) = TabData(i, 15)
        TabFinal(i, 12) = TabData(i, 16)
        If TabData(i, 17) = "CU1" Or TabData(i, 17) = "CU2" Then
            TabFinal(i, 13) = "VRAI"
        Else
            TabFinal(i, 13) = "FAUX"
        End If
        TabFinal(i, 14) = TabData(i, 18)
Next i

With Sheets("Resultat") 'on colle le résultat final dans la feuille Résultat
    .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal
End With

End Sub
 
Vote positif 0 Vote négatif
R

robinherold

XLDnaute Nouveau
vgendron à dit:
Re
voici le code modifié avec des commentaires
VB: 
Sub Livraison()

Dim TabData() As Variant
Dim TabFinal() As Variant

With ActiveSheet
    LastLine = .UsedRange.Rows.Count 'dernière ligne
    TabData = .Range("A1:S" & LastLine).Value 'on place les colonnes A à S dans le tablo VBA
End With

ReDim TabFinal(1 To UBound(TabData, 1), 1 To 14) 'on dimensionne le tableau final avec le meme nombre de lignes et 14 colonnes

With Sheets("Resultat") 'dans la feuille résultat
    .UsedRange.Offset(1, 0).Clear 'on efface tout SAUF la ligne d'entête
    TabFinal = .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)).Value 'on récupère la ligne d'entete dans la première ligne du tabloeau VBA
End With

For i = LBound(TabFinal, 1) + 1 To UBound(TabFinal, 1) 'pour chaque ligne, on déplace la donnée de TabData vers TabFinal à la bonne colonne
        TabFinal(i, 1) = TabData(i, 3)
        TabFinal(i, 2) = TabData(i, 4)
        TabFinal(i, 3) = TabData(i, 5) + TabData(i, 6)
        TabFinal(i, 4) = TabData(i, 7) + TabData(i, 8)
        TabFinal(i, 5) = TabData(i, 9)
        TabFinal(i, 6) = ""
        TabFinal(i, 7) = TabData(i, 10)
        TabFinal(i, 8) = TabData(i, 11)
        TabFinal(i, 9) = TabData(i, 12) & Chr(10) & TabData(i, 13)
        TabFinal(i, 10) = TabData(i, 14)
        TabFinal(i, 11) = TabData(i, 15)
        TabFinal(i, 12) = TabData(i, 16)
        If TabData(i, 17) = "CU1" Or TabData(i, 17) = "CU2" Then
            TabFinal(i, 13) = "VRAI"
        Else
            TabFinal(i, 13) = "FAUX"
        End If
        TabFinal(i, 14) = TabData(i, 18)
Next i

With Sheets("Resultat") 'on colle le résultat final dans la feuille Résultat
    .Range("A1").Resize(UBound(TabFinal, 1), UBound(TabFinal, 2)) = TabFinal
End With

End Sub
Cliquez pour agrandir...
Merci infiniment, c'est exactement ce dont j'avais besoin!
 
Vote positif 0 Vote négatif
Hasco

Hasco

XLDnaute Barbatruc
Repose en paix
Re,

Avec un peu de retard mais je vous propose une requête power query à mettre dans le fichier "Exemple livraison.xlsx"
PowerQuery: 
let
    Source = Excel.Workbook(File.Contents("Adapter le chemin vers le fichier\test extraction.xlsx"), null, true),
    extract_185_284_230426_0937_Sheet = Source{[Item="extract_185_284_230426_0937",Kind="Sheet"]}[Data],
    #"En-têtes promus" = Table.PromoteHeaders(extract_185_284_230426_0937_Sheet, [PromoteAllScalars=true]),
    #"Livré avant ajouté" = Table.AddColumn(#"En-têtes promus", "Livré avant", each [Date début de livraison] &Time.From([Heure de début de livraison]), type datetime),
    #"Livré après ajouté" = Table.AddColumn(#"Livré avant ajouté", "Livré après", each [Date fin de livraison] & Time.From([Heure de fin de livraison]), type datetime),
    #"Nom société ajouté" = Table.AddColumn(#"Livré après ajouté", "Nom de la société", each null),
    #"Sur rue ?" = Table.TransformColumns(#"Nom société ajouté",{{"Code produit vendu", each Logical.From(_="CU1" or _="CU2"),Logical.Type}}),
    #"Colonnes fusionnées" = Table.CombineColumns(Table.TransformColumnTypes(#"Sur rue ?", {{"Adresse 2 du destinataire", type text}}, "fr-FR"),{"Adresse 1 du destinataire", "Adresse 2 du destinataire"},Combiner.CombineTextByDelimiter("#(lf)", QuoteStyle.None),"Adresse"),
    #"Colonnes renommées" = Table.RenameColumns(#"Colonnes fusionnées",{{"Nombre d'UM", "Commentaires"}, {"Récépissé", "Référence de commande"}, {"Téléphone destinataire", "Numéro du destinataire"}, {"Code postal du destinataire", "Code postal"}, {"Ville du destinataire", "Ville"}, {"Instructions de livraison", "Instructions d'accès"}, {"Code produit vendu", "Commerce ou restaurant sur rue"}, {"Poids", "Kilogramme"}}),
    #"Colonnes sélectionnées" = Table.SelectColumns(#"Colonnes renommées",{"Commentaires", "Référence de commande", "Livré avant", "Livré après", "Nom du destinataire","Nom de la société", "Email destinataire", "Numéro du destinataire", "Adresse", "Code postal", "Ville", "Instructions d'accès", "Commerce ou restaurant sur rue", "Kilogramme"})
in
    #"Colonnes sélectionnées"

Adapter le chemin vers le fichier à l'étape "Source" et éventuellement le nom de la feuille à l'étape "Navigation"

Cordialement
 
Vote positif 0 Vote négatif

Discussions similaires

M
  • Question
XL 2019 Transposer des données d'une feuille vers une autre sous forme de synthèse
Réponses
8
Affichages
262
mromain
mromain
N
  • Résolu(e)
Microsoft 365 Remplir une ComboBox à 3 colonnes avec les données d'un TS
4 5 6
Réponses
78
Affichages
1 K
Dudu2
Dudu2
J
  • Question
Microsoft 365 exécuter une formule dont le nom est dans une autre cellule
Réponses
5
Affichages
330
JVOS
J
W
  • Question
Microsoft 365 Fonction recherchev (ou autre) sur 2 classeurs
Réponses
3
Affichages
93
goube
goube
BLACKHAYES
  • Question
XL 2021 Afficher une date d'une colonne selon date du jour
Réponses
8
Affichages
297
BLACKHAYES
BLACKHAYES
B
  • Question
Microsoft 365 Colonnes apparentes selon critères
Réponses
7
Affichages
379
Phil69970
Phil69970
L
  • Question
Microsoft 365 recherche X lien entre 2 fichiers
Réponses
3
Affichages
182
lilie17
L
W
  • Résolu(e)
Microsoft 365 VBA Ajouter une colonne à droite avec mise en forme
Réponses
6
Affichages
192
fanch55
fanch55
A
  • Résolu(e)
Microsoft 365 Sélectionner une cellule
Réponses
5
Affichages
284
chris
chris
K
  • Question
Microsoft 365 vba :Vlookup + incrémentation d'une plage de donnée
Réponses
1
Affichages
136
vgendron
vgendron

Membres actuellement en ligne

16 membres et 127 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 094
Messages
2 116 154
Membres
112 670
dernier inscrit
Flow87