Copier colonne vers autre fichier + receherche contenu cellule Fermé

Question

Bonjour,

Dans le cadre de mon travail, je suis amené à développé un petit code VBA mais je suis encore novice. Les images illustrent ce que je souhaite obtenir.

Je souhaite écrire un code VBA me permettant de copier les colonnes d'un fichier source vers un fichier destination selon le titre de la première case de chaque colonne. 
Dans mon exemple, le contenu de la colonne Col1 va sous le contenu existant de la colonne Colonne1 du fichier destination et ainsi de suite. Les colonnes ne sont poas forcément rangées dans le même ordre. Je ne m'en sors pas avec les fonction Copy-Paste... ni avec les fichiers différents.

Je souhaiterai également pouvoir ajoutée dans la colonne Code du fichier destination un texte (éventuellement rentré à la main dans une txtbox). Dans l'exemple, j'inscris Après dans cette colonne.

Dernier point, je souhaiterai pouvoir renseigner une colonne (Type) en fonction du contenu partiel de la colonne du fichier source. Je ne peux pas utiliser la fonction .cellsSearch car je ne peux pas installer le pack XLP dans mon entreprise.
Dans mon exemple : Si dans colonne Condition type K… Alors Type = Toto dans fichier destination,  Si X alors Tata et si Y alors Tutu.

Merci d'avance pour votre aide !

yg_be · Answer

bonjour,
il n'est pas utile de faire du copier/coller.  Voici un exemple de code:
Private Sub cpf()
Dim fsource As Worksheet, fdest As Worksheet
Dim cdest As Workbook
Set cdest = Workbooks.Open(ThisWorkbook.Path + "\book2.xlsx")
Set fsource = ThisWorkbook.Sheets("Feuille1")
Set fdest = cdest.Sheets("Feuille2")
fdest.[A2] = fsource.[B3]
cdest.Save
cdest.Close
End Sub

Copier colonne vers autre fichier + receherche contenu cellule

1 réponse

Discussions similaires