VBA copier coller d'une selection avec variable

Version imprimable

17/10/2013, 11h08
K.Barber

VBA copier coller d'une selection avec variable

Bonjour,

Etant débutant et n'ayant pas réussi à avancer depuis 2 jours je fais appel à vos talents:

Je dois rapprocher deux types de données qui peuvent varier en nombre et que je regroupe par lot.
Le lot1 par exemple serait composé de n individus qui possèdent chacun n objets
Si le lot1 a 5 individus qui ont chacun 10 objets lot1, je souhaite mettre dans une autre feuille excel l'individu 1 du lot1 avec en dessous (+ insertion d'une ligne pour espacer) ses 10 objets lot1, puis l'individu 2 et en dessous les 10 objets lot1 etc...

Même chose pour tous les autres lots d'individus et d'objets. Un individu aura forcément un objet en terme de numéro de lot.

La première colonne = Lot individu, la 2ème = individu, la 3eme = lot objet, la 4ème = objet

J'ai essayé de coder en utilisant un nombre si pour avoir le nbre d'individus et d'objets par lot, ce qui me permet d'envisager (je ne sais pas coder ça) un compteur n individus pour le nombre de fois ou je collerai le bloc de n objets (les lignes étant récupérés par le nb si pour faire une selection du bloc).

J'imagine qu'il faudrait un code type For each range objet coller copier avec une boucle for next...Mais je bloque.

Pouvez vous m'aider?
Par avance, un grand merci!
17/10/2013, 11h30
Invité

Salut,

Un TCD n'est-il pas suffisant ?

Tu peux utiliser un filtre sur les individus pour les classer dans l'ordre et traiter cette liste ligne par ligne. Tu peux utiliser des collections, ...

Tu peux passer par un des modules de classe (qui est très pratique pour ce genre de problème) mais je ne sais pas si tu maitrises le sujet...

Mets ton fichier Excel en PJ et je t'aiderai.
17/10/2013, 12h57
K.Barber

2 pièce(s) jointe(s)

Salut,

En fait après cette première étape, j'aurais d'autres travaux de mise en page et de retraitement excel d'ou la nécessité de passer par VBA et non par un TCD.

Je te joins le fichier test..

Merci!Pièce jointe 128797

Cette version de fichier est plus explicite avec le résultat souhaité.

Pièce jointe 128801

Il a y sans doute plus simple mais ça fonctionne:

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
25
26
27
28
29
30
31
32
33
Option Explicit
 
Public Sub Traitement()
 
  Dim lngLigne As Long
  Dim rngIndividu As Range, rngObject As Range
 
  Worksheets("resultat").Cells.ClearContents
  lngLigne = 1
 
  For Each rngIndividu In Range("individu").Rows
 
    If rngIndividu.Resize(1, 1).Value <> "" Then
 
      With Worksheets("resultat")
        .Cells(lngLigne, 1).Value = rngIndividu.Resize(1, 1).Value
        .Cells(lngLigne, 2).Value = rngIndividu.Offset(0, 1).Resize(1, 1).Value
        lngLigne = lngLigne + 2
        For Each rngObject In Range("object").Rows
          If rngObject.Resize(1, 1).Value = rngIndividu.Resize(1, 1).Value Then
            .Cells(lngLigne, 2).Value = rngObject.Resize(1, 1).Value
            .Cells(lngLigne, 3).Value = rngObject.Offset(0, 1).Resize(1, 1).Value
            lngLigne = lngLigne + 1
          End If
        Next rngObject
        lngLigne = lngLigne + 1
      End With
 
    End If
 
  Next rngIndividu
 
End Sub

Petit point de détail: j'utilise des plages nommées pour parcourir les cellules.

Je t'ai mis un classeur en PJ.

17/10/2013, 15h11
K.Barber

cool

Ca marche! Je vais prendre le temps de découvrir ton code, je pensais vraiment articuler ça autrement, mais si ça fonctionne alors je prends!

Grand merci!

Moof