Discussion :

[Mich1183]

Bonsoir communauté,

Je débute vraiment en VBA, et j'ai réalisé un code me permettant d'ouvrir un fichier .xlsx pour copier sa feuille dans le fichier portant la macro afin de manipuler des données selon leur valeur ou précisément selon leur suffixes. Grosso modo je souhaite à partir de la feuille Ref garder la colonne A intacte et faire des remplacements sur les cellules de la plage B et les colonnes suivantes de sorte que lorsque la cellule se termine par DK_ je la garde et lorsque ce n'est pas le cas je remplace la cellule par sa ligne en comparant avec la colonne A depuis Ref.

J'ai tenté de copier les cellules de Ref ne finissant pas par DK_ dans la feuille Step1 et l'inverse dans Step2 et faire un merge entre les deux mais ca ne fonctionne pas. Pourriez vous m'aider svp. vous trouverez les fichiers en pièces jointes Merci bcq et bonne soirée DK_1.xlsmDK.xlsx

[Mich1183]

Bonjour,

Tout ce que je souhaite c'est récupérer qu'une plage finale avec une colonne A intacte et à partir de B que des éléments finissant en DK_ et mixant les données des deux feuilles (Step 1 et 2) cités précédemment.

Merci,

[Nain porte koi]

Hello,

pour moi, malgré l'explication supplémentaire, ça reste "pas clair"
Vous pourriez nous montrer un fichier avec le résultat attendu ?

[Mich1183]

Bonjour Nain porte Koi,

Merci pour ton retour, je vais essayer de clarifier au max mon besoin :

Je souhaite garder la colonne A intacte mais avoir toutes les autres cellules des autres colonnes en gardant le bon positionnement avec des valeurs finissant en DK_ majoritairement c'est le cas pour les lignes mais pas pour toutes. Alors premier réflexe:

-Je copie en Step1 nouvelle feuille Ref (plage partagée en ci-dessous) avec la colonne A intacte mais sur la plage B et au déla je garde que les valeurs de cellules qui ne se terminent pas par DK_ et j'essaie de faire une condition : si correspondance entre valeurs cellules plage B et au déla dans Step1 avec les valeurs colonne A de Ref je copie dans Step1 la valeur de la cellule en question mais en la remplacant par sa ligne de Ref et ensuite garder que les DK_ mais un peu compliqué à mon niveau. Merci pour votre aide

NB : Step2 prend Ref mais en gardant que les cellules finissant par DK_ dans la plage B et au déla (j'ai essayé de faire un merge mais ca n'a pas fonctionné)

Vous trouverez en ci-joint un fichier avec le resultat attendu fait manuellement dans l'onglet résultat et les cel qui ne finissent pas par DK_ en jaune dans Feuille 1.DK_res.xlsx
Cordialrement;

[Nain porte koi]

Pas simple, même avec l'exemple, de comprendre... J'ai un trop petit cerval
A priori votre macro devrait fonctionner, mais

lastCol = wsNew.Cells(1, wsNew.Columns.Count).End(xlToRight).Column

ça ça ne va pas. Je suppose que vous vouliez la dernière colonne contenant une donnée, donc c'est plutôt xlToLeft et pas seulement la ligne 1
Cette instruction trouve la dernière cellule de la ligne 1, cad 16384, ça fait un peu ramer
Essayez avec

lastCol = wsNew.UsedRange.Columns.Count

Ca c'est pour commencer, mais comme je n'ai pas les mêmes données dans les fichiers que vous avez fourni avec la macro je ne sais pas aller plus loin
Vous pourriez renvoyer le tout mais avec les données correspondantes svp

[Mich1183]

Bonjour,

Merci pour votre réponses, je vais simplifier encore le fichier en supprimant qlq lignes pour que ca soit plus simple le résultat que je souhaite avoir est dans la feuil2 du fichier (Remplacement des cellules tagés en jaune par leur ligne dans Feuil1) C'est exactement ce qui se passe pour les lignes 12,22,23,24,25
J'essaie de réflechir à un algo plus simple en parallèle. Bonne journée

Cordialement;DK_res.xlsx

[Nain porte koi]

ça n'est pas la simplification qui m'importe, c'est d'arriver à comprendre, et là vous n'avez pas remis la feuille Ref qui, si je ne m'abuse, doit permettre de compléter Step2. Comment puis-je tester s'il manque des, infos/données, macro etc etc ?
En clair, donnez moi tout svp, macro modifié y compris.

[Mich1183]

Très bien, dans ma réflexion, j'ai pensé à ce que Ref garde la totalité des cel celles qui finissent en DK_ et celles qui ne le sont pas , dans Step1 celles dont le suffixe <> DK_ et Step2 les cel qui finissent en DK_ donc j'ai pensé à comparer entre les cellules de Step1 et Ref si correspondance remplacer dans une nouvelle feuille par exemple Result pour contenir les lignes de Ref (ou seuls les DK_ y restent après comparaison avec Step1) et Step2. est ce la bonne démarche ? MerciDK_1.xlsm

[Mich1183]

Hello,

Merci pour votre message, le fichier portant la macro me permetterait d'ouvrir le fichier.xlsx et manipuler les données qu'il y'a à l'intérieur, c'est pour ca le code commence par copier les données ensuite j'essaie de faire les actions comme expliqué sur le sujet c'est à dire garder la colonne 1 intacte et recopier tous les éléments finissant par DK_ dans le résultats final. En ci-joint le fichier de la macro + le fichier.xlsx à ouvrir si vous avez d'autres questions n'hésitez pas. je suis sur une piste je la partagerai si elle fonctionne. Bonne soirée
DK.xlsxDK.xlsxDK_1.xlsm