XL 2016 Souci copier/coller avec un filtre.

[Xender]

Bonjour,

Je me permet de venir vers vous car j'ai un souci.

J'ai actuellement un code VBA qui me permet de :
_ filtrer les deux colonnes nécessaire pour mes analyse dans le ficher de données.
_ Puis de copier les 100 dernières valeur rentrées dans le fichier de donné.
_ Et les coller dans mon fichier d'analyse.

'Filtrage Epicéa G20
Sheets("CourantDataFile").Range("A3:N3").AutoFilter Field:=6, _
                                     Criteria1:="Epicéa"
Sheets("CourantDataFile").Range("A3:N3").AutoFilter Field:=7, _
                                     Criteria1:="G20"
                                     
'Copie Rupture
    Dim derlig&
With Sheets("CourantDataFile")
derlig = .Cells(.Rows.Count, "H").End(xlUp).Row
If derlig < 100 Then Exit Sub
.Cells(derlig - 99, "H").Resize(100).Copy
End With
Windows("Final").Activate
With ActiveSheet
.Range("E20").PasteSpecial xlPasteValuesAndNumberFormats
Application.Goto .Range("A1"), True 'cadrage
End With
Application.CutCopyMode = 0

Sur le code que j'ai mis, c'est le filtre de l'épicéa mais lui à les valeurs nécessaire, par contre quand je fait la même chose avec le Douglas G28 ca ne fonctionne pas.

Toute la partie copier coller fonctionne correctement.

Le problème que j'ai, c'est que lorsque la macro copie les 100 valeurs à partir de la dernière ligne renseignée, elle va quand même copier au delà du filtre si il n'y a pas 100 valeur présent dans les valeur filtrées.

Du coup lorsque je transfert les données pour analyse, il y a des données en trop qui ne doivent pas être présente.
Comme sur la photo, ou l'on voie deux essence de bois en Epicéa G20 et en Douglas G28.

Je ne sais pas si il éxiste une ligne de programmation pour dire :
Soit de copier les 100 valeur si elle sont présente.
Soit de copier que la partie filtrée si les 100 valeurs ne sont pas présentes.

J'espère être assez claire dans mes explication, si vous avez des question n'hésitez pas à revenir vers moi.

Cordialement.

 

[fanfan38]

Et pour faire plaisir à Chti160 (Salut)
Ps j'ai même repris la programmation concernée...

A+ François

 

[ChTi160]

Re
Juste une idée,rien d'obligatoire !
Jean marie

 

[ChTi160]

Re
de retour sur mon Ordi

xender tu dis :

Nous pouvons sélectionner :

Epicéa G20 100
Epicéa G24 100
Epicéa G28 100
Epicéa G20 15
Epicéa G24 15
Epicéa G28 15

On fait un tableau des possibles sélections et On les entre dans une ListBox
Si ce sont les seules Possibilités pourquoi ne pas pouvoir les sélectionner directement ?

jean marie

 

[ChTi160]

Re
Autres questions :
d'après le Code du "Module 1" j'ai pu déterminer les Combinaisons possible des Essences "Epicéa" et "Douglas"

Epicéa	G20	100	15
Epicéa	G24	100	15
Epicéa	G28	100	15
Douglas	G20	100	15
Douglas	G24	100	15
Douglas	G28	100	15

Quand est-il des autres essences ?
Ou sont-ce les mêmes données ?
Merci par avance.
Jean marie

 

[Xender]

Bonjour François,

Tout fonctionne parfaitement c'est génial !

J'ai juste une dernière requête :
Après multiple test, j'ai constaté que si la date était supérieur à 6 mois entre deux essai (date de fabrication), la date n'était pas copier dans le tableau, et il n'y avait pas de MsgBox pour signalé le dépassement. J'avais une macro dans le module 3 pour effectuer ceci, je ne sais pas si 'est possible de l'intégrer dans votre code pour que lors du copier/coller, une vérification ce face et ouvre la message box si la date est supérieure à 6 mois.

Après ceci, je ne vous embête plus !

J'ai essayé de comprendre votre code, j'ai compris pas mal de choses, cela m'aideras beaucoup pour les prochains temps mais je vous avoue que n'ayant pas encore tout compris je ne préfère pas encore trop trifouiller ^^

En tout cas tout cela va beaucoup m'aider dans mon métier, et je vous en remercie fortement François.

 

[fanfan38]

Bonjour
Avec message date

A+ François

 

[ChTi160]

Bonjour le Fil
Ai je bien compris ?
Xender Tu dis :
"J'ai juste une dernière requête :
Après multiple test, j'ai constaté que si la date était supérieur à 6 mois entre deux essai (date de fabrication), la date n'était pas copier dans le tableau, et il n'y avait pas de MsgBox pour signalé le dépassement"
Il y a une condition de date lors du filtrage ?
Bonne fin de journée
Jean marie

 

[Xender]

Jean marie : Il n'y a pas de condition de date lors du filtrage, mais j'ai besoin de savoir si il y a plus de 6 mois en l'essais réalisé et le plus vieux. Donc une analyse de date pour savoir si il n'y a pas plus de 6 mois d'écart.

François : Le MsgBox apparait c'est parfait, mais la date n'est pas copier dans le tableau du fichier final et j'aurais besoin qu'elle le soit.

Merci beaucoup.

 

[fanfan38]

Dans ton 1er post on effaçait les dates supérieures à 6 mois....
C'est fait...

A+ François

 

[Xender]

J'ai du faire un erreur dans mon premier post

Pourriez vous essayer avec ce fichier ? J'ai simuler l'incrémentation machine en rentrant les valeurs manuellement dans le fichier.

Le fichier final m'indique beaucoup de ligne hors 6 mois.

 

[fanfan38]

Bonjour
J'ai changé 2 dates (1 en epica g20 et une en epicea g28 pour les essais.)
Ca me semble correct...

A+ François

 

[ChTi160]

Bonjour le Fil
Bien que le sujet soit résolu !
Ce que j'avais commencé à faire Lol
Je vais continuer Lol
Jean marie

 

[Xender]

Bonjour tous le monde,

Merci beaucoup François tout est parfait je devait avoir souci je sais pas, mais j'ai réessayé ca fonctionne correctement. Encore merci pour votre patiente et votre aide.

Jean Marie, votre présentation m'intéresse beaucoup ^^ Si jamais vous voulez continuer je suis curieux de voir le suite

 

[ChTi160]

Bonjour le Fil
Bien que mes questions restent souvent sans réponse......
Une autre question : dans ton fichier "Courantdatafile" la BDD est elle triée.
Si oui selon quels critères.
Ou alors l'ordre ne doit pas être modifié ?
Jean marie

 

[Xender]

Je ne sais pas ce qu'est la BDD
Enfaite c'est un fichier machine qui va être incrémenté à chaque essais que la machine fait, donc ligne par ligne, et cet ordre ne doit pas être modifié.

Nous parlions de filtre car pour les transférer dans la fichier "Final" qui servira de fichier d'analyse, les données doivent être filtre en fonction des petits menu que tu as réalisé, sans modifier l'ordre du fichier "CourantDataFile"