Formule pour lignes surlignées à recopier

Résolu/Fermé
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010 - 2 juin 2010 à 16:50
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 - 6 juin 2010 à 23:00
Bonjour,

Je possède Office 2010.

Voici un exemple de classeur dont la 1ère feuille contient une liste dont certaines lignes sont surlignées.

http://beatrice.coste3.pagesperso-orange.fr/forums/exemple.png

J'aurais aimé que, à chaque fois que je surligne une ligne (ou plus exactement une plage de cellules sur cette ligne car il ne s'agit pas de la ligne entière), cette ligne soit recopiée automatiquement sur la seconde feuille du classeur à la suite des lignes déjà saisies.

Vous remerciant dès à présent pour votre aide,

Je vous souhaite une très bonne fin de journée.




A voir également:

24 réponses

Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
2 juin 2010 à 22:13
Bonjour,
Est-ce qu'il s'agit d'une couleur de remplissage manuelle ou via la mise en forme conditionnelle ?
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
2 juin 2010 à 22:18
Salut,

A la place de mettre à notre disposition une capture écran, mets ton fichier ou un modéle sans notes confidentielles avec le lien que tu as utilisé
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
3 juin 2010 à 08:15
Bonjour

et merci à tous les deux.

Le Pingou
Il s'agit d'une couleur de remplissage manuelle

Mike-31
Voici l'exemple en pièce jointe (pour télécharger ce fichier, faire clic droit sur le lien/Enregistrer la cible du lien sous...car je ne vois pas comment procéder autrement pour joindre un fichier sur ce forum) :

http://beatrice.coste3.pagesperso-orange.fr/forums/Classeur1.xlsx

Très bonne journée
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 3/06/2010 à 11:35
Bonjour,
Merci pour l'information.
Ma proposition cette après-midi.
Salutations.
Le Pingou
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
3 juin 2010 à 15:56
Bonjour,
Ma proposition : https://www.cjoint.com/?gdp32wItQu
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
3 juin 2010 à 17:26
Merci beaucoup. Géniale la macro !

Par contre, si j'ai bien compris, à chaque fois que j'applique la macro, c'est l'ensemble des lignes qui est recopiée (si je ne fais pas erreur...). Cela ne serait-il pas possible de ne recopier que la ligne que je viens de sélectionner, compte tenu que ma feuille est composée de plusieurs milliers de lignes.

A moins que cela n'ait pas d'importance et que si je me retrouve avec plusieurs milliers de lignes surlignées, cela ne soit pas trop lourd et que la macro ne mette pas trop de temps à agir...

Qu'en penses-tu ? Cela est-il faisable ?

Merci d'avance
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 3/06/2010 à 18:04
Bonjour,
Vous avez les 2 possibilités, à vous de choisir : https://www.cjoint.com/?gdsb31X85C
Personnellement je préfère la première car en cas de modification, par exemple suppression de la couleur d'une ligne, vous aurez toujours les bonnes lignes en feuille 2. Pour plus de 3500 lignes en 3 à 4 secondes ... ce n'est pas un bail ...

Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
3 juin 2010 à 19:15
Je te remercie à nouveau.

Je télécharge ton fichier puis te tiens au courant. Après mon dernier message, j'avais essayé de surligner environ 3000 lignes et cela met environ 15 à 20 secondes : je trouve que cela fait beaucoup pour une seule ligne ; c'est pourquoi je préfére opter pour une autre solution.

Je dois m'absenter et essaierai ton fichier à mon retour.
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 juin 2010 à 20:38
Salut,

Je n'ai pas pu répondre plus tôt, heureusement Le pingou que je salut à suivi la discussion.
Il y a quelques jours pour une demande similaire j'avais écrit ce code

https://www.cjoint.com/?gduI0Br6bv
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
3 juin 2010 à 21:12
Bonjour Mike_31,
Merci.
Petite question, j'ai l'impression que la procédure [Worksheet_Change] de la Feuil3(Tous) ne concerne pas se cas ... !
Salutations.
Le Pingou
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 juin 2010 à 22:01
Salut Le Pingou,

Exact dans cette procédure il ne sert à rien.
J'ai créé ce fichier complexe qui au départ composé de plusieurs feuilles, sélectionnait aléatoirement vingt lignes à partir d'un point lui aussi aléatoire, copiait les lignes colorisées sur une autre feuille, la verrouillait avec mot de passe et l'expédiait via Outoolk, effaçait la feuille créée, effaçait les couleurs pour un éventuel nouvel envoi. Le code que j'ai oublié sur la propriété feuille est une mise en forme conditionnelle.
Pour faire patienter pendant l'exécution du code j'avais également créé une jauge de progression avec son %.

Cordialement
Mike-31
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
3 juin 2010 à 21:04
Très bien, la 2ème solution.

Tu vas me dire que je suis exigeante mais je pense à autre chose : serait-il possible de sélectionner la ligne (plutôt la plage de cellules) après l'avoir surlignée et à l'aide d'une macro, effectuer la recopie (ceci afin d'éviter le double-clic dont je me sers pour modifier une saisie dans une cellule).

Merci de ta patience
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 3/06/2010 à 21:29
Bonjour,
Le double clic est toujours utilisable ailleurs sans restriction. C'est l'instruction [Application.Intersect(Columns(1), Target)] de la procédure qui détecte et contrôle si la procédure doit se poursuivre.
Faites donc un essai pour vous convaincre.

Si cela vous gène, il est possible d'utiliser le clic droit ..... à vous de le dire.

Note: j'aimerais réaliser un test de durée, pouvez vous m'indiquez le nombre de colonne de votre feuille ?
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
3 juin 2010 à 23:00
Merci

Oui, mais le double clic ne reste utilisable qu'ailleurs, comme tu le précises. Peut-être que le clic droit serait plus intéressant.

Le nombre de colonnes est de 9 mais il est possible que j'en rajoute. J'ai réussi à trouver l'endroit dans le code où je devais modifier le nombre de lignes ; en effet, je ne m'y connais pas du tout en Visual Basic...

Bonne nuit
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
3 juin 2010 à 23:45
Bonjour,
Attention, la procédure est indépendante du nombre des colonnes.
Dans celle de demain le nombre total de lignes à traiter sera directement déterminer dans la procédure.
Bonne nuit.
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
Modifié par bececoste le 4/06/2010 à 08:42
Mike-31
Je viens de voir ton message à l'instant et la réponse que j'ai faite à 21 h 04 faisait suite au dernier message de Le Pingou.

J'ai testé ton fichier mais cela ne correspond pas tout à fait à ce que je désire car il faut que les lignes surlignées copiées puissent garder le surlignement autant sur la 1ère feuille que sur la 2ème.

Je te remercie néanmoins de ta gentillesse.

Bonne nuit
0
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 5 073
3 juin 2010 à 23:07
Re,

Ce n'est pas un problème, mais pour copier la ligne et la couleur mon code modifié

Sub copy_Ligne_Sélectionnées()
Dim j As Long
j = 2
Application.ScreenUpdating = False
For i = 2 To Range("A65536").End(xlUp).Offset(1, 0).Row
Sheets("Tous").Activate
If Cells(i, 1).Interior.ColorIndex = 6 Then
Range(Cells(i, 1), Cells(i, 4)).Copy
Sheets("Service").Activate
Cells(j, 1).Select
j = j + 1
[A1].Select
End If
Next i
Application.ScreenUpdating = True
End Sub
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
3 juin 2010 à 23:31
Bonjour bececoste,
Je vais modifier en preant le clic droit.
En plus j'ai testé une autre procédure plus rapide qui pourrait remplacer la première. Se sera pour demain si tout va bien.
Au passage, merci Mike-31.
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
4 juin 2010 à 08:51
Bonjour Le Pingou

Je te remercie de tester différentes solutions car cela m'intéresse beaucoup. Je ne m'y connais absolument pas en Visual Basic mais cela m'intéresse néanmoins et je cherche, à chaque fois que je le peux, à personnaliser Excel, afin de faciliter son utilisation.

Très bonne journée
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
4 juin 2010 à 16:18
Bonjour,
Vous avez le choix : https://www.cjoint.com/?geqnLyHtAl
Note : avec les 2 premières votre récapitulatif sera toujours à jours et vous pouvez très bien lancer la procédure à la fin de toutes les modifications sur la feuille 1 !
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
4 juin 2010 à 17:11
Génial ! Cela dépasse mes espérances !

Je vais maintenant me pencher sur le code afin d'essayer de comprendre... un petit peu et à mon niveau, tout ce que tu m'as envoyé.

Ensuite, je vais tester pendant un certain temps chaque procédure et voir celle qui me convient le mieux mais je crois que vais peut-être en garder deux et les appliquer sur 2 feuilles.

De toutes façons, je garde toutes ces procédures précieusement.

Je vais encore abuser de ta gentillesse car je désirerais, toujours pour ce même classeur obtenir ceci :

J'aimerais qu'en cliquant sur un bouton situé sur ma barre d'outils personnalisée (et auquel serait associée une macro), je puisse ouvrir la boîte dont exemple ci-joint :

http://beatrice.coste3.pagesperso-orange.fr/forums/Atteindre.png

Dans la zone de saisie, je tape par exemple la lettre « M » ; en cliquant sur OK, j'aimerais que l'affichage de ma feuille aille directement aux entrées commençant par M dans la 2ème colonne.

Merci encore pour l'aide que tu m'apportes car c'est vraiment super !

PS : Si tu penses qu'il serait préférable de créer un nouveau sujet, je le ferai bien évidemment.
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
4 juin 2010 à 21:48
Bonjour,
Ce n'est pas clair et la pièce jointe n'est d'aucune utilitée.
Est-ce que cela y ressemble : https://www.cjoint.com/?gevWi21LH5
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
4 juin 2010 à 22:32
C'est vrai que ce n'est pas simple à expliquer. Ci-dessous une autre capture d'écran qui, je pense, expliquera plus clairement ce que je recherche :

http://beatrice.coste3.pagesperso-orange.fr/forums/Atteindre_bis.png
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
Modifié par Le Pingou le 4/06/2010 à 22:49
Bonjour,
Merci.
Avez-vous parcouru mon exemple, par exemple pour num dos entrer 1 puis 1 ... et vous voer la liste défilée et donc le but se précise .... ensuite clic sur l'une des ligne et vous arrivez directement sur la ligne concernée .... ?
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
5 juin 2010 à 08:06
Bonjour

Effectivement, j'avais bien ouvert ton classeur mais je ne pensais pas qu'il s'adaptait automatiquement à n'importe quel classeur. Je l'ai donc testé dans mon classeur perso.

Par contre, juste une petite chose, lorsque je tape la lettre P, il m'affiche tous les mots qui contiennent un P ; or, j'aimerais qu'il n'affiche que les cellules commençant par un P ; est-ce possible ?
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
4 juin 2010 à 19:44
J'ai un petit souci avec la 2ème macro (PlageCouleurCopierOrdre) ; j'ai bien le message disant que les lignes ont été copiées mais rien n'est copié...

Les 2 autres procédures fonctionnent parfaitement.

Merci d'avance
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
4 juin 2010 à 21:35
Bonjour,
Eh bien oui, c'est pas souvent, j'ai simplement oblier d'affecter la bonne procédure au bouton de commande.
Voila : https://www.cjoint.com/?gevJaX8RrE
Salutations.
Le Pingou
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
5 juin 2010 à 11:17
Bonjour,
Oh, que voilà une bonne nouvelle, oui je pense que c'est possible.
Donc les caractères dans l'ordre d'écriture ...
Patience!
Bon week-end.
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
5 juin 2010 à 12:00
Je vais encore t'ennuyer mais j'ai un petit problème sur la feuille 2 du classeur avec la copie dans le regroupement des couleurs. Je te joins le classeur car c'est plus simple pour t'expliquer :

http://beatrice.coste3.pagesperso-orange.fr/forums/Exemple.xlsm

Encore merci du mal que tu te donnes et très bon week-end
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
5 juin 2010 à 17:35
Bonjour,
Est-ce correct : https://www.cjoint.com/?gfrJkCy2qR
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
5 juin 2010 à 17:57
Impeccable ! Je suis vraiment très contente. Un grand merci.

Par contre, j'aurais encore besoin de te mettre à contribution quant à l'autre procédure en plus de ce que je t'ai demandé dans mon message de 8 h 06 ; en effet, je n'ai besoin que de la 2ème colonne, j'ai donc voulu supprimé les autres boîtes de saisie et j'ai supprimé des lignes de code qui semblaient correspondre à celles-ci mais, vu mon niveau "élevé" en Visual Basic (autrement dit nul !), ce fut la catastrophe car la macro ne fonctionnait plus et j'avais des messages d'erreur...

J'en appelle donc, une fois de plus, à ton aide en espérant ne pas trop exagérer dans mes demandes...
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
5 juin 2010 à 18:44
Bonjour,
Oui oui je n'ai pas oublié, à mon âge on ne travaille plus aussi vite ....!
J'ai pris note qu'il s'agit uniquement de la colonne 2 , si tout va bien c'est pour lundi au plus tard.
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
5 juin 2010 à 19:50
Il n'y avait surtout aucun reproche dans ma demande...

Quant à ton âge, je pense que je dois te battre car je suis une Mamie (de 5 petits-enfants)... jeune peut-être... mais tout de même de 61 ans !!!

Mais par contre, je suis une passionnée d'informatique depuis mes débuts avec Windows 95 en 1996 et commence à me débrouiller seule dans beaucoup de domaines (autant pour Windows que pour pas mal d'autres logiciels) mais pour ce qui est du Visual Basic... ce n'est plus dans mes cordes !!!

Très bonne fin de soirée
0
Le Pingou Messages postés 12042 Date d'inscription mercredi 11 août 2004 Statut Contributeur Dernière intervention 24 avril 2024 1 426
5 juin 2010 à 21:39
Bonjour,
Je suis encore gagnant sur se coup de 5 points.
Salutations.
Le Pingou
0
bececoste Messages postés 60 Date d'inscription samedi 17 mai 2003 Statut Membre Dernière intervention 6 juin 2010
5 juin 2010 à 21:53
Ah !.... Je crois qu'en fait, tu gagneras toujours !
0