macro Extraire_copier/coller

[starz]

Bonjour le forum,
j'aurai besoin une fois de plus de vous pour une macro VBA.

Je dois extraire les valeurs sur la feuille OP dans la ou les plages nommés(tout dépend des fichiers) sur une autre feuille nommé extract.
VALEURS DE MA FEUILLE OP A RECUPERER
B8:G53
P8:U53
AD8:AI53
AR8:AW53
etc... soit toutes les 14 colonnes


Je souhaiterai mettre bout à bout mes valeurs receuilli sur la feuille EXTRACT sur la plage A:F en supprimant toutes les lignes vides.

Je pense qu'il n'y a pas besoin de fichier exemple mais si besoin je vous en envoie un.

D'avance Merci

 

[pierrejean]

Re : macro Extraire_copier/coller

bonjour starz

un fichier exemple aiderait certainement !!!

 

[starz]

Re : macro Extraire_copier/coller

bonjour prierrejean,
Voici le fichier,



merci

voici une macro enregistrement de ma manip

Sub extraction()
'
' extraction Macro
' Macro enregistrée le 25/09/2007 par BOISSELIER Vincent
'
' Touche de raccourci du clavier: Ctrl+w
'
Range("B8:G53").Select
Selection.Copy
Sheets("Extract").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=15
Sheets("Op").Select
Range("P8:U53").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
Sheets("Extract").Select
Range("A47").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=51
Range("A93").Select
Sheets("Op").Select
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
Range("AD8:AI53").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Extract").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=27
End Sub

 

[pierrejean]

Re : macro Extraire_copier/coller

Re

un essai ci-joint

Mais je suppose que Ti aurait fait bien mieux !!!

http://cjoint.com/?jzkOyinqGb

 

[starz]

Re : macro Extraire_copier/coller

re,
Désolé mais je ne vois rien sur le fichier joint 😕

 

[pierrejean]

Re : macro Extraire_copier/coller

re

mes excuses pour la fausse manip

vois si cela va mieux

http://cjoint.com/?jzlViHwCPG

 

[starz]

Re : macro Extraire_copier/coller

merci cette fois c'est bon
par contre est-ce possible d'avoir le résultat sur 3 colonnes ?
exemple
en A Ref
en B désignation
en C qté

 

[pierrejean]

Re : macro Extraire_copier/coller

Re

vois si cela convient

http://cjoint.com/?jzn4Rwxd0I

 

[starz]

Re : macro Extraire_copier/coller

merci c'est presque bon


peut on rajouter une condition :
si une ligne dont les cellules B et C sont vides alors on supprime la ligne



merci pierrejean

je réédite: je ne pensait pas qu'il y aurait autant de bins lors de cette macro , d'ou ma seconde question de rajouter une condition , désolé

 

[pierrejean]

Re : macro Extraire_copier/coller

re

voila

http://cjoint.com/?jzr5kr84Br

 

[starz]

Re : macro Extraire_copier/coller

Whaou merci Pierrejean,

Désolé , vous avez déjà fait beaucoup pour moi , mais j'aimerais savoir si c'est possible de rajouter 2 dernières conditions :

si la ligne dont la cellule A contient une valeur TEXTE alors la ligne est supprimée

Si la ligne dont la cellule C contient une valeur = PM alors la ligne est suppimée

merci et je pense que là sa sera bon , car à chaque maco que vous faite j'essai sur un fichier avec 1452 lignes et à chaque fois j'ai quelques cas auxquel je ne m'attendais pas.

Mille fois merci

PS: j'ai remarqué un bug, si on clique 2fois de suite sur le bouton, on n'obtient 2 résultats différents ?? bizarre cette affaire 🙂

 

[pierrejean]

Re : macro Extraire_copier/coller

RE

Vois si ça va

nb : j'ai fait la modif avant de tester et cette fois le resultat semble le même

http://cjoint.com/?jztmzimsLT

 

[starz]

Re : macro Extraire_copier/coller

merci énormément ,cette fois c'est la bonne.

Mille merci et bonne soirée🙂