Microsoft 365 Export données

[GClaire]

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

 

[Phil69970]

Bonjour @GClaire

Je te propose ce fichier d’après ce que j'ai compris.

*Merci de ton retour

@Phil69970

 

[GClaire]

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

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

 

[Phil69970]

Bonjour @GClaire

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

Ce n'était pas dans l'énoncé de départ sinon je les aurais incorporé 😉

Bonne journée

@Phil69970

 

[GClaire]

Bonjour @GClaire


Ce n'était pas dans l'énoncé de départ sinon je les aurais incorporé 😉

Bonne journée

@Phil69970

Hello

Non t’inquiète la base était carré à ma demande.

Merci beaucoup.

Bonne journée, G’Claire.