copier une plage de données sous conditions dans un classeur fermé

Re : copier une plage de données sous conditions dans un classeur fermé

tu as oublié ta pièce jointe ;-)

Re : copier une plage de données sous conditions dans un classeur fermé

Oups les pièces jointes....
Mais j'ai été obligé de réduire la taille: faut changer "F4338:F4697" dans la macro "importer" pour la tester et faut prendre
d'autres critères que 03 et M et P car il n'y a plus ce cas de figure...
Désolé

Re : copier une plage de données sous conditions dans un classeur fermé

En fait pour tester la macro, je vous conseille de reconstituer le fichier BLABLA que j'ai été obligé d'élaguer en rajoutant des valeurs dans la colonne F jusqu'à la ligne 4700.
Sinon, j'éspère que j'ai exprimé mon souci clairement. Merci encore pour votre aide j'en ai vraiment besoin là.

Re : copier une plage de données sous conditions dans un classeur fermé

Bonjour,

Quelqu'un pourrait-il me mettre sur la voie s'il vous plaît? Tout est dans le premier message de la discussion.

Merci...

Re : copier une plage de données sous conditions dans un classeur fermé

Voici à quel code j’ai pensé mais je n’arrive pas à l’adapter comme il faut et à l’insérer au bon endroit :

Il s’agirait grâce à deux compteurs de fixer le numéro de la première ligne où apparaît notre condition (i), puis de la dernière (j)et de nommer la plage [« F »&i : « F »&j] :


Do loop i=i+1
Until application.workbooks(« sourcefile »).worksheets(« sourcesheet »).range(« a »&i).value = 03 and range(« b »&i).value =M and range(c&i)=P


i=j



While range(a&j).value =03 and range(b&j)=M and range (c&i)=P DO j=j+1 loop



Set sourcerange=[« F »&i : « F »&j]




C’est dans le module 1 de mise en forme qu’il faudrait l’adapter, dans la public sub GetData mais je n’y arrive pas… Comme je suis connecté, il ne reconnaît pas les objets classiques comme aplication..

Re : copier une plage de données sous conditions dans un classeur fermé

il s’agit d’un tri , et une fois que les données triées, on prend comme plage (SourceRange) les cellules dans la colonne F qui correspondent.

Do

i = i + 1

Loop Until Cells(i, 2) = "03" And Cells(i, 3) = "M" And Cells(i, 4) = "P" trouve le numéro de la première ligne répondant au critères



j = i la plage de cellules répondant aux critères est en un seul bloc, donc on enchaîne pour trouver le numéro de la dernière ligne



Do While Cells(j, 2) = "03" And Cells(j, 3) = "M" And Cells(j, 4) = "P" trouve le numéro de la dernière ligne correspondant aux critères


j = j + 1



Loop



Set SourceRange= « F&i :F&j » définit la plage de cellules à copier


Le problème c’est que pour l’instant j’ai des messages d’erreurs.. Je bloque vraiment.

Le principal c’est de trouver comment adapter le code ci-dessus et où le mettre pour que ça marche.







Voilà ce que j’ai découvert :



With Range(SourceRange)
i = 5
Do
i = i + 1
Loop Until Range("C" & i).Value = M And Range("D" & i).Value = P
End With
MsgBox ("i=" & i)



Quand on insère cette boucle après la connexion mais avant de copier des trucs, elle marche et renvoie un i intéressant (avant j'avais des messages d'erreurs), le problème c’est que le format de la colonne B dans le fichier BLABLA est NumberFormat = "00" . Avec ce format, la méthode range échoue si tu rajoutes
Range("b"& i).value = "03" And



Auriez-vous une solution pour ce sous-problème ?



Sinon, comment dans ce cas là stocker la valeur i quelque part et faire démarrer j avec cette valeur ??



Et quand on aura tout ça, comment ça s’écrit une plage avec un compteur dedans ? comme ça : [« f »& i : « f »& j] ??