Microsoft 365 Export données

GClaire

XLDnaute Occasionnel
Bonjour a toutes et tous

je souhaiterai récupérer certaine données a partir de la ligne 2 le feuille "Affaires_Livrées_Traitees_Loc" pour les insérer dans la feuille "Commande_Gestan".

Pour le moment je le faisais par formule du type

=Affaires_Livrées_Traitees_Loc!G2

ou

=+CONCATENER(Affaires_Livrées_Traitees_Loc!D2; " / ";Affaires_Livrées_Traitees_Loc!E2; " / ";Affaires_Livrées_Traitees_Loc!F2)

Mais j'aimerai le faire lors d'un lancement de macro que j'ai juste avant ce traitement de données.

Dans la feuille "Commande_Gestan"

Pour la colonne A, il y aurait toujours la même donnée "Gab_Gene"
Pour la colonne B, les données serait issues de la colonne "G"
Pour la colonne C, les données seraient issue de la concaténation de colonnes D, E et F avec comme séparateur " / "

J'ai bien tenté avec une macro que j'ai déjà pour l'export de données, mais celle-ci exporte toute la feuille et je n'arrive pas a retraiter derrière.

Je vous joins un fichier exemple

Je vous remercie par avance.

G'Claire
 

Pièces jointes

  • Test_Cde_Gestan.xlsx
    15.3 KB · Affichages: 6

GClaire

XLDnaute Occasionnel
Bonjour Phil69970, le forum

Merci pour ton aide, c'est au poil.

J'ai rajouté deux bricoles pour que cela garde un peu certaine chose qui constituent ce fichier.

Une variable pour le nom de la feuille.
Et le vidage de la feuille

VB:
Option Explicit
Sub Transfert_CMD_Gestan()
Application.ScreenUpdating = False
Dim DerligSrc&, DerligDst&, i&

DerligSrc = Base3.Range("A" & Rows.Count).End(xlUp).Row - 1

Set Fichier_Transfert_CMDE_Gestan = Worksheets(S_Name_Commande_Gestan)
    With Fichier_Transfert_CMDE_Gestan 'Feuil3
        DerligDst = .Range("A" & Rows.Count).End(xlUp).Row + 1
        .Range("A2", "D" & DerligDst).Clear
            For i = 2 To DerligSrc
                .Range("A" & i).FormulaLocal = "CABLAGE-GENE"
                .Range("B" & i) = Base3.Range("G" & i).Value
                .Range("C" & i).FormulaLocal = "30.00"
                .Range("D" & i) = "Qté : " & Base3.Range("D" & i).Value & " / " & Base3.Range("E" & i).Value & " / " & Base3.Range("F" & i).Value
            Next i
    End With
Set Fichier_Transfert_CMDE_Gestan = Nothing
End Sub
Merci beaucoup,

Bonne journée, G'Claire
 

Discussions similaires

Haut Bas