Macro

Bonjour,

J'ai cette macro que l'on a créé pour moi sur ce forum et je désirerai que celle-ci puissse faire la meme chose que actuellement

a savoir (ex : si valeur colonne 63 est différente de " " et de "/" alors copier valeur colonne 3 4 5 8 et colonne variable de la feuille BOM dans colonne 2 3 4 5 6 dans PDS021 Composants

mais de la colonne 63 jusqu'a la dernière colonne du tableau

je ne peux pas dire quelle colonne sera la dernière cela peut varier

fichier joint

Salutations

Bonsoir,

Dans votre code vous avez ceci :

derln = fB.Range("C" & Rows.Count).End(xlUp).Row

Ceci permet de trouver la dernière ligne non vide de la colonne C.

Remplacer les références "lignes" par des références "colonnes" et le tour est joué :

Option Explicit

Dim fB As Worksheet, colB, colP, tablo
Dim derln&, i&, derco&

Sub export()

    Set fB = Sheets("BOM")
    derln = fB.Range("C" & Rows.Count).End(xlUp).Row
    derco = fB.Cells(7, Columns.Count).End(xlToLeft).Column

    colB = Array(3, 4, 5, 8, derco)
    colP = Array(2, 3, 4, 5, 6)
    Range("B4").CurrentRegion.Offset(4, 0).ClearContents

    For i = 0 To 4
        tablo = fB.Range(fB.Cells(8, colB(i)), fB.Cells(derln, colB(i)))
        Cells(5, colP(i)).Resize(UBound(tablo, 1), 1) = tablo
    Next i

    Range("E:E").Replace What:="/", Replacement:="", LookAt:=xlPart

End Sub

J'ai surligné les rajouts, mais je n'ai pas testé, à vous de vous en occuper. J'ai pris la ligne 7 pour la recherche de la dernière colonne.

OUPS ! Edit on ne peut pas surligner du code...

vbMBHB

Bonjour à tous

Je vois que tu n'as pas répondu à mon dernier message d'hier où je te proposait une version V2.

C'est donc qu'elle ne te satisfait pas.

Je t'en envoie une autre où je mets le résultat de chaque tour de boucle dans une feuille distincte.

Peut-être fallait-il comprendre ça ?

Bye !

Bonsoir,

en effet j'ai loupé une info : "de la colonne 63 à la dernière variable".

Ma proposition ne prend que la dernière...

Voyez donc la solution de gmb.

vbMBHB

Bonjour,

Désolé de ne pas avoir répondu avant

Merci la macro fonctionne bien

par contre je préfèrerai que les informations s'empilent les unes en dessous des autres sur la meme feuille PDS021 Composants et non sur des feuilles différentes

Salutations

voici à quoi le fichier de destination doit resembler si possible

mettre les informations collecter par les critères en fonction des colonnes a partir de 63 l'une en dessous de l'autre dans la feuille de destination

merci d'avance

Si quelqu'un pouvait m'aider

merci d'avance

help please je ne trouve pas la solution j'aimerais la meme chose que le fichier que GMB m'a proposé

sauf que j'aimerai que les résultats se mettent sur la meme feuille de destination "PDS021 Composants" a la file l'un en dessous des autres dans les divers colonne prévues

salutations

Bonsoir, désolé je ne vois pas

vbMBHB

Ceci permet de trouver la dernière ligne non vide de la colonne C.

Remplacer les références "lignes" par des références "colonnes" et le tour est joué :

CODE : TOUT SÉLECTIONNER

Option Explicit

Dim fB As Worksheet, colB, colP, tablo

Dim derln&, i&, derco&

Sub export()

Set fB = Sheets("BOM")

derln = fB.Range("C" & Rows.Count).End(xlUp).Row

derco = fB.Cells(7, Columns.Count).End(xlToLeft).Column

Je n'avais pas posé la question mais merci pour la réponse

merci

merci

vbMBHB