Copier colonne vers autre fichier + receherche contenu cellule
VBAlex
Messages postés
3
Statut
Membre
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention -
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 !
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 !
1 réponse
-
yg_be Messages postés 23437 Date d'inscription Statut Contributeur Dernière intervention Ambassadeur 1 588
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
