copier lignes ayant même référence dans deux classeurs Résolu/Fermé

Question

Bonjour à tous,

Je n'arrive pas à trouver de solution à mon problème, alors je fais appel aux pro !

J'ai deux fichiers : "Extraction" dans lequel j'ai un tableau de données et "fiche automatique" où lorsque je remplis une cellule avec un code "M" les informations s'y rapportant (venant du fichier "extraction") apparaissent.

Lorsque pour un code "M", il y a plusieurs variantes, donc plusieurs lignes, je n'arrive pas à les extraire toutes et à les placer comme je le souhaite.

Voici un exemple de mes deux fichiers (j'ai également des contraintes sur certaines colonnes, expliquées dans le fichier "fiche automatique")

Merci beaucoup de votre aide !!

EXTRACTION :  https://www.cjoint.com/?0GDqx79quVn
FICHE AUTOMATIQUE  :  https://www.cjoint.com/?0GDqzd4xoje

Le Pingou · Answer

Bonjour,
Correspondance entre le tableau et les résultats à obtenir sur la fiche introuvable selon le critère [M].... !
Que comprendre... ?
Note : si plus de un fichier, il est préférable de mettre les mettre dans un ZIP et vous mettez le fichier ZIP sur cjoint ... !
 
Salutations.
Le Pingou

Stridou... · Answer

Bonjour !

C'est à dire introuvable selon le critère M ?

En fait, lorsque je rentre en cellule G6 "37749" par exemple, 
C6 affiche alors : M / N
C7 affiche : U
C20 affiche : RUTH
C22 affiche : 158
G20 affiche : PAL
G22 affiche : 173

Merci de votre aide !

PS : pour le ZIP c'est noté pour la prochaine fois !

Le Pingou · Answer

Bonjour,
Merci pour les précisions.
Donc, le code en colonne [M] peut se répéter plusieurs fois d'où ma question : est-ce que la disposition des plages  [RCF+, RCF2,....] est fixe .... ?

Stridou... · Answer

Bonjour, 


Malheureusement je ne peux pas toucher à la disposition de "fiche automatique".
J'ai pensé à la solution d'ouvrir une nouvelle feuille dans "fiche automatique" où toutes les lignes de mon code "M" (par exemple 37749) seraient extraites, puis répartir les bonnes informations sur la feuille 1 dans la bonne disposition (les lignes pourraient être reconnaissables par une lettre A,B,C,D en première colonne par exemple).
Mais je n'y arrive pas !

Le Pingou · Answer

Bonjour,
Merci pour l'information. 
Dans  ce cas je pense qu'il faut le réaliser avec une procédure VBA (macro).

Pouvez-vous encore m'indiquer le nombre  code [M] identique possible ?

Stridou... · Answer

Bonjour,

C'est vraiment très aléatoire, je dirais pas plus de 100 pour être large (ce qui est déjà rare) car un "M" peut être décliné en plusieurs "T" et plusieurs "CLR"

Stridou... · Answer

Voici un exemple de ce que j'imaginais dans mon précédent message (sur la feuille 2)

https://www.cjoint.com/?0GEq7Nf7290

Le Pingou · Answer

Bonjour,
Merci. Une proposition selon ce que j'ai compris d'ici demain matin... !

Stridou... · Answer

Merci beaucoup !  c'est très gentil !

Stridou... · Answer

Excusez moi, je me suis rendu compte que dans mon premier fichier, toutes les contraintes n'étaient pas inscrites (case bleue)

https://www.cjoint.com/?0GEthAnsgE9

Le Pingou · Answer

Bonjour,
Je vous laisse découvrir ma proposition : https://www.cjoint.com/?3GExVYm5EXG
Il vous suffit d'entrer votre choix en [G6]
Note : les 2 classeurs doivent être ouverts... !
Merci de votre réponse.
Je n'ai pas pris en compte votre dernier message....!

Stridou... · Answer

Merci beaucoup !! ça marche !

Comment je peux faire pour qu'il ne me ressorte que les RMF différents, les T différents, et les CLR différents
afin d'éviter quelque chose comme 
T : U / U / U  et afficher seulement T : U   (idem RMF)
et en C22 : 100  G22 : 100    C35 : 100   G35 : 100 mais qu'il me sorte uniquement les CLR différents avec leur RCF correspondant

Stridou... · Answer

Il y a quelque chose que je ne comprends pas sur les cases jaunes et oranges.
Les premières sont remplies par un code (normal, parfait!), mais les deux suivantes affichent 0 et les  suivantes affichent #REF!. Comment faire pour afficher une case vide au lieu de #REF! (j'ai réussi à afficher vide au lieu de 0 !!ahah!!)

Stridou... · Answer

Autre question : j'essaie d'adapter le classeur à ma réelle feuille, mais je ne trouve pas la case "pla_chx" !

Le Pingou · Answer

Bonjour,
Apparemment vous avez précisez le choix selon le code [M] donc un seul critère.  Ce qui donne autant de plage (A 20 :D32 soit un bloc : 13 lignes sur 4 colonnes) qu'il y a de ligne identique pour un code.
Eh bien, je n'arrive pas à comprendre ce que vous voulez comme résultats dans le classeur [Fiche_automatique] alors vous prenez un exemple et sur chaque résultat qui n'est pas correct vous expliquez ce qu'il devrait y avoir .... ! 
Salutations.
Le Pingou

Stridou... · Answer

Voici deux exemples avec les mauvais et les bons résultats

https://www.cjoint.com/?0GFrIYSN7P9 

pour les cases oranges et jaunes :
- seuls les CLR différents doivent sortir ; les RCF associés s'affichent
- le marquage #REF! doit partir

pour les cases vertes : 
- seuls les RMF différents doivent sortir
- seuls les T différents doivent sortir 

Merci encore de votre aide !

PS : pas besoin de "pla_chx", je me suis débrouillée autrement

Stridou... · Answer

En fait, je voulais copier la macro sur un autre fichier, mais finalement j'ai ramené le reste de l'autre fichier sur le votre, beaucoup plus simple !

Le Pingou · Answer

Bonjour,
Merci pour les 4 fichiers.

Toutefois ou se trouve le fichier source qui sert à générer la liste selon choix.... ?

Pourquoi dans la cellule [G7] vous avez remplacé la formule par la valeur 100 ......

Le Pingou · Answer

Bonjour,
En relisant vos messages et déchiffrant les 4 classeurs exemple, j'en déduis que :
Pour un code [M] de 1 à plusieurs lignes :
1.- liste concaténer sans doublons des valeurs [RMF] ; idem pour valeurs [T]
2.- liste sans doublons valeurs [RCF : CLR] avec affichage par bloc ... !
Est-ce bien cela ?

Le Pingou · Answer

Bonsoir,
En attendant les réponses...!
Voici la version selon vos dernières explications, enfin selon ce que j'ai compris.
Le fichier : https://www.cjoint.com/?3HbaetkEKuS

Stridou... · Answer

C'est parfait ! Je suis entrain de l'adapter à mon fichier complet, mais j'ai du mal avec les cases jaunes. j'ai pourtant copié la macro.. En fait, les colonnes du "RCF:CLR sans doublon" ne se remplissent pas... (les cases vertes sont OK!)

Le Pingou · Answer

Bonjour,
j'ai pourtant copié la macro..
Mais il y a plus que une macro et aussi la plage [AA :AH],......et les plages nommées...¨
Pouvez-vous expliquer exactement votre marche à suivre... ?

Stridou... · Answer

J'ai copié également les plages AA:AH et la formule en AH2

Le Pingou · Answer

Bonjour,
Eh bien, elle est courte cette explication ...... et le reste... comme le bonj.... nous ne sommes pas dans le même bureau ......!
Dans le fichier joint vous trouvez les images des objets qui doivent être retranscrits sur votre classeur. Le fichier : https://www.cjoint.com/?3HbpIQZo2T4
Note : j'ai adapté les formules des plages vertes par soucis de cohérences avec les jaunes/oranges.

Stridou... · Answer

Bonjour,
oui c'est vrai vous avez raison, excusez moi, à force de s'écrire j'ai pris de mauvaises habitudes !
Je dois mettre ce fichier sur mon réseau, et donc changer les chemins par exemple. Et puis c'est un fichier où j'ai d'autres informations, pour cette dernière partie j'avais donc décidé de couper/coller uniquement les nouvelles formules et codes, j'ai réussi pour les cases vertes, mais les jaunes me posaient un peu plus de soucis et je n'arrivais pas à comprendre ce qu'il me manquait.

Le Pingou · Answer

Bonjour,
Merci. Est-ce que la dernière version et les images vous permette de résoudre le problème...?

Stridou... · Answer

Bonsoir,

Il y a toujours le tableau RCF:CLR qui ne s'affiche que lorsque je vais dans "macro" et que j'active la macro SansDoublonRCF... ça ne marche pas en continu. A chaque fois que je tape un code, je dois activer la macro pour que le tableau se remplisse.
Merci encore ! c'est le dernier détail, tout le reste est parfait !

Le Pingou · Answer

Bonjour,
Contrôler que vous avez bien copié les 3 procédures qui se trouvent dans le classeur [Stridou_ccm_fiche_automatique_v02/ou 03.xlsm]..
Dans [Sub Filtrer_choix()] vous devriez avoir vers la fin :
Set shs0 = NothingSansDoublonRCF_CLRApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueEnd Sub

Stridou... · Answer

Bonjour,

J'espère que vous avez passé un bon week end !

J'ai bien fait attention à tout copier, voici un fichier avec des impressions écrans pour vous montrer mon problème
image 1 : ce qui s'affiche
image 2 : mon copier/coller macro
image 3 : mon gestionnaire des noms

Merci encore !

Stridou... · Answer

oups !

https://www.cjoint.com/?0HemuBkYTe9

Le Pingou · Answer

Bonjour, 
Je vous avais mentionné ceci :
Contrôler que vous avez bien copié les 3 procédures qui se trouvent dans le classeur [Stridou_ccm_fiche_automatique_v02/ou 03.xlsm].. 
Dans [Sub Filtrer_choix()] vous devriez avoir vers la fin : 
Set shs0 = NothingSansDoublonRCF_CLRApplication.EnableEvents = TrueApplication.ScreenUpdating = TrueEnd Sub
 Je constate que ce n'est pas fait car il manque la ligne de code suivante :
SansDoublonRCF_CLR

Stridou... · Answer

Bonjour,

Vous avez raison, ça marche maintenant. merci beaucoup, c'est parfait!
C'est vraiment très gentil, je vais gagner du temps maintenant et éviter les erreurs de saisie.

Par curiosité, quelle est l'application/code qui permet d'exécuter une macro automatiquement ?

Stridou... · Answer

Bonjour,

En utilisant le nouveau fichier, il y a quelque chose que je ne comprends pas : pourquoi si dans liste selon choix_CLR il y a"00100" après dans RCF:CLR sans doublon_CLR il y a "100" et du coup dans mes cases jaunes aussi "100" ?

Le Pingou · Answer

Bonjour,
Merci, content pour vous que cela fonctionne.
Concernant l'exécution de la macro j'ai utilisé une procédure événementielle qui s'exécute chaque fois que l'événement Change se produit pour l'objet, dans notre cas il suffit d'entrer une valeur dans la cellule [G6] et la procédure se met en route automatiquement.
La procédure se trouve sur le module de  feuiille [Feuil1] : nommée [Private Sub Worksheet_Change(ByVal Target As Range)].

Note : Pour le dernier message, pouvez-vous me transmettre une copie d'écran... ?
 
 
Salutations.
Le Pingou

Stridou... · Answer

Bonsoir,

Voici une copie écran 

https://www.cjoint.com/?0HesWKsqyEa  

J'ai repéré un problème au démarrage de ma feuille, je vous ai également fait une copie écran : Lorsque j'ouvre ma feuille et que je clique sur "activer le contenu" mes informations disparaissent. Est-il possible que, comme certaines de mes cases ayant une formule "recherchev", les cases se modifient uniquement si la valeur en G6 change ?

Merci !

Le Pingou · Answer

Bonjour,
Eh bien c'est ce que je pensais ; vous avez des nombres sous forme texte dans la colonne [CLR] et comme dans votre exemple il n'y a que des nombres, je l'ai traité de la même manière pour [RCF:CLR sans doublon] donc un format nombre.
Dite-moi ce qui est juste pour vous [CLR] comme texte ou nombre (contrôler une fois ce que vous pouvez avoir dans la colonne correspondante du classeur [Extraction...]) ...... !
Concernant le deuxième problème : je vois quand [G6] il y a la valeur 27893 et après fermeture et réouverture il y a 37777 ce qui est faut il devrait avoir la même.
Pouvez-vous me faire parvenir ce fichier qui pose problème ?

Le Pingou · Answer

Bonjour,
Concernant le problème [CLR] merci de mettre le format [Texte] pour les colonnes [AE] et [AG] et tout va rentrer dans l'ordre

Pour l'autre problème j'attend le fichier...!

Stridou... · Answer

Bonjour,

Pour chaque code en G, j'enregistre un fichier à son nom (exemple fichier27893, fichier 37777 ...).
Ces fichiers peuvent être consultés sans ouverture du fichier extraction.
Voici un aperçu de ce qu'il se passe 
image1 : fichier avant fermeture
image 2 : fichier à la réouverture
image 3 : fichier après mise à jour

https://www.cjoint.com/?0Hfkq5bdioQ

Stridou... · Answer

Bonjour, 

J'ai mis en texte et tout est rentré dans l'ordre !
Merci !

Le Pingou · Answer

Bonjour,
Merci pour le message.
Le message précédent:
Ce qui ressort de votre extrait d'mage correspond toujours au même classeur [Stridou_ccm_automatique_v02] ce qui est différent de : j'enregistre un fichier à son nom (exemple fichier27893, fichier 37777 ...).
Concerne : Pour chaque code en G, j'enregistre un fichier à son nom (exemple fichier27893, fichier 37777 ...).
Pour quel raison ....   En avez-vous besoin comme archive ou c'est juste pour ne pas ouvrir le fichier [Extraction] !

Le Pingou · Answer

Bonjour,
J'ai compris ou le chat à mal à la patte : merci de remplacer la formule en [G6] :
=NB.SI('C:\.....\....\.....\[Stridou_ccm_extraction.xlsm]Feuil1'!$A:$A;G6)Par celle-ci
=NB.SI(AA:AA;G6)
Le problème avait-été corrigé dans la version [Stridou_ccm_automatique_v03], j'ai oublié de vous le signaler.

Stridou... · Answer

Bonjour,

Un code en G pourrait représenter une référence de stylo par exemple, qui aurait plusieurs tailles et plusieurs coloris. Et je crée une fiche par référence. Ce qui me permet d'avoir une sorte de fiche récapitulative des déclinaisons de chaque référence. Cette fiche peut être ouverte par d'autres personnes seulement en lecture seule.

Sur mes images je n'ai pas encore changé le nom du fichier. C'était un exemple pour vous montrer les réactions du fichier.

Merci !

Le Pingou · Answer

Bonjour,
Merci pour l'information.
Je suppose que vous avez modifié la formule en [G6] et que c'est bon  maintenant... !
Petite remarque, si vous enregistrez la feuille du classeur d'origine comme nouveau classeur vous avez la procédure et les fonctions qui le sont aussi. Ce qui veut dire que si la personne modifie la cellule [G6] le code va s'exécutera et provoquera une erreur. Essayez donc pour voir.
Si ce n'est qu'une fiche consultable en lecture, pourquoi ne pas en faire une copie (uniquement les valeurs) et l'insérer dans un classeur à cet effet.

Stridou... · Answer

Bonjour, 

Vous voulez parler de la case G7 non ? j'ai également changé la formule de la case S31 c'est bon aussi ?

Le Pingou · Answer

Bonjour,
Oui c'est bien en [G7] de plus la [S31] peut être supprimé sans autre (c'était un test pour moi )

Stridou... · Answer

Bonjour, 

Je suis désolée, il semblerait que je reçoive vos messages en différés !
Je parlais de la case G7 et S31 pour le changement de formule.

Je ne fais pas de copie valeur car je suis amenée à modifier la fiche régulièrement et donc c'est plus simple pour moi !

Sinon je peux éventuellement bloquer les cellules lorsque le fichier est en lecture seule ? De ce fait, il ne pourra pas y avoir de bug hormis si c'est moi qui le créé ! (quand je serais hors lecture seule!)

Le Pingou · Answer

Bonjour,
Alors restons comme cela.
Je confirmes la formule en [G7] : =NB.SI(AA:AA;G6)
par contre [S31] est vide (formule à supprimer).

Stridou... · Answer

Bonjour,

Je fais des tests sur le fichier, et il marche très bien ! c'est vraiment super ! Merci beaucoup de votre aide !

Stridou... · Answer

Bonjour,

Après plusieurs tests sur le nouveau fichier, je me suis rendu compte que je devais ajouter des cases. 
J'ai donc copié les formules, mais mon problème des 0 et des #REF! qui s'affichent revient.
Le problème a été résolu plus haut, mais le fichier n'existe plus et je n'arrive pas à repérer l'action qui a été effectuée. 
Que dois-je modifier ?
Pouvez-vous m'aider une nouvelle fois?!

Voici un visuel

https://www.cjoint.com/?0IbpxQe8NGi 

Merci beaucoup !

Le Pingou · Answer

Bonjour,
Oui je vais regarder votre fichier mais pas de suite, patience.
Petite précision : vous faites référence au classeur [Stridou_ccm_fiche_automatique_v02.1.xlsm] et l'ajout depuis la ligne 85 à 279    Oui / Non .... ?
 
 
Salutations.
Le Pingou

Stridou... · Answer

Bonjour !

Merci beaucoup !

Le Pingou · Answer

Bonjour,
Eh bien, dans la fonction par exemple [=SI($AH$2>2;INDEX(col_clr;1+32);"") vous avez oublié d'incrémenter la valeur de référence de la première condition qui doit-être la même que celle de la valeur si Vrai soit dans ce cas 32 ...[=SI($AH$2>32;INDEX(col_clr;1+32);"")].
Je l'ai réalisée pour l'ensemble du fichier en plus de la mise en forme de couleur.
Votre fichier : https://www.cjoint.com/?3IbrVbKo3iu

Copier lignes ayant même référence dans deux classeurs

52 réponses

Discussions similaires