Macro transfert de données selon un critére

**quentin.lefrere.08** · 27/05/2008, 11h14

Bonjour à tous,

j'ai un petit problème!!

J'ai créé une macro pour rassembler des données qui proviennent de 4 feuilles différentes vers une seule feuille.
Ces données ont un critère en commun, c'est grâce à ça que je les rassemble (validation du critère en première page et je veux que toutes les données se colle ss la même page)

Je ne sais pas si je suis super clair!!!

Voila le problème: je réussi à regrouper les données de 3 feuilles mais la 4éme ne veux pas se coller, et je ne comprend pas pourquoi?? la feuille data Volume en l'occurrence (cf pièce jointe)

Merci pr votre écoute et pour votre aide.

**Godzestla** · 27/05/2008, 12h59

Salut Quen,

peux-tu plutot mettre ton code en clair dans le post en utilisant les balises code. (Pour ce faire regarde à http://www.developpez.net/forums/sho...d.php?t=553797)

Merci.

**quentin.lefrere.08** · 27/05/2008, 13h08

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
Application.ScreenUpdating = False
 
    Sheets("Data HSSE").Select
    Range("A6:P181").AdvancedFilter Action:=xlFilterCopy, Criteriarange:=Range( _
        "A189:P190"), CopyToRange:=Range("A193:P198"), Unique:=False
 
    Sheets("Data Achat").Select
    Range("C10").Select
    Range("A9:Q120").AdvancedFilter Action:=xlFilterCopy, Criteriarange:=Range( _
        "A125:Q126"), CopyToRange:=Range("A128:Q131"), Unique:=False
 
 
    Sheets("Data contrat").Select
    Range("C9").Select
    Range("A7:H40").AdvancedFilter Action:=xlFilterCopy, Criteriarange:=Range( _
        "A44:H45"), CopyToRange:=Range("A47:H48"), Unique:=True
    Sheets("KPI").Select
 
 
    Sheets("Data Volume").Select
    Range("A8:P43").AdvancedFilter Action:=xlFilterCopy, Criteriarange:=Range( _
        "A47:P48"), CopyToRange:=Range("A50:P51"), Unique:=True
    Sheets("KPI").Select
 
Application.ScreenUpdating = True
 
End Sub

Merci encore pour ton intérêt!!

**Godzestla** · 27/05/2008, 13h29

Est-ce normal qu'il n'y a aucune données dans le bas de ta feuille Data Volume.

C'est pour moi une raison suffisante pour que ta macro ramène une ligne vide, non ?

(Entre nous il n'y a rien pour GTLE dans cette feuille).

**quentin.lefrere.08** · 27/05/2008, 13h38

la macro sert à intégrer dans la ligne du bas le données correspondant au critere choisi en feuille KPI.

Le probleme que j'ai est ta question: je ne comprend pas pourquoi ma macro ne me copie pas les données correspondant au critere dans la ligne du bas de la feuille data volume.

Une idée!!
merci bcp