Macro pour copier / coller + listage

[aziz]

Bonjour à tous
je souhaite créer une liste de produit au fur et à mesure
avec une macro par produit en utilisant un copier coller.
Merci pour votre aide
Tous est expliqué dans le fichier, enfin j'espère avoir été clair.
Grand merci à tous

 

[Staple1600]

Re : Macro pour copier / coller + listage

Bonsoir à tous_________________EDITION: Bonsoir camarade Hasco 😉


Une alternative (testée et fonctionnelle)
(code à mettre dans le code la feuille Selection element)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim p As Range, derlig&
If Target.Column = 7 And Target.Count = 1 Then
Set p = Cells(Target.Row, 1).Resize(, 6)
derlig = Sheets("Listing").Cells(Rows.Count, 1).End(xlUp).Row
p.Copy Sheets("Listing").Cells(derlig + 1, 1)
End If
End Sub

PRE-REQUIS: Supprimer les boutons en colonne G puis pour tester se mettre sur une cellule en colonne G et faire un double-clic
Aller voir ensuite le résultat sur la feuille Listing

 

[Guest]

Re : Macro pour copier / coller + listage

Bonsoir,

(bonsoir particulier à mon ami Jean-Marie)

Dans le fichier joint:
1- insertion de deux tableaux au sens excel (onglet Insertion/Tableau), l'un nommé "tElements" (feuille Elements), l'aute "tCollissage"(Feuille Listing)

2 - Sur le tableau tElements insertion d'une colonne qui compte le nombre de fois où la ligne est présente dans "tCollissage"

3 - sur la feuille "Elements" un seul bouton apparaît en face de la ligne avec la REF lorsqu'on sélectionne une cellule du tableau "tELements"

A+

 

[aziz]

Re : Macro pour copier / coller + listage

Merci beaucoup Staple1600 et Hasco pour votre aide.
Dis moi Hasco que c'est possible de faire apparaitre un bouton pour chaque réf ?

merci

 

[Staple1600]

Re : Macro pour copier / coller + listage

Re


Je sais qu'Hasco va dire que c'est possible
mais moi je vais dire que cela alourdira ton fichier alors que sa proposition précédente est à mon sens plus élégante 😉

aziz: tu as remarqué qu'avec la solution d'Hasco le texte sur le bouton change automatiquement selon la référence?

 

[aziz]

Re : Macro pour copier / coller + listage

Oui tu as raison c'est peut etre mieux comme ça.
par contre regarde mon fichier
j'ai essayé d'inclure d'autre onglet sens succes tel que : colonne et milieu, avec le mm principe
les lister au fur et à mesure de mon besoin sur l'onglet listing.

Merci encore pour votre aide.

 

[Guest]

Re : Macro pour copier / coller + listage

Bonjour,

L'agrafe à raison mette autant de boutons que de lignes deviendra vite ingérable.

j'ai essayé d'inclure d'autre onglet sens succes tel que : colonne et milieu, avec le mm principe
les lister au fur et à mesure de mon besoin sur l'onglet listing.

Dans la ligne

 .Visible = Target.ListObject.Name = "tElements" And Target.Rows.Count = 1 And Intersect(Target, Target.ListObject.HeaderRowRange) Is Nothing

Il suffit de remplacer "tElements" par le nom du tableau concerné:

 .Visible = Target.ListObject.Name = "tElements4" And Target.Rows.Count = 1 And Intersect(Target, Target.ListObject.HeaderRowRange) Is Nothing

idem pour le tableau "tElements45"

A+

 

[aziz]

Re : Macro pour copier / coller + listage

Bonjour, Hasco
Merci, je vais essayer
Bonne Journnée

 

[aziz]

Re : Macro pour copier / coller + listage

Je n'arrive pas a additionner mes tableaux

.Visible = Target.ListObject.Name = "tElements4" & "tElements" & "tElements45" And Target.Rows.Count = 1 And Intersect(Target, Target.ListObject.HeaderRowRange) Is Nothing


Merci pour ton aide

 

[Guest]

Re : Macro pour copier / coller + listage

Bonjour,

Voici qui est fait pour les 3 feuilles.

A+

 

[aziz]

Re : Macro pour copier / coller + listage

Un grand merci à toi j'ai tout compris ...
bonne soirée

 

[aziz]

Re : Macro pour copier / coller + listage

Bonsoir, Hasco
peux tu regarder mon fichier et plus particulièrement la macro 4
et pourquoi je n'arrive pas à incrémenter ma selection à partir de ma cellule A12 de mon onglet liste.

Grand merci pour ton aide

 

[Guest]

Re : Macro pour copier / coller + listage

Bonjour,

Visiblement tu n'appliques pas ce qu'on t'as donné plus haut. La structure du fichier n'est plus la même, nous ne pouvons pas être derrière toi pour adapter tes macros au moindre changement.

des solutions existent par formules, demandes en une.

Je passe la main.

A+

 

[aziz]

Re : Macro pour copier / coller + listage

Bonsoir et merci
Voila j'ai réussi avec cette ligne

Columns("A:A").Find("*", [A96], , , , xlPrevious).Select
ActiveCell.Offset(1, 0).Select

Bonne soirée