Microsoft 365 Export données

GClaire · 26 Septembre 2021

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 · 27 Septembre 2021

Bonjour @GClaire

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

*Merci de ton retour

@Phil69970

Phil69970 · 27 Septembre 2021

Bonjour @GClaire

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

*Merci de ton retour

@Phil69970

GClaire · 27 Septembre 2021

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

Phil69970 · 27 Septembre 2021

Bonjour @GClaire

GClaire à dit:
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 · 27 Septembre 2021

Phil69970 à dit:
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.

Microsoft 365 Export données

GClaire

XLDnaute Impliqué

Pièces jointes

Phil69970

Phil69970

XLDnaute Barbatruc

Pièces jointes

GClaire

XLDnaute Impliqué

Phil69970

XLDnaute Barbatruc

GClaire

XLDnaute Impliqué

Discussions similaires