Macro pour copier des données selon 3 critères...

Cousinhub

XLDnaute Barbatruc

• 22 Février 2008

• #2

Re : Macro pour copier des données selon 3 critères...

Bonsoir,
regarde le fichier joint, et reviens si pb

 

Pièces jointes

• christian1v1.zip

  45.5 KB · Affichages: 122

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 23 Février 2008

• #3

Re : Macro pour copier des données selon 3 critères...

Bonjour à tout le forum, bhbh,


Merci, bhbh, pour ton travail.

Dis-moi, peux-tu faire en sorte que la copie des codes (dans la feuille EtqDess) se fasse à partir de H3 et non H2;

Merci pour ton aide.

Bien amicalement,
Christian

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 23 Février 2008

• #4

Re : Macro pour copier des données selon 3 critères...

Bonjour,
si tu veux conserver ton titre en H1, le plus simple alors est d'ajouter cette ligne en fin de code :

Code:

    [H2].Insert Shift:=xlDown

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 23 Février 2008

• #5

Re : Macro pour copier des données selon 3 critères...

Re, le forum, bhbh,


Je te remercie beaucoup, bhbh, pour ton travail impeccable (comme d'hab).

à+

Bien amicalement,
Christian

 

Vote positif 0 Vote négatif

K

KIM

XLDnaute Accro

• 23 Février 2008

• #6

Re : Macro pour copier des données selon 3 critères...

Bonjour bhbh, le fil, le forum,
Ton code est pratique, et utile pour moi. J'ai une modification à demander.
Est-il possible dans le choix de ces trois critères d'avoir un choix vide, c-a-d- quelque soit la valeur de ce critère, avoir une liste selon les autres critères. C'est avoir la possibilite de recuperer la liste des codes sans doublons selon 1, 2 ou 3 critères et non obligatoirement 3 critères.
Merci d'avance
Amicalement
KIM

 

Vote positif 0 Vote négatif

J

jp14

XLDnaute Barbatruc

• 23 Février 2008

• #7

Re : Macro pour copier des données selon 3 critères...

Bonjour KIM
Bonjour bhbh

Un fil avec une autre approche pour un problème similaire

https://www.excel-downloads.com/thr...s-sans-doublons-dans-la-deuxieme-liste.89258/


Ci joint un fichier avec une macro facilement modifiable pour l'adapter à la recherche désirée.
Il suffit de rajouter des tests pour l'adapter, une seule condition il faut que les colonnes soient adjacentes.

JP

 

Pièces jointes

• christian1v2.zip

  46.9 KB · Affichages: 92

Dernière édition: 26 Février 2008

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 23 Février 2008

• #8

Re : Macro pour copier des données selon 3 critères...

Bonjour,
essai en remplaçant la formule écrite en [IV2] :

Code:

        .[IV2].FormulaR1C1 = _
        "=AND(IF(EtqDESS!R2C1<>"""",EtqDESS!R2C1='RECAP RES'!RC[-254],'RECAP RES'!R1C2<>""""),IF(EtqDESS!R2C2<>"""",EtqDESS!R2C2='RECAP RES'!RC[-253],'RECAP RES'!R1C3<>""""),IF(EtqDESS!R2C3<>"""",EtqDESS!R2C3='RECAP RES'!RC[-252],'RECAP RES'!R1C4<>""""))"

PS, à la fin du code, on peut rajouter :

Code:

.[IV2].ClearContents

juste avant le End With

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 25 Février 2008

• #9

Re : Macro pour copier des données selon 3 critères...

Bonsoir à tout le forum, bhbh,

Pourriez-vous jeter un oeil au fichier joint. Lorsque je lance la macro, elle me change des formules en modifiant notamment les numéros de lignes...

Fichier joint

Merci à nouveau pour votre aide,

Bien amicalement,
Chrisitan

 

Pièces jointes

• christianv4.zip

  44.4 KB · Affichages: 63

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 25 Février 2008

• #10

Re : Macro pour copier des données selon 3 critères...

Bonsoir,
remplace cette partie de code :

Code:

        .[[COLOR="Red"]H2[/COLOR]] = Sheets("RECAP RES").[H1]
        Range("base").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=.Range( _
            "IV1:IV2"), CopyToRange:=.Range("[COLOR="Red"]H2[/COLOR]"), Unique:=True
        .Range(Cells([COLOR="Red"]3[/COLOR], 8), Cells(799, 8)).Sort Key1:=Range("[COLOR="Red"]H3[/COLOR]"), Order1:=xlAscending
        [COLOR="Red"].[H2].ClearContents[/COLOR]

Puis supprime la ligne Insert

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 25 Février 2008

• #11

Re : Macro pour copier des données selon 3 critères...

Re, le forum, bhbh,


Merci, bhbh, c'est ok.

Je te remercie, tu es sympa, je suis toujours aussi épaté devant tes compétences...

à+
bonne soirée,

Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 26 Février 2008

• #12

Re : Macro pour copier des données selon 3 critères...

Bonjour à tout le forum, bhbh, kim, JP14,


Je voudrais m'excuser auprès de Kim et JP14. Kim, que je n'ai salué et JP14 pas salué et pas remercié pour son travail impeccable.

Pardonnez-moi,

à +
Bien amicalement,
Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 26 Février 2008

• #13

Re : Macro pour copier des données selon 3 critères...

Re, bonsoir à tout le forum,

J'ai encore un petit problème avec la macro, de bhbh, en effet lorsque je la lance elle efface les zones nommées (base1 base2 et base3) dans la feuille travail.???

Mon appli est trop lourde pour la mettre sur le forum.


Ce n'est pas la macro de bhbh qui pose problème, bien sur, mais un paramètre dans mon appli, je pense.

Pourriez-vous m'éclairé...

Christian

 

Vote positif 0 Vote négatif

C

Christian0258

XLDnaute Accro

• 27 Février 2008

• #14

Re : Macro pour copier des données selon 3 critères...

Bonjour à tout le forum,

Je reviens à la charge, lol,

auriez-vous une idée? je ne trouve pas.

à+

Christian

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 27 Février 2008

• #15

Re : Macro pour copier des données selon 3 critères...

Bonsoir,
peux-tu mettre le code uniquement ici, afin de voir les modifications que tu as effectuées?

 

Vote positif 0 Vote négatif