Souci de Copier/Coller avec filtre sur 100 cellules
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.
Edit modo : code à mettre entre balise avec le bouton </> ci-dessus
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.
Bonjour et
Je vous invite fortmeent à lire :
- La charte du forum
- Quelques fonctionnalites du forum à connaître
Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui :
- vous permettent de poster un code (</>)
- ou de clôturer un fil lorsque vous avez terminé (V)
Merci pour votre participation
Bonjour et merci
Je vous pris de bien vouloir m'excuser BrunoM45, je n'ai pas vraiment l'habitude de venir sur ce type de forum "spécialisé".
'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 = 0Je vous joint également les deux fichier que j'utilise.
Le fichier Final est celui qui me sert de ficier d'analyse.
Le fichier CourantDataFile me sert de base de donnée.
Pour le fichier Final, celui qui me servira de fichier d'analyse, ma programmation est dans le module 1.
La programmation qui fonctionne actuellement est celle de :
Pour
'/// VALIDATION EPICEA 100 /////
'//////validation 100 Epicéa G20
Pour pouvoir utilisé la macro Epicéa 100 G20 en automatique, il faut cocher les cases correspondante en haut du fichier Final et cliquer sur le bouton Validation.
Et s'arrête juste au dessus de '///////validation 100 Epicéa G24
Ce sont les séparation que j'ai mise pour m'y retrouver, les autres plus bas ne sont pas encore aboutie.
La seul autre aboutie est plus bas est :
'/// VALIDATION DOUGLAS 100 /////
Pour pouvoir utilisé la macro Douglas 100 G28 en automatique, il faut cocher les cases correspondante en haut du fichier Final et cliquer sur le bouton Validation.
'///////validation 100 Douglas G28
Exemple pour le Douglas G28 :
Encore désoler.
Re,
A priori non, comme vous n'avez pas l'habitude de lire les chartes, sinon
- Ne postez pas la même question sur un autre forum pour éviter de faire perdre bêtement du temps aux membres sur un problème qui peut être déjà résolu sur l'autre forum. L'inverse est également valable, si vous avez déjà posé votre question sur un autre forum, ne créez pas un doublon sur ce forum (à moins d'avoir clôturé le sujet sur l'autre forum).
Désolé, mais je dois clôturer le sujet à moins que vous le fassiez sur XLD
Merci de votre compréhension