Extraction excel

Résolu
lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -  
lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,
J avais posé une question concernant un tableur personne ne le connais donc je vais essayer de refaire le meme avec excel mais j ai besoin d aide car je connais pas les macros
sur le tabeur joint j ai besoin de
Quand je saisie le numero de semaine dans la cellule jaune et que j appuie sur le bouton de commande ( qui est est lié a une macro de recopier de la page programme vers la page extraction toutes les cellules de la colonne A qui ont une croix ( ou autre si c est plus facile ) sous le meme numéro de semaine que dans la cellule jaune
pour la mise en forme du planning j ai deja des astuces.
Chaque semaine le nombre de cellules à copier est different donc il faudra effacer tout le contenu avant de coller les nouvelles valeurs
La cellule machine sera collée aussi si elle possede une croix
http://www.cijoint.fr/cjlink.php?file=cj200804/cijd4dReHQ.xls
merci de votre aide
A voir également:

1 réponse

Réponse 1 / 1
LePierre Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   338
 
bonjour

voici ce que j'ai réalisé à partir de l'enregisteur de macros
j'ai modifié ton tableau de données pour permmettre l'action du filtre (pas de lignes vides intercallées, pas de titre redondant)
Ce code mériterait d'être optimisé pour accélérer le processus

https://www.cjoint.com/?eopVQv4ZzU

à plus
0
lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour
C est nickel , je l ai récupéré ca marche , j ai juste retiré la copie des x , je vais essayer de modifier la macro de manière a ajouter le filtre et le retirer apres execution , sinon c est tip top
merci beaucoup
0
lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   > lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
je rame , comment je peux modifier la macro pour mettre le filtre et l enlever , et revenir par defaut sur la page planning
merci encore*
0
LePierre Messages postés 249 Date d'inscription   Statut Membre Dernière intervention   338 > lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention  
 
bonjour

voici le code qui devrait te convenir : 
Sub CopyDataSemaine2()

    Application.ScreenUpdating = False
    
    'initialisation
    Sheets("extraction").Select
    Cells.Select
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlUp
    Range("A1").Select
    
    Sheets("Programme").Select
    Range("B4").Select
    Selection.AutoFilter
    Semaine = Cells(1, 4).Value
    Col = Semaine + 1
    
    Selection.AutoFilter Field:=Col, Criteria1:="x"
    
    Range("A4:A14").Select
    Selection.Copy
    Sheets("extraction").Select
    Range("A4").Select
    ActiveSheet.Paste
    Range("A4").Value = "S" & Semaine
    Range("B1").Select
    
    Sheets("Programme").Select
    Selection.AutoFilter
    Range("E2").Select
    Sheets("extraction").Select
    Application.ScreenUpdating = True
    
End Sub

à plus
0
lusitan Messages postés 6 Date d'inscription   Statut Membre Dernière intervention   > LePierre Messages postés 249 Date d'inscription   Statut Membre Dernière intervention  
 
Merci, merci .....c est au top
a bientot
0