High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Extraction excel

Dernière réponse le 14 avr 2008 à 18:55:01 lusitan, le 14 avr 2008 à 14:30:59 
 Signaler ce message aux modérateurs

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.xl­s

Configuration: Windows XP
Internet Explorer 7.0

merci de votre aide

Meilleures réponses pour « extraction excel » dans :
[Audio] Extraction d'un CD audio - Création de ses propres MP3 VoirLa création de fichiers MP3 par extraction des pistes de ses propres CD audio est autorisée par la loi (contrairement au téléchargement de MP3 protégés par le droit d'auteur). L'extraction des pistes peut être réalisée grâce au logiciel CDex,...
Transformer un fichier Microsoft Excel (.xls) en PDF VoirTransformer en fichier PDF un fichier Microsoft Excel (.xls) Rien de plus simple ! Ouvrez votre fichier *.xls avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer en...
Importer ses contacts sous Outlook à partir d'Excel VoirImporter ses contacts sous Outlook à partir d'Excel Problème Comment importer une liste de contact d'Excel vers Outlook, en ne les mettant que dans une seule liste de contact, et non contact par contact ? Solution En utilisant les logiciels...
Tableur - L'interface d'Excel VoirPrésentation d'Excel Microsoft Excel est le tableur de la suite bureautique Microsoft Office. Pour le lancer il suffit de cliquer sur l'icone appropriée de votre menu Démarrer (sous Windows) ou bien de cliquer sur un fichier Excel (dont...
Posez votre question Répondre

1

LePierre, le 14 avr 2008 à 15:50:50

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

http://cjoint.com/?eopVQv4ZzU

à plus

   
Répondre à LePierre

2

lusitan, le 14 avr 2008 à 16:11:19

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

   
Répondre à lusitan

3

lusitan, le 14 avr 2008 à 16:22:26

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*

   
Répondre à lusitan

4

LePierre, le 14 avr 2008 à 17:15:34

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

   
Répondre à LePierre

5

 lusitan, le 14 avr 2008 à 18:55:01

Merci, merci .....c est au top
a bientot

   
Répondre à lusitan
Posez votre question Répondre
Ils ont besoin de votre aide