Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1651 connectés 

  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Données excel dans pls onglet

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Données excel dans pls onglet

n°2607901
TheFreeMar​mote
Posté le 05-01-2007 à 15:17:09  profilanswer
 

Bonjour, afin d'éviter de très longue manip, je voudrais savoir s'il existe une fonction ou une commande de macro qui puisse me permettre le traitement suivant :::
 
j'ai un énorme tableau dans access, que je voudrais "découper" selon un certain critère (qui se trouve dans une colonne) et que ce découpage exécute la repartition dans les différents onglets avec le nom du critère sur l'onglet...  
 
Possible ça ????
 
 
Merci

mood
Publicité
Posté le 05-01-2007 à 15:17:09  profilanswer
 

n°2607930
TheFreeMar​mote
Posté le 05-01-2007 à 15:47:02  profilanswer
 

un ptit yup...c'est urgent :/

n°2608147
seniorpapo​u
Posté le 05-01-2007 à 18:51:51  profilanswer
 

Bonsoir,
Si c'est avec excel et non access, ceci peut probablement convenir.
On suppose que les onglets n'existent pas au départ.
 
Sub recfil()
'ADAPTE d'une réponse sur le forum
    'On suppose que le filtre s'applique sur la colonne H
    'et que le premier worksheet s'appelle "origin2004"
     
    Dim Cell As Range
    Dim Unique As New Collection
    Dim Valeur As Range
    Dim i As Integer
    Application.ScreenUpdating = False
    Set w = Worksheets("origin2004" )
    w.Select
      w.AutoFilterMode = False
    'Récupère la derniere ligne non vide dans la colonne A
    i = Range("H65536" ).End(xlUp).Row
     
    On Error Resume Next
    'boucle sur les cellules de la colonne A
    For Each Cell In Range("H2:H" & i)
    If Not Cell.EntireRow.Hidden Then Unique.Add Cell, CStr(Cell)
        'Stocke les données dans une collection
        '(La collection n'accepte que des données uniques et permet donc
        ' de filtrer facilement les doublons).
        'Unique.Add Cell, CStr(Cell)
    Next Cell
    On Error GoTo 0
     
    'Boucle sur le contenu de la collection pour créer les onglets
     
    For Each Valeur In Unique
    w.AutoFilterMode = False
    w.Range("H:H" ).AutoFilter field:=1, Criteria1:=Valeur
    Sheets.Add
    ActiveSheet.Name = Valeur
    nomsh = Valeur
    Sheets("origin2004" ).Rows.Copy Sheets(nomsh).Range("a1" )
    Next Valeur
     
    Application.ScreenUpdating = True
End Sub
Cordialement

n°2609765
TheFreeMar​mote
Posté le 08-01-2007 à 09:35:23  profilanswer
 


 
Superbe....Tout simplement Merci, j'ai changé les variables et tout fonctionne parfaitement...Le genre de manip qui évite une voir plusieurs heures de taff...
 
 :bounce:


Message édité par TheFreeMarmote le 08-01-2007 à 09:35:45

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Windows & Software
  Logiciels

  Données excel dans pls onglet

 

Sujets relatifs
macro excel qui s'interrompt[excel]probleme d'ouverture de fichiers xls a partir de l'explorateur.
Comment ouvrir 2 classeurs excel dans deux ecrans différentsDonnées visibles mais illisibles
Conseille sauvegarde des donneesStockage de mes données importantes sur internet ?
recuperer des données sur dvd rCherche formule excel
Excel -> graphique nuages de points ou courbesprobleme word et excel
Plus de sujets relatifs à : Données excel dans pls onglet


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR