Sélectionner/coller ligne en fonction cellule dans ligne

Question

Comme beaucoup de personne sur ce forum, je me suis lancé récemment dans la magnifique aventure qu'est le visual basic. Comme beaucoup j'ai cherché partout et comme beaucoup j'ai cru trouver la réponse, mais il me manque un piti quelque chose. Je vous explique mon problème : Je travaille à l'aide d'un tableau excel. Dans les lignes de ce tableau sont contenu des informations et des actions à mener. Pour me simplifier la tâche, j'ai essayé de programmer un code me permettant, tout en ayant précedemment signalé les lignes importantes du dit tableau à l'aide d'un "!" dans la colonne finale, copier ces lignes et les coller sur la première feuille de mon classeur. Je voudrais ainsi pouvoir tout les soirs signaler par un "!" les tâches à effectuer le lendemain et ainsi tout les matins activer la macro pour voir apparaître devant mes yeux ravis mon travail pour la journée. Il faudrait donc que les lignes collées puissent s'organiser sans se superposer malgrès leur différent lieu de provenance. Pour répondre à la fonction : copier/coller ligne en fonction du contenu d'une cellule j'ai codé cela ( un exemple) : Sub test_1() Dim i As Integer For i = 1 To 200 If Cells(i, 10).Text = "!" Then Rows(i).Select Selection.Copy Sheets("feuil2").Activate Rows(i).Select Selection.PasteSpecial End If Next i End Sub Le problème c'est que ce code ne renvoi que la première ligne comprenant un "!". Je pensais que la fonction For était la solution mais j'ai du me tromper quelque part. Auriez vous une solution ? Ensuite pour ce qui est de la fonction : organiser les lignes sur la première page de mon classeur sans qu'elles ne se chevauchent malgrès leur provenance de différent page de mon classeur ... bah la je patauge complet, je n'ai rien codé d'efficace. Auriez vous des pistes sur ça ? J'AIMERAI VRAIMENT REUSSIR CE CODE PAR MOI MEME : ainsi si vous pouviez me donner des pistes (fonction à utiliser, ligne où il y a une erreur, type d'erreur, etc) au lieu de me donner un code tout fait cela serait vraiment génial. Si possible je posterai régulièrement mes avancées sur ce projet donc n'hésitez pas à venir commenter, aider si vous avez le temps. Mesdames, messieurs, merci de votre disponibilité et de la mise à disposotion de vos connaissances. Bonne journée à vous. Alexis Az...

Yvouille · Answer

Ton code ressemble énormément à un tout premier code Je pense que d’ici quelques mois tu riras bien en le revoyant. Si tu ne désires qu’une toute première piste, je peux déjà te dire que tu dois revenir de temps en temps sur ta Feui1, selon la modification ci-dessous (nouvelle instruction Sheets("feuil1").Activate ). Mais bien entendu que ce va-et-vient entre les feuilles 1 et 2 est parfaitement inutile. Cordialement. Sub test_1() Dim i As Integer For i = 1 To 200 If Cells(i, 10).Text = "!" Then Rows(i).Select Selection.Copy Sheets("feuil2").Activate Rows(i).Select Selection.PasteSpecial Sheets("feuil1").Activate End If Next i End Sub NB : La prochaine fois fournis-nous un fichier exemple. NB bis: Tu apprendrais également beaucoup si tu demandais à une autre personne comme elle traiterait le problème. Enfin, c'est comme cela que j'ai appris moi le peu que je sais Amicalement...

Yvouille · Answer

Pour moi on peut sans problème se tutoyer, c’est un Forum, après tout. Si tu apprends le langage VBA, je ne pense pas que tu serais malhonnête en récupérant des codes créés par d’autres ; je le fais tous les jours et une fois par semaine quelqu’un profite de l’un de mes codes. Où est le problème ? J’avais préparé un fichier en attendant que tu me montres le tien. Comme ils se ressemblent beaucoup, je te montre le mien (il contient déjà un bout de macro). Tu peux copier, couper, supprimer des plages sans les sélectionner. Donc au lieu d’écrire Rows(i).Select Selection.Copy Tu peux raccourcir ainsi Rows(i).Copy Tu peux copier une plage et la copier sur la même ligne d’instruction en précisant la destination de cette manière, sans devoir – s’il s’agit d’une autre feuille – activer cette feuille. Rows(i).Copy Destination:=Sheets("feuil2").Range("A1") Comme l’instruction Destination:= est facultative, la ligne ci-dessous fait le même travail Rows(i).Copy Sheets("feuil2").Range("A1") En utilisant la même variable i pour trouver les lignes à copier-coller et pour les coller sur la Feuil2, tu places tes lignes sur la Feuil2 avec des lignes vides inutiles entre deux. Je te montre une manière de résoudre ce problème à l’aide d’une autre variable Compteur (nom choisi au hasard). Si tu ne laisses pas ton code aligné sur la gauche, mais que tu effectues des tabulations pour chaque groupe d’instructions, tu vois mieux ce qui va avec quoi. Dans la macro ci-dessous, tu vois aisément que For va avec Next, que If va avec End If, etc. Dans mon code, au lieu de placer une nouvelle sélection à la suite d’une autre déjà en place, j’efface à chaque fois les anciennes lignes avec l’instruction Sheets("feuil2").Range("A1:J" & Rows.Count).ClearContents (sans sélectionner cette feuille). Il y a bien entendu d’autres choses qui pourraient être améliorées, mais allons-y gentiment. Sub test_1() Dim i As Integer, Compteur As Integer Application.ScreenUpdating = False Sheets("feuil2").Range("A1:J" &amp; Rows.Count).ClearContents For i = 1 To Range("A" &amp; Rows.Count).End(xlUp).Row If Cells(i, 10).Text = "!" Then Compteur = Compteur + 1 Rows(i).Copy Destination:=Sheets("feuil2").Range("A" &amp; Compteur) End If Next i Sheets("feuil2").Select End Sub J’ai regardé un peu ton code et je ne sais pas du tout si l’on pourrait utiliser tes instructions pour ton besoin. Je te propose alors de déjà travailler avec des instructions qui fonctionnent et de voir par la suite, d'ici quelques mois, ces autres instructions spéciales (ou peut-être absolument incorrectes). A te relire...

Yvouille · Answer

Re,

Je n’ai rien pris mal du tout, la preuve c’est que la première fois j’ai accepté de ne te fournir que le tout petit bout d’explication demandé alors que j’aurais pu ne pas te répondre du tout

Maintenant c’est très difficile de t’aider sur la base du fichier que tu me fournis. Tout d’abord car tu n’as placé aucune données-exemple sur tes feuilles et que l’on ne peut pas comprendre en quoi consiste ton travail. Ensuite tu n’as pas placé de bouton sur une de tes feuilles et que je ne sais donc pas logiquement quelle est la feuille de départ, celle concernée par certaines de tes références dans le code.

Par exemple est-ce que ton instruction Range("B" & Rows.Count).End(xlDown).Rows se rapporte à la feuille ‘Importants’, à la feuille ‘Usine 1’ ou ‘Usine 2’ ??

Ce que je peux déjà te dire sur la base de ce que j’ai à disposition :

Tu effectues une boucle de 1 à 6 et tu actives à chaque fois une feuille portant l’un de ces numéros. Comme ton fichier ne comporte que 3 feuilles, au 4ème passage, ça bloque.

Tu pourrais contourner le problème en effectuant ta boucle sur le nombre de feuilles contenues dans le fichier en les comptants à l’aide de l’instruction sheets.count. Ca donnerait un tel code : For changement_page = 1 To Sheets.Count. Mais est-ce que cette activation de chaque feuille l’une après l’autre est vraiment utile ?

Et avec un tel code, tu effectues les mêmes opérations sur toutes les feuilles ; ne devrais-tu pas effectuer des opérations différentes selon les feuilles concernées ?

Ton instruction Range("B" & Rows.Count).End(xlDown).Rows comporte un s de trop tout à la fin. Tu recherches UNE ligne particulière et non pas plusieurs. De plus, comme tu ne précises pas sur quelle feuille il faut appliquer ton code, je présume que si tu corriges ce s final et que tu lances à nouveau le code, ça va rechercher sur une feuille imprécise. A voir plus tard, lorsque l’on sera un peu plus avancé.

Ton instruction Range("B" & Rows.Count).End(xlDown).Rows actuelle ne trouvant jamais de valeur (et pour cause) ; tu effectues donc pour l’instant tes boules For i de 1 à 0 (!!) et ça ne passe jamais par le code au centre de ta boucle.

Pour plus d’aide, merci alors de me fournir un fichier un peu plus explicite (3 ou 4 lignes exemples par feuille concernée suffisent amplement) et précise moi en deux mots le résultat désiré.

A propos, connais-tu le mode pas-à-pas ?

A te relire.

Yvouille · Answer

Re,

Je t’ai conseillé de ne pas effectuer les mêmes opérations sur toutes les feuilles (d’après moi ce n’est pas une bonne idée de passer en revue la feuille ‘Importants’ de la même manière que les autres) et tu me réponds que ‘basiquement l'action à reproduire est la même peu importe la feuille seléctionnée’. Je prends note que mon conseil ne t’intéresse pas trop et effectivement que pour ce fichier précisément, ça n’a aucune importance, la feuille ‘Importants’ étant par hasard vide lorsque tu la visite par ton code et que tu tentes d’y effectuer les mêmes actions que sur tes autres feuilles.

Mais la prochaine fois que tu auras un gros problème dans une situation similaire, rappelle-toi du conseil que t’avais donné Yvouille en juillet 2014.

Je suis un peu surpris que tu m’expliques ton code en détail, alors que je t’en ai fourni une copie corrigée hier soir ; je pense donc avoir compris ce qu’il faisait.

Je te demandais plutôt une explication sur ton fichier Excel puisqu’il était vide et là je comprends un peu mieux sur la base du nouveau fichier reçu.

Ton fichier a quand même un sacré problème ; il s’agit des cellules fusionnées. Ces cellules fusionnées sont du poison pour Excel en général et pour VBA en particulier et elles sont à éviter au maximum. Il y a 36 manières différentes de les éviter. Il y a également des solutions VBA aux problèmes de cellules fusionnées, mais pourquoi se compliquer la vie pour rien ?

En l’état actuel, j’ai à nouveau modifié ton code et j’y ai mis quelques commentaires dont je te laisse prendre connaissance. Afin que ce soit plus facile à t’expliquer quelques détails, j’ai également mis des données spécifiques sur tes feuilles, dans les colonnes D, E et R.

Tout d’abord, je n’ai pas compris pourquoi tu as placé un ! sur la ligne 8 de la feuille ‘Usine 1’. Mais bon, cette ligne vide est reportée, y compris sa mise en forme.

Ensuite, à cause du signe ! placé en S14 de la feuille ‘Usine 1’, la ligne 14 de cette feuille est reportée. Mais comme par exemple la cellule D14 est fusionnée avec la cellule D13, tu as l’impression que le texte ‘Usine1 D13’ sera reporté alors qu’il en sera rien. Idem pour toutes les colonnes A à H et J de cette ligne.

Quant au signe ! placé en S15 de la feuille ‘Usine 1’, il ne permet que le report du texte de la colonne R, tout le reste reporté étant des cellules vides.

Ton fichier est aussi assez mal foutu dans ce sens que les pages des usines n’ont pas une structure identique, ce qui complique toujours beaucoup les choses.

Autre problème : Tu élimines à chaque fois le contenu de la feuille ‘Importants’ mais pas sa mise en forme. Donc si une fois tu reportes 100 lignes avec des mises en forme spéciales et que la fois d’après tu n’en reportes que 50, tu auras 50 lignes vides vers le bas avec des couleurs de fonds et des bordures inutiles. Il y a 36 solutions pour cela, mais on ne peut pas tout faire à la fois.

Je ne sais pas si j’aurais encore l’envie de m’investir beaucoup sur ce fichier presque catastrophique. A voir comment tu es d’accord de le modifier pour l’améliorer.

45exemple-alexis-az-v3.xlsm (27.14 Ko)

Yvouille · Answer

Si mes réponses t’intéressent, je continue à bien vouloir te les donner. Si tu veux bien mettre un peu du tien, je te promets d’en mettre au moins le double Relis mon dernier message et si tu désires continuer la discussion, bien volontiers. Pour moi il n'y a bien entendu aucune urgence. Amicalement...