extraction des donneés selectives

[olive323]

Bonjour à tous,

J'aurais besoin d'aide car je n'arrive pas à extraire les données d'un planning.

J'aimerais pouvoir extraire des données via un userfrom avec la possibilité d'extraire en fonction :
du choix de l'onglet S1 ou S2 ect...
du choix de la date ou compris entre 2 dates
du choix du nom prenom ou tous les nom prenom
du choix du type de contrat
du choix du code activité
du choix du motif d'absence
+ les heures de debut, fin, pause et total.
et que ces données soient renvoyer dans l'onglet extraction.

pouvez vous me donner un exemple et je tenterai de continuer?

Merci de votre aide

Cordialement

Olive323

 

[JBARBE]

Re : extraction des donneés selectives

Bonjour,

Voici un exemple de macro pour chaque jour !

Je n'ai pas pu continuer la feuille S1 est protégée

Sub extraire_02_01_12()
Dim i As Long
Dim j As Long
Sheets("S1").Select
 For i = 4 To 11
  If Cells(i, 2) = "" Then Exit Sub
  Range(Cells(i, 2), Cells(i, 9)).copy
 Sheets("extraction").Select
   For j = 2 To 65536
   If Cells(j, 3) = "" Then
    Cells(j, 3).Select
     ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells(j, 1) = 1
    Cells(j, 2) = Range("K2")
    Sheets("S1").Select
    Exit For
    Else
    Cells(j + 1, 3).Select
    End If
    Next j
Cells(i + 1, 2).Select
    Next i
    
End Sub

Sub extraire_03_01_12()
Dim i As Long
Dim j As Long
Sheets("S1").Select
 For i = 4 To 11
  If Cells(i, 10) = "" Then Exit Sub
  Range(Cells(i, 10), Cells(i, 17)).copy
 Sheets("extraction").Select
   For j = 2 To 65536
   If Cells(j, 3) = "" Then
    Cells(j, 3).Select
     ActiveSheet.Paste
    Application.CutCopyMode = False
    Cells(j, 1) = 2
    Cells(j, 2) = Range("K3")
    Sheets("S1").Select
    Exit For
    Else
    Cells(j + 1, 3).Select
    End If
    Next j
Cells(i + 1, 2).Select
    Next i
    
End Sub

Quand c'est fait il suffit de créer un bouton avec la macro suivante

Sub extraire_Total()
extraire_02_01_12
extraire_03_01_12
End Sub

 

[olive323]

Re : extraction des donneés selectives

Merci

**** mot de passe 4 etoiles

 

[olive323]

Re : extraction des donneés selectives

Merci pour ce retour

Je t'avoue que ca me donne des idées, mais pour les 365jours il faudrait un truc plus simple a faire.


Cordialement

 

[JBARBE]

Re : extraction des donneés selectives

c'est toute ambiguïté de ce fichier qui va chercher les saisies dans différentes colonnes et lignes !

Quelques tableaux auraient facilité la tâche !

Pour ces macros qui sont à peu prés identiques, il suffit de faire un copier coller et de changer les colonnes et lignes !

Par exemple

If Cells(i, 2) = "" Then Exit Sub
  Range(Cells(i, 2), Cells(i,9)).copy

la colonne de départ et 2 et la derniére et 9 ( i = la ligne qui ne bouge pas ici 4)

Pour la suite = +1 et +7

If Cells(i, 10) = "" Then Exit Sub
  Range(Cells(i, 10), Cells(i, 17)).copy

Et bien entendu de renommé la macro !

Oui 365 macros ( tableaux) c'est du boulot, mais que faire !!!!!

 

[olive323]

Re : extraction des donneés selectives

En cherchant un peu comme ci dessous ca limite à une semaine

il reste à mettre les date devant chaque ligne extraite???

Sub extraire_02_01_12()
Dim i As Long
Dim j As Long
Dim NomSem As String
NomSem = ActiveSheet.Name
Sheets(NomSem).Activate
'Sheets("S1").Select
For i = 4 To 11
If Cells(i, 2) = "" Then Exit Sub
Range(Cells(i, 2), Cells(i, 9)).copy
Sheets("extraction").Select
For j = 2 To 65536
If Cells(j, 3) = "" Then
Cells(j, 3).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets(NomSem).Select
Exit For
Else
Cells(j + 1, 3).Select
End If
Next j
Cells(i + 1, 2).Select
Next i

End Sub

 

[JBARBE]

Re : extraction des donneés selectives

Je t'envoie un modèle (module8) de ce que vais essayé de compléter !

Mais ton fichier va être trés volumineux et de fait changer de fichier toutes les semaines au moins!

 

[JBARBE]

Re : extraction des donneés selectives

Voilà j'ai fait le travail jusqu'au 15 janvier pour les feuilles S1 et S2 et les macros extraire_Total_Feuille_S1 et
extraire_Total_Feuille_S2 MODULE 8 ET 9

Je n'ai pas été long

Tu as le temps d'en faire autant !

 

[olive323]

Re : extraction des donneés selectives

Merci beucoup je décroche depuis ce matin

 

[JBARBE]

Re : extraction des donneés selectives

Voilà j'ai fait le mois de Janvier 2012 !

 

[JBARBE]

Re : extraction des donneés selectives

Le mois de Février ! maintenant !

A suivre !

 

[JBARBE]

Re : extraction des donneés selectives

Le mois de mars 2012 maintenant ( soit 12 semaines)

 

[JBARBE]

Re : extraction des donneés selectives

Le mois d'Avril 2012 maintenant ( soit 16 semaines)

 

[JBARBE]

Re : extraction des donneés selectives

Le mois MAI 2012 maintenant ( soit 20 semaines)

 

[JBARBE]

Re : extraction des donneés selectives

Le mois JUIN 2012 maintenant ( soit 24 semaines)

A demain !