Liste des courses à éditer (imprimer) après selection

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Juillet 2010

• #2

Re : Liste des courses à éditer (imprimer) après selection

Bonjour AntoYS, bonjour le forum,

J'ai rajouté un onglet nommé Feuil2 dans ton fichier et je te propose le code ci-dessous :

Code:

Sub Macro1()
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (DESTination)
Dim r As Range 'déclare la variable r (Recherche)
 
For Each cel In Selection 'boucle sur toutes les cellules de la sélection
    Set dest = Sheets("Feuil2").Range("A65536").End(xlUp).Offset(1, 0) 'definit la cellule de destination
    Set r = Sheets("Feuil2").Columns(1).Find(cel.Offset(0, -1), , xlValues, xlWhole) 'définit la recherche
    If r Is Nothing Then 'condition : si le code m'existe pas
        cel.Offset(0, -1).Copy dest 'copy le code dans la destination
        Set dest = dest.Offset(1, 0) 'redefinit la destination (une ligne en dessous)
    End If 'fin de la condition
    cel.Copy dest 'copie le produit dans la destination
Next cel
End Sub

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Juillet 2010

• #3

Re : Liste des courses à éditer (imprimer) après selection

Bonjour Robert,

merci mais je n'arrive pas à exécuter ta macro.

Envoie s'il te plaît, le fichier exécutable ou explicite la procédure pour faire fonctionner cette macro.

Merci par avance.

 

Vote positif 0 Vote négatif

D

ddp

XLDnaute Occasionnel

• 27 Juillet 2010

• #4

Re : Liste des courses à éditer (imprimer) après selection

re le forum,

bonjour anthoys et Robert

en m'inspirant de vos fichiers et surtout de ta macro Robert, un exemple que je me suis fait

bonnes courses

edit: sur feuil2 colonne C, liste de validation

 

Pièces jointes

• listes courses.zip

  20.4 KB · Affichages: 2 980
• listes courses.zip

  20.4 KB · Affichages: 3 021
• listes courses.zip

  20.4 KB · Affichages: 3 035

Dernière édition: 27 Juillet 2010

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 27 Juillet 2010

• #5

Re : Liste des courses à éditer (imprimer) après selection

bonjour ddp,

Pas mal !

même avec les prix ! Par contre comment faire pour sélectionner avec des cases à cocher ?

merci par avance

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 27 Juillet 2010

• #6

Re : Liste des courses à éditer (imprimer) après selection

Bonjour le fil, bonjour le forum,

En m'inspirant de DDP ton fichier modifié. La macro se fait sur le clic de la CheckBox dans l'onglet list.

 

Pièces jointes

• AnthoYS_v01.xls

  45.5 KB · Affichages: 1 659

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 28 Juillet 2010

• #7

Re : Liste des courses à éditer (imprimer) après selection

bonjour,

merci et à Robert et à ddp

avec la version d'excel 97/2003, ça ne marche pas ici.

mais je ne vois pas les cases à cocher.

fichier ci-joint, à customiser... car je n'y parviens pas en m'inspirant de vos travaux (car ou je suis, le PC n'arrive pas à exécuter les macros), si vous voulez et pouvez bientendu.

merci par avance

bonne journée

 

Dernière édition: 28 Juillet 2010

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 28 Juillet 2010

• #8

Re : Liste des courses à éditer (imprimer) après selection

Bonjor AnthoYS, DDP, bonjour le forum,

Oops ! Quand tu parlais de sélection, je pensais que tu faisais cette sélection en cliquant directement dans les cellules de produit (en combinant avec la touche [Ctrl] pour une selection de cellules non contiguës)... Ensuite tu cliquais dans la case à cocher en haut à gauche pour déclencher la macro.
Ça marche dans le fichier que je t'ai envoyé (sur 2003 chez moi)...

C'est beaucoup plus complexe si, comme dans ton dernier fichier, tu veux une case à cocher par produit. Je ne m'y risquerai pas...

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 28 Juillet 2010

• #9

Re : Liste des courses à éditer (imprimer) après selection

Salut

Robert à dit:

C'est beaucoup plus complexe si, comme dans ton dernier fichier, tu veux une case à cocher par produit. Je ne m'y risquerai pas...

Cliquez pour agrandir...

Moi non plus Robert 😉
Je préfère les fausses Cases à Cocher (programmation basique, fichier beaucoup moins lourd ...) !

 

Pièces jointes

• No CheckBox.xls

  34 KB · Affichages: 1 028

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 28 Juillet 2010

• #10

Re : Liste des courses à éditer (imprimer) après selection

Bonjour Fo_rum, Robert, les autres suiveurs...

Merci c'est tout aussi bien avec de fausses Cases à Cocher.
Mais comment mettre en place ce système ?

Excellent Fo_rum !
Merci à toi donc.

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 28 Juillet 2010

• #11

Re : Liste des courses à éditer (imprimer) après selection

Re

Les colonnes A et D ont pour fonte la police Wingdings
(voir Insertion, Caractères spéciaux ...)
Il y a une macro évènementielle qui permet par simple clic de "cocher" ou "décocher".
La copie se fait pour les cas supposés cochés (un test de caractère suffit).

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 28 Juillet 2010

• #12

Re : Liste des courses à éditer (imprimer) après selection

re,

j'ai noté quelque insuffisances 😕 à ce procédé, témoin :



ce qui est attendu (à peu près) :



en tout les cas, enlever ces deux colonnes inutiles pour n'en laisser qu'une, la bonne selection

merci encore Fo_rum pour tes éclaircicements post précédent.

à + 🙂

 

Vote positif 0 Vote négatif

anthoYS

XLDnaute Barbatruc

• 28 Juillet 2010

• #13

Re : Liste des courses à éditer (imprimer) après selection

re,

quelqu'un a t-il une idée de comment résoudre ces désordres de concrétisation du projet (établir une et une seule liste de course) ?

merci

bonne fin de journée

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 28 Juillet 2010

• #14

Re : Liste des courses à éditer (imprimer) après selection

Bonjour à tous

CQFD

 

Dernière édition: 29 Juillet 2010

Vote positif 0 Vote négatif

D

ddp

XLDnaute Occasionnel

• 28 Juillet 2010

• #15

Re : Liste des courses à éditer (imprimer) après selection

re le fil 🙂

ce n'est pas la soluce, juste une piste que des cracks de la macro vont surement améliorer et alléger dans les procédures (je pense à une seule macro en boucle?)

 

Pièces jointes

• retour anthoys1.zip

  15.1 KB · Affichages: 574

Vote positif 0 Vote négatif