Macro Copier coller valeur format tri sur 2 lignes av condition Résolu

Question

Bonjour à toute la communauté
Je m'appelle Christiane, retraité, handicapée, 66 ans et n'y connaissant rien du tout en VBA
Je passe 5 à 6 heures par jour à faire des copier coller et tri de données sur Excel 2002.
Je cherche une macro pouvant me faire bénéficier d'un peu de temps libre ce qui à mon age ne serait pas du luxe. Tous vos commentaires sur le sujet me font tourner la tête (cerveau vieillissant, surement) et je ne trouve rien qui corresponde à mes attentes.
Tous les jours que dieu fait, je dois copier coller et trier des valeurs de 120 feuilles à ce jour.
Ces copier coller se font sur une sélection de quelques cellules (8 à 12) et sur 2 lignes.
Je dois exécuter une macro que j'ai tout de même faite avec l'enregistreur de macro, mais celle ci est limité sur la sélection que je lui est faite. J'ai besoin que cette macro s'exécute sur  les 2 lignes que je traite aujourd'hui sans toucher aux 2 lignes précédentes (qu'elles a déjà traitée) et sans toucher aux 2 lignes suivantes(qu'elle traitera le lendemain; et ainsi de suite chaque jour qui passe (rassuré vous, certain jour je ne fais rien, repos).
Je ne vois rien dans cette fenêtre pour ajouter un fichier Word qui expliquerait en détail ma demande, peut-être en ajoutant une image, je vais essayé.  non cela ne fonctionne pas;
Merci à la communauté de votre aide bienveillante.
Je ne suis pas une habituée des forum, ainsi je tâtonne un peu, mais bon, je vais bien y arriver ?
Comment vous poster un fichier joint, merci Christiane

Hourra j'ai trouvé, voici le lien :     https://www.cjoint.com/c/EAvegGBN5Pb

gbinforme · Answer

Bonjour, 

Si tu pouvais nous mettre ton classeur excel, sans éléments personnels, avec la macro réalisée, se serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur  https://www.cjoint.com/ et tu mets ici le lien obtenu.

Christiane3866 · Answer

Bonjour, gbinforme
merci de t'intéresser à ma demande
Sur mon 1er post, j'ai déjà mis un lien concernant mon classeur
j'ai trouvé ce lien sur cjoint.com, ne serait il pas présent dans ce 1er post ?
 Christiane

Gyrus · Answer

Bonjour Christiane3866,

Tu as bien mis un lien vers le fichier Word qui illustre le problème mais tu n'as pas joint le fichier Excel qui permettra de faire des tests.

A+

Christiane3866 · Answer

Bonjour, Gyrus

merci d'intervenir sur ma demande.
Vous (ou tu) voudrais mon classeur excel ? Ok je vais essayer de me débrouiller pour te le mettre en fichier joint. Je dis cela car je viens de découvrir qu'il fallait que je click sur " voir mes discussions suivies" pour apercevoir ton message.
Comme quoi, je découvre les manipulations sur les forums.
Mais bon, c'est une expérience comme une autre

A tout de suite, pour ce fameux classseur
Christiane

Christiane3866 · Answer

Re christiane à Gyrus,
Oups, le lien ne veut pas se copier sur cette fenêtre.
Pourquoi, je ne sais pas. Je fais différentes manipulations, mais pas moyen.

C'est fâcheux.
Sinon le lien est   https://www.cjoint.com/c/EAvr4kOtIDr
J'ai écris le lien avec le clavier
mais j'arrive pas à le coller, je viens de le tester et cela fonctionne tout de même, vous pouvez donc ouvrir le fichier, Ouf c'est rassurant

Gyrus · Answer

La réalisation de cette macro ne me parait pas poser de problème particulier.

Peux-tu me dire pourquoi la ligne de données "Duchesse" de la feuille "Basedonnées" comprend 12 données alors que dans la feuille "Duchesse" on n'en retrouve que 10 ?

A+

Maurice · Answer

bonjour
ta macro copy sur lui meme 
donc ca sert a quoi ?

A+
Maurice

Christiane3866 · Answer

Bonjour ou bonsoir à la communauté
Bonsoir à Gyrus et Maurice

Réponse aux 2 intervenants

Effectivement la base de données comprend 12 cellules, il y a erreur de ma part, 
j'aurais du enlever 2 cellules en feuille "basedonnées", je n'avais pas fait attention. bêtise de ma part impardonnable.
Mon classeur n'est qu'un exemple, Je l'ai fais pour le forum et ne l'ayant pas testé, je ne m'en suis pas aperçu. Je m'aperçois de plus que les chiffres recopier ne correspondent pas. On aurait dû trouver en feuille "Duchesse" les valeurs respectives suivantes une fois triées en ordre décroissant, soit : 22 18 40 5 20 12 4 7 24 54, je suis confondue d'avoir fais une telle erreur, il est vrai que j'ai ajouté cette feuille au dernier moment car je me suis aperçu que certaines feuilles de mon gros classeur comportaient ce type d'arguments.
Cela est à corriger sur le classeur que vous avez, sinon je vous envois un nouveau lien avec les rectifications.
Pour Maurice, le fait de copier coller valeur et (ou) format sur la même plage, supprime les formules de mes plages sélectionnées (Cake à Duchesse) pour n'y faire figurer que les valeurs, ainsi je peux les trier sur les valeurs et non pas sur les formules.

Je suis disponible pour d'autres remarques, en espérant que je n'ai plus d'erreurs dans le classeur;

Christiane

Maurice · Answer

Bonsoir
voila un debut de ta macro si tu veux la modifier

Sub Test()
Application.ScreenUpdating = False
'Sheets("Cake").Select
   Sheets(Feuil2.Name).Select
      Range("C22:J23").Copy
      Range("C22").PasteSpecial xlPasteValues
Range("A23").Select
   Sheets(Feuil3.Name).Select
      Range("C22:J23").Copy
      Range("C22").PasteSpecial xlPasteValues
'
'
Application.CutCopyMode = False
End Sub


bon je vais faire dodo
A+
Maurice

Gyrus · Answer

Bonsoir,

Voici une proposition avec une procédure évènementielle qui se lance automatiquement lorsque tu saisis une date dans la colonne A de la feuille "Cake".
Les opérations que tu as citées sont réalisées par cette procédure.
A tester ....

https://www.cjoint.com/c/EAvw2W8GKG9

A+

Christiane3866 · Answer

Bonsoir Gyrus,

Merci, je vais saisir ton lien et le tester
Je viens de tester le code optimisé de Maurice et à priori cela fonctionne, mais c'est juste un copier coller(valeur) sur lui même.

Je pense que plus tard, il élaborera ce bout de code, car il manque le tri et le plus important, que cette macro s'applique sur mes 2 lignes du jour, puis sur les 2 lignes du lendemain (qui deviendront à leur tour les 2 lignes du jour) sans toucher aux 2 lignes de la veille et encore moins aux 2 lignes suivantes qui contiennent des formules, sinon je les perdrais.

Comment dois-je faire pour poster le code que je viens de tester, et le mettre à l'intention de Maurice pour lui montrer la finalité du code ?
Je fais un copier coller dans l'onglet code de cette fenêtre ?

Christiane

Christiane3866 · Answer

Christiane à Gyrus,

Je viens d'ouvrir ton lien qui représente mon classeur, mais je n'ai rien trouvé de plus que ce qu'il y avait dedans.

Quelles modifications as tu apporté à cette feuille "Cake" ?

Je viens de trouver, je devais cliquer droit sur l'onglet de la feuille et visualiser le code, Woua dur dur j'apprend vite, obligé si on veut suivre, cela me fait du bien de chercher un peu, mais c'est pas evident les manips

A + Christiane,

Gyrus · Answer

As-tu testé le code en saisissant une date en A24 de la feuille "Cake" ?

A+

Christiane3866 · Answer

Christiane à Gyrus,

Non pas encore, j'ai recopier ton code en fichier Word, au cas ou je l'effacerais pas hasard.
En ce moment je suis en train de le lire pour essayer de comprendre chaque expression, mais il est clair qu'il faudra que je cherche quelque part, afin d'insérer dans ton code une description de chaque expression. J'ai envie de comprendre ce fichu code dont je rêve tant d'avoir. Je suis têtue, je prendrais le temps qu'il faut pour le comprendre.
Pour l'instant cela reste indéchiffrable.
Je vais m'amuser, bon je vais essayé de tester ton code que tu as pris soin de m'écrire, A+ Christiane

Gyrus · Answer

Avant de chercher à comprendre le code, il serait bien que fasses l'essai pour t'assurer que cela correspond à ta demande.

Si tel est le cas, je pourrais ensuite apporter des commentaires sur les points qui te paraitront brumeux.

Bon sur ce, je vais me libérer les neurones et faire un gros dodo !
A

Christiane3866 · Answer

Christiane à Gyrus

Pendant que tu étais parti reposer tes neurones, j'ai testé ton code.
Waouuu, C'est ce qu'on appelle un "pu...n" de code.
Je l'ai testé en long, en large, en travers, je l'ai secoué dans tous les sens, il n'a pas bronché d'un poil.
Au début que je l'ai testé, je me suis aperçu qu'il appliquait les couleurs en même temps. J'ai dis "zut", car je ne connais le résultat des points attribué à chaque n° qu'à la fin des (copier coller et tri) d'où j'en détermine 3 numéros à qui j'attribue une couleur. 
Comme tu m'avais prévenu que tu avais basé le lancement de ton code sur la date que j'inscrivais en feuille "Cake", j'ai recommencé le test en supprimant les chiffres que j'inscris manuellement dans mes 3 cases B7, C7, D7 des couleurs, et là cool ton code s'est déroulé sans appliquer les couleurs, et avec un peu de réflexion (il me reste quelques neurones) j'ai supprimé la date en question de la feuille "Cake" et je l'ai inscrite à nouveau, Bingo il me refait la même chose en appliquant les couleurs.
Je m'aperçois que ton code en vraiment génial car je peux recommencer les lignes d'avant au cas ou je me serais trompé et ce simplement en supprimant la date, puis en réécrivant ma base de données et en retapant la date concernée dans la feuille "Cake" absolument fantastique, je m'attendais pas à cela.
Franchement, ton boulot sur ma requête est au delà de mes espérances; tu as du bosser comme un fou furieux.
Et puis je me suis dis qu'il devait y avoir une erreur quelques part, on ne peut pas pondre un code parfait du 1er coup.
Et bien oui, j'ai trouvé l'erreur (que tu as du omettre par inadvertance), elle se trouve dans la feuille "lune" le tri en ordre croissant sur la 1ere ligne de la sélection C22:J22) ne se fait pas.

En conclusion, je ne dois jamais supprimer la feuille "Cake", pas de soucis.
Je vais de ce pas faire un somme et me remettre au boulot demain après midi.

Merci et à bientôt de te relire, je devrais ouvrir une bouteille de champagne pour ce site et des bravos répétés pour les personnes comme toi, qui ose donner un vrai coup de main à des personnes comme moi, vraiment un très grand Merci.
Tu n'imagines pas le bien que cela me fait de savoir que je ne vais plus passer des heures interminables à faire des copier coller tri et applications de couleurs.
L'émotion à été très forte et je suis restée ébahie devant le travail que fait ta macro.

Christiane

Gyrus · Answer

Bonjour,

Bien dormi ?

Je suis heureux que ma proposition te donne satisfaction et je suis sensible à tes remerciements.

J'ai modifié le code pour la prise en compte du tri en ordre croissant sur la 1ere ligne de la sélection C à J de la feuille "lune".

J'ai ajouté des commentaires dans le code pour t'en faciliter la compréhension.

Si tu dois transcrire ce code sur un autre classeur, note bien que j'ai utilisé des plages nommées "CouleurOrange", "CouleurJaune" et "CouleurRose" pour le traitement des couleurs. Il faudra donc que tu crées ces mêmes noms sur l'autre classeur.

Je n'ai pas traité la colonne B car je ne sais pas comment tu utilises cette indication.

Bon courage !

https://www.cjoint.com/c/EAwjFW7bF6t

A+

Maurice · Answer

bonjour

Voila une macro qui travail sur toutes les onglets

http://cjoint.com/?3AwmxNPkdji 

A+
Maurice

Christiane3866 · Answer

Bonjour à Gyrus et Maurice
Je viens de me connecter au site et prend note de vos commentaires.
Je vais télécharger vos liens et regarder cela de près.

NB : j'ai testé le code sur une copie conforme du classeur et le code bloque sur la 11eme ligne du code en partant du bas : 
If Cel.Value = Sheets("Basedonnées").Range("CouleurOrange") Then

Intéressant, non ?

Je suppose que c'est un problème de transposition d'un classeur à un autre même si celui-ci est identique

Christiane

Christiane3866 · Answer

Christiane à Gyrus

La colonne B ne me sert à rien, je l'ai ajouté au cas ou vous voudriez vous en servir pour adapter une condition dans la macro

Christiane3866 · Answer

Christiane à Maurice,

Test de ta macro,
Ouverture du classeur dans Excel
J'inscris la date en face des lignes du jour à traiter, Ok mes colonnes se remplissent avec les formules inscrites dans les cellules, et là je vois le bouton "macro" sur la feuille "Basedonnées", j'hésite et finalement je clic dessus.
Ta macro vient d'effectuer les copier coller(valeur), les tris voulus.
En regardant chaque onglet, je m'aperçois que l'onglet DUCHESSE n'a pas été traité entièrement, les 2 dernières cellules de la sélection présentent toujours les formules, et toujours sur ce même onglet les données de la 1ere selection situées en col C à L ne se recopie pas dans les col N à W.
Je teste à nouveau ta macro en ouvrant Outil, Macro, Macro et en exécutant chacune des 4 macros y figurant, résultat identique au 1er test.

Je continue à tester ta macro en écrivant une nouvelle date sur les 2 lignes à traiter suivantes, et là, rien ne se passe, mais alors rien du tout.

Ta macro est très différente de celle de Gyrus, mais interessante aussi.
Son avantage : ta macro ne s'éxécute que lorsque je clic sur le bouton macro dans l'onglet "Basedonnées", ce qui me permet lorsque j'incris la date de vérifier parfois de temps à autre si tout se remplit bien, des fois que j'aurais oublié de faire un copie incrémenter vers le bas de toutes mes cellules comportant une formule.
En effet, je remplir mon classeur que d'une cinquantaine de lignes à chaque fois, afin d'éviter de trop surcharger la mémoire ram.

Merci pour cette macro, qui demande quelques modifications, mais bon, ton travail mérite d'être souligné et je te concède néanmoins un verre de champagne, la bouteille sera pour plus tard.

A+ Christiane

Gyrus · Answer

Bonjour Christiane,

Question : Peut on intégrer les conditions de tris dans la macro existante ? 
Je suis sur le coup. Je regarde les adaptations du code pour prendre en compte les différentes conditions de tri. Je te tiens au courant dès que je parviens à le finaliser. 

Pour éviter que les formules du style =Si(Ax>0;basedonnées!$C$19;"") renvoient la valeur "0",. Ce zéro me gène un peu dans certaines de mes feuilles.
Il faudrait que tu m'en dises plus. Dans le classeur exemple, je ne vois pas le cas où cette formule renvoie la valeur 0.

Question subsidiaire : Quel est l'intérêt d'écrire ton code dans une feuille, plutôt que dans un module normal en passant par Outil-Macro-Nouvelle macro ? 
J'utilise la procédure évènementielle Worksheet.Change() qui se lance lorsqu'une modification de cellule de la feuille est détectée. Cette procédure doit être écrite dans le module de la feuille.
	
Curieuse comme je suis, je me suis posée la question sur le nom "Gyrus". 
Cela à t'il quelque chose à voir avec le cortex cérébrale, et plus précisément les plis du cerveau ? Tu n'es évidement pas obligé de répondre, cela peut être d'ordre privé. 
Tu peux aussi penser que cela fait référence au terme latin "Gyrus" ... ou que c'est une contraction de gymnastique russe ... ou que c'est un pseudo sans signification particulière. Comme je suis ouvert, je vais te laisser choisir (ça énerve, hein ?).

 A+

Christiane3866 · Answer

Bonjour Gyrus,

Or, je ne vois aucune donnée à copier dans cette feuille du classeur que tu m'as transmis.

C'est exact, aucune donnée n'est fourni dans feuille "Basedonnées".
Chaque 1er tableau de chaque feuille reçoit des données par le biais de mon 1er classeur. Le classeur que tu as en main comporte normalement une liaison avec mon 1er classeur (les formules n'apparaissent pas dans le classeur que tu as).
Lorsque le 1er tableau de chaque feuille est renseigné, les données doivent être copiées en valeurs(format) dans les 4 tableaux qui suivent, puis triées selon les critères c1, c2, d1, d2 et r.

Si tu as besoin que je renseigne chaque libellé de la feuille "Basedonnées", cela est tout à fait possible, mais il faudrait alors que j'insère une ligne supplémentaire car les données son sur 2 lignes. Et à partir de la feuille "Basedonnées" on devrait alors remplir les 5 tableaux au lieu des 4 précédemment. 
Si tu veux que je refasse mon tableau, aucun problème, et je referai un poste.
Je pense que je devrai également faire apparaître 4 colonnes avant le 1er tableau.

Et finalement, je devrai également décaler la colonne "R" de feuille "Basedonnées" pour insérer les 18 colonnes (au lieu des 15 actuellement et que tu as sur ton classeur), car chaque tableau comporte des plages de 18 colonnes. J'ai mis 18 colonnes car parfois il arrive que ces 18 cellules soit renseignées. Vu que ta macro travaille d'une façon très précise, il m'a paru judicieux de les insérer pour être tranquille. 

Pour la feuille nommé "123910" il est possible de la supprimer ou de ne pas la traiter en ne faisant pas apparaître son libellé en feuille "Basedonnées". Car si je comprends bien ta macro travaille en se référent à cette feuille, ce qui suppose que si cette feuille"123910" n'apparaît pas dans "basedonnées" malgré qu'elle soit encore présente (mais cette fois à la fin du classeur), la macro ne la prendra pas en compte.
Je note que cette feuille "123910" comporte 2 tableaux, mais que le 2eme tableau effectivement comportant 23 cellules ne subit aucun traitement. Seul le 1er tableau qui lui comporte 18 cellules subi un traitement. En fait le 2eme tableau renseigne le 1er tableau. Ce 2eme tableau comporte donc des liaisons avec mon 1er classeur. Cela n'apparait pas dans le classeur que tu as. 

Dans tout les cas, tu décides au mieux. Cela dit je vais commencer à préparer la feuille "Basedonnées" au cas ou tu déciderais que je renseigne les 18 cellules placées devant chaque libellé en espérant que le fait d'insérer une ligne supplémentaire à chaque libellé (cité1à8, cité1, cité2 etc) ne gène pas pour ta macro.

Je remarque (oubli de ma part) que la feuille "RécapCité" présente aussi une particularité. Elle peut également être virée ou non traitée.

A+ Christiane

Macro Copier coller valeur format tri sur 2 lignes av condition

23 réponses

Discussions similaires

Newsletters