Extraction de données

[JORDAN]

Boujour à toutes et à tous,

J'ai joint un petit fichier pour être plus explicite.

Je n'arrive pas à cumuler des données extraites dans 1 même cellule.

Merci pour toutes vos infos

Bonne journée

 

[pierrejean]

Re : Extraction de données

bonjour Jordan

vois si cela te convient

 

[JORDAN]

Re : Extraction de données

Bonsoir Pierrejean, le Forum,

Après un petit test, c'est vite vu, une merveille.
Un grand M E R C I pour ton code qui me convient totalement.
J'avais déjà eu à faire à tes compétences et je vois qu'on est toujours aussi bien servi.
Désolé pour ma lenteur à te remercier mais boulot oblige.

Encore merci et bonne soirée

 

[JORDAN]

Re : Extraction de données

Bonjour Pierrejean, le Forum,

J'ai transféré ton code dans ma feuille que j'ai simplifiée au maximum (fichier trop gros). Et j'ai un petit bug.

Les données sont bien extraites, mais dans la colonne EDITEUR de la feuille RecuClient, les données sont mélangées, elles ne correspondent pas à l'original de la feuille LIBRAIRIE.

Je n'arrive pas à trouver pourquoi cette colonne et pas les autres.

Si quelqu'un a une petite idée ... Merci

bonne journée

 

[pierrejean]

Re : Extraction de données

bonjour Jordan

je pense que le fichier precedent comportait 3 colonnes seulement en resultat
de fait le classement etait fait sur 3 colonnes

.Range("[COLOR=red]A1:C[/COLOR]" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

je l'ai etendu a 5

.Range("[COLOR=red]A1:E[/COLOR]" & .Range("A65536").End(xlUp).Row).Sort Key1:=.Range("A2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom

 

[JORDAN]

Re : Extraction de données

Bonjour Pierrejean,

Tu as entièrement raison, il n'y avait que 3 colonnes et maintenant 5

J'ai bien essayé de trouver une erreur...
et pourtant ce n'était pas compliqué.

Merci pour ton aide
et bonne journée