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

[anthoYS]

Bonjour,

Je souhaite, que selon se qui sera selectionné, sur un deuxième onglet apparaissent :

1 Les catégories concernés (par exemple "frais")

2 Dessous les produits concernés à la suite selon la selection (1, 2 ou plus frais), ne pas faire apparaître la catégorie si catégorie n'a pas de selection (0)

merci par avance

 

[Robert]

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 :

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

 

[anthoYS]

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.

 

[ddp]

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

 

[anthoYS]

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

 

[Robert]

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.

 

[anthoYS]

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

 

[Robert]

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...

 

[Fo_rum]

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

Salut

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

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

 

[anthoYS]

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.

 

[Fo_rum]

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).

 

[anthoYS]

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.

à +

 

[anthoYS]

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

 

[MJ13]

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

Bonjour à tous

CQFD

 

[ddp]

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?)