VBA Copier/Coller ligne

Version imprimable

17/05/2016, 17h34
SuperCompote

1 pièce(s) jointe(s)

VBA Copier/Coller ligne

Bonjour,
Je décide de venir poser mon problème après avoir cherché un sacré bout de temps.
Je suis un débutant en VBA et j'espère que vous pouvez m'aider.
J'aimerai savoir comment faire un code VBA pour copier les lignes dans tableau (celle contenant une valeur précise) dans un autre tableau.
Chaque tableau possède les mêmes variables (nom de produit) mais on chacun des donnée différentes et j'aimerai faire cette macro pour tout rassembler dans un même tableau.
Dis comme ça, ça parait simple mais les nom de produit ne sont pas classé dans le même ordre d'un tableau à l'autre, il y a une chier de ligne et les informations varient souvent.

Je vous laisse un petit tableau miniature reprenant l'idée du truc.

Merci d'avance,
La biz
17/05/2016, 21h25
EricDgn

1 pièce(s) jointe(s)

Une solution en attaché.
Bonne continuation.
02/06/2016, 17h40
SuperCompote

Bien le bonsoir, merci pour ton aide, j'ai une deuxième question, comment faire pour que cette marco gère les doublons?
Je m'explique, ta macro marche très bien mais sauf si il y a deux fois le même produit, serait-il possible que ça copie-colle même si la ligne à déjà été copier-coller?

Merci d'avance ^^
02/06/2016, 18h36
Marc-L

Bonjour,

voir le B-A-BA : Les filtres avancés ou élaborés dans Excel …

_________________________________________________________________________________________________________
Je suis Paris, Charlie, Bruxelles, …
09/06/2016, 09h39
EricDgn

Deux fois le même produit: dans la feuille "Produit" ou dans la feuille "Feuil3" ?
09/06/2016, 09h53
SuperCompote

Dans la Feuil3
09/06/2016, 15h37
EricDgn

1 pièce(s) jointe(s)

Une solution en attaché.
Bonne continuation.
15/06/2016, 15h30
SuperCompote

1 pièce(s) jointe(s)

Bonjour,
Votre solution marche dans certains cas mais dans un, un problème ce posse 8O, la macro commence bien mais arrive à un moment ou elle recouvre les bonnes données par de mauvaises...

Voici l'exemple en pièce jointe
Pièce jointe 212848

Bonjour,
Je crois que le fichier joint n'est pas tout à fait celui qu'il aurait fallu envoyer.
Si j'ai bien compris la demande, le problème se poserait avec la routine Mention() que je vous propose de modifier comme indiqué ci-dessous.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Mention() 'semble marcher, faire commencer la liste des produits ligne 5
   Dim kL1 As Long, DerLig As Long, kC As Long
   Dim wSh1 As Worksheet, wSh2 As Worksheet
   Dim MemeProduit As Range, kL2 As Long
   Set wSh1 = ActiveWorkbook.Worksheets("Produits")
   Set wSh2 = ActiveWorkbook.Worksheets("Fiche Expo")
   'Application.ScreenUpdating = False
   DerLig = wSh1.Cells(Rows.Count, 1).End(xlUp).Row
   kL1 = 5 'A quoi cela correspond  ======================== n° première ligne à utiliser dans feuille wSh1
   Do While wSh1.Cells(kL1, 1) <> ""         '============== exécution plus sûre en précisant wSh1.
      Set MemeProduit = wSh2.Range("A:A").Find(wSh1.Cells(kL1, 1), LookIn:=xlValues)
      If MemeProduit Is Nothing Then
         '--- le produit indiqué dans wSh1 n'est pas mentionné dans wSh2
      Else
         kL2 = MemeProduit.Row
         For kC = 2 To 58 'zone de collage
            wSh2.Cells(kL2, kC + 2) = wSh1.Cells(kL1, kC)
         Next kC
       End If
      kL1 = kL1 + 1              '================ passe à la ligne suivante
   Loop
   Set wSh1 = Nothing
   Set wSh2 = Nothing
End Sub

Cordialement.

16/06/2016, 09h30
SuperCompote

Oui en effet, ce n'est pas la ou ce situe mon problème, la macro concerné se trouve dans ThisWorkbook et ce nomme Protection-3ou4 ().

Et merci pour le temps que tu passes pour m'aider ^^

A mon avis le problème vient du fait que le .Find n'a pas précisé qu'il faut rechercher des valeurs entièrement identiques.
Par défaut .Find cherche si la valeur cherchée se trouve quelque part dans la cellule.
Code:

1 2 'Set MemeProt = .Find(wSh1.Cells(kL1, 1), LookIn:=xlValues) '--- cherche partie contenu cellule identique Set MemeProt = .Find(wSh1.Cells(kL1, 1), LookIn:=xlValues, LookAt:=xlWhole) '--- cherche cellule entièrement identique
Pour ce qui concerne la fin de boucle:
Code:

1 2 3 Loop While MemeProt.Address <> firstAddress 'Loop While Not MemeProt Is Nothing And MemeProt.Address <> firstAddress '--- la partie "MemeProt Is Nothing" est déjà traitée par la ligne "If MemeProt Is Nothing Then"
Bonne continuation.

16/06/2016, 13h12
Docmarti

Bonjour

Il y a un doublon sur la feuille Tâches :
Chromatographie Ionique
08/08/2016, 18h29
SuperCompote

1 pièce(s) jointe(s)

Yooo,
Je revins à la charge, c'est toujours le même type de cas mais j'arrive toujours pas ^^
Ce cas si il y a q'une seul valeur et j’aimerais copier toutes les ligne d'une autre feuille possédant cette valeur, exemple en PJ.

Merci d'avance
08/08/2016, 20h18
Marc-L

Toujours simple & rapide en trois lignes de code via un filtre avancé …
09/08/2016, 10h45
SuperCompote

Merci bien Marc-L. :D