Extraire certaines lignes

cassandre27 · 9 Juin 2008

Bonjour,

J'ai déjà eu besoin de votre forum, et on m'a vraiment aidé (merci encore), et là j'aurai besoin de vos lumières, encore !!

Alors je joins un fichier excel en exemple et j'explique :

Je voudrais que les lignes Date E qui sont égales au lignes Date S soient sur une autre feuille, en sachant qu'il faut prendre toutes les lignes du même nom :
Pour aaa la ligne 4B et 4C sont égales, donc mettre toutes les lignes aaa sur une autre feuille.

Ensuite sur l'autre feuille où les lignes sont extraites, additionnées les lignes SSSS dans une colonne à coté.

Merci encore

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

Bon encore moi !!!!

Pour le programme de Boisgontier tout avait l'air de bien marcher, mais les totaux ne sont pas bons, aucuns !!!

Alors que dans l'exemple ils sont bons ?!!

ChTi160 · 12 Juin 2008

Re : Extraire certaines lignes

Re

Chez moi cela fonctionne très bien sur le fichier exemple, donc je ne vois pas d'où cela put venir.

Pour ma culture personnelle ,et avant de passer la main à JB Lol

Quel message d'erreur as tu ,merci D'avance

Dans l'attente

Bonne fin de Journée 😕

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

Et bien oui le problème sur le fichier exemple ça marche bien, et ça fait bien les lignes vertes !!
Mais je lance la macro, la ligne ça l'a mets en jaune !!! donc je suppose que ça veut dire qu'il y a une erreur ?

BOISGONTIER · 12 Juin 2008

Re : Extraire certaines lignes

Si les noms identiques ne sont pas regroupés, il faut ajouter un tri

JB

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

Alors la je comprends plus rien, je viens de retester sur mon tableau réel, maintenant ça me mets une erreur sur la ligne :

Public TabRecup() As Variant

et le message erreur de compilation, alors que ce matin quand j'ai testé c'était une ligne qui était surligné en jaune !!!

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

BOISGONTIER à dit:
Si les noms identiques ne sont pas regroupés, il faut ajouter un tri

JB

Et bien je viens de retester, c'est bien les totaux qui sont pas bons !!!
par exemple il y a plusieurs sommes à additionner et ça mets total 0 !!
ou quand il y a des sommes à 0, le total reprends une somme qui est marqué sur un nom avant !!!
Alors que sur l'exemple ça marche bien !!!!😕

BOISGONTIER · 12 Juin 2008

Re : Extraire certaines lignes

Le tri par nom a t-il était ajouté?

Code:

Sub Essai()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  f1.Range("A1:W65000").Sort Key1:=f1.Range("B2"), Order1:=xlAscending, Header:=xlGuess

  f2.Cells(2, 1).Resize(1000, 50).Clear
  '-- recherche noms
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In f1.Range("b2", f1.[b65000].End(xlUp))
    If Not mondico.Exists(c.Value) And c.Offset(0, 3) = c.Offset(0, 4) Then
      mondico.Add c.Value, c.Value
    End If
  Next c
  '-- recherche des lignes de chaque nom
  ligne2 = 2
  For Each c In mondico.items
    Set x = f1.[B:B].Find(what:=c)
    ligne = x.Row
    totalO = 0
    totalP = 0
    
    Do While f1.Cells(ligne, 2) = c
      For i = 1 To 4
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next
      For i = 5 To 6
        f2.Cells(ligne2, i).Value = CDate(f1.Cells(ligne, i).Text)
      Next i
      For i = 7 To 23
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next i
      totalO = totalO + Cells(ligne, "O").Value
      totalP = totalP + Cells(ligne, "P").Value
      ligne = ligne + 1
      ligne2 = ligne2 + 1
    Loop
    f2.Cells(ligne2, "N") = "Total"
    f2.Cells(ligne2, "N").Resize(1, 3).Font.Bold = True
    f2.Cells(ligne2, "O") = totalO
    f2.Cells(ligne2, "P") = totalP
    ligne2 = ligne2 + 2
  Next c
End Sub

JB

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

BOISGONTIER à dit:

Le tri par nom a t-il était ajouté?

Code:

Sub Essai()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  f1.Range("A1:W65000").Sort Key1:=f1.Range("B2"), Order1:=xlAscending, Header:=xlGuess

  f2.Cells(2, 1).Resize(1000, 50).Clear
  '-- recherche noms
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In f1.Range("b2", f1.[b65000].End(xlUp))
    If Not mondico.Exists(c.Value) And c.Offset(0, 3) = c.Offset(0, 4) Then
      mondico.Add c.Value, c.Value
    End If
  Next c
  '-- recherche des lignes de chaque nom
  ligne2 = 2
  For Each c In mondico.items
    Set x = f1.[B:B].Find(what:=c)
    ligne = x.Row
    totalO = 0
    totalP = 0
    
    Do While f1.Cells(ligne, 2) = c
      For i = 1 To 4
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next
      For i = 5 To 6
        f2.Cells(ligne2, i).Value = CDate(f1.Cells(ligne, i).Text)
      Next i
      For i = 7 To 23
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next i
      totalO = totalO + Cells(ligne, "O").Value
      totalP = totalP + Cells(ligne, "P").Value
      ligne = ligne + 1
      ligne2 = ligne2 + 1
    Loop
    f2.Cells(ligne2, "N") = "Total"
    f2.Cells(ligne2, "N").Resize(1, 3).Font.Bold = True
    f2.Cells(ligne2, "O") = totalO
    f2.Cells(ligne2, "P") = totalP
    ligne2 = ligne2 + 2
  Next c
End Sub

JB

Alors oui ça trie bien par noms, mais ça m'arrange pas, car moi je veux que se soit trié par n°ss, car plusieurs personnes peuvent avoir le meme nom !!
Et les totaux sont toujours faux !!!

ChTi160 · 12 Juin 2008

Re : Extraire certaines lignes

Re
Alors pourquoi ne fais tu pas le transféré par rapport au numéro de SS plutôt que le Nom
si Dates égales alors on récupère le n°SS et Oupsss

et moi je sais toujours pas pourquoi ça fonctionne Pas Lol ,,,,, bizarre non ???

les N° SS sont sensés être en colonne A c'est çà ?
Bonne fin de Journée

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

Oui on peut par n° ss, oui c'est dans la 1ere colonne, moi ce que je veux, c'est un total pour chaque personne, donc par n°

ChTi160 · 12 Juin 2008

Re : Extraire certaines lignes

Re
un exemple Lol(qui ne va fonctionner qu'en test Lol) 😕

Le Fichier : Regarde la pièce jointe exemple-V4.zip

Bonne fin de Journée

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

bon je viens de tester, sur le tableau d'exemple ça marche mais sur mon tableau et ben non !!!

Alors je te mets le message d'erreur sur cette ligne au début du programme :

Public TabRecup() As Variant

Ca me mets :

Erreur de compilation:

Des constantes, chaînes de longueur fixe, tableaux, types définis par l'utilisateur et instructions Declare ne sont pas autorisés comme membres Public de modules d'objet

BOISGONTIER · 12 Juin 2008

Re : Extraire certaines lignes

Il est dans quelle colonne le No SS?

Trié par NNI (colonneA)

KERO et LEM ont le même no?? (284)

Code:

Sub Essai()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  f1.Range("A1:W65000").Sort Key1:=f1.Range("A2"), Order1:=xlAscending, Header:=xlGuess

  f2.Cells(2, 1).Resize(1000, 50).Clear
  '-- recherche noms
  Set mondico = CreateObject("Scripting.Dictionary")
  For Each c In f1.Range("a2", f1.[a65000].End(xlUp))
    If Not mondico.Exists(c.Value) And c.Offset(0, 4) = c.Offset(0, 5) Then
      mondico.Add c.Value, c.Value
    End If
  Next c
  '-- recherche des lignes de chaque nom
  ligne2 = 2
  For Each c In mondico.items
    Set x = f1.[a:a].Find(what:=c)
    ligne = x.Row
    totalO = 0
    totalP = 0
    
    Do While f1.Cells(ligne, 1) = c
      For i = 1 To 4
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next
      For i = 5 To 6
        f2.Cells(ligne2, i).Value = CDate(f1.Cells(ligne, i).Text)
      Next i
      For i = 7 To 23
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next i
      totalO = totalO + Cells(ligne, "O").Value
      totalP = totalP + Cells(ligne, "P").Value
      ligne = ligne + 1
      ligne2 = ligne2 + 1
    Loop
    f2.Cells(ligne2, "N") = "Total"
    f2.Cells(ligne2, "N").Resize(1, 3).Font.Bold = True
    f2.Cells(ligne2, "O") = totalO
    f2.Cells(ligne2, "P") = totalP
    ligne2 = ligne2 + 2
  Next c
End Sub

ChTi160 · 12 Juin 2008

Re : Extraire certaines lignes

Re
apparemment il s'agit d'une erreur de placement de la variable

comment as tu fais pour placer le code du fichier test ,dans ton fichier et ou l'as tu placé ?
dans un Module Standard ,Module de Classe, etc

Dans l'attente
Bonne fin de Soirée

cassandre27 · 12 Juin 2008

Re : Extraire certaines lignes

ChTi160 à dit:
Re
apparemment il s'agit d'une erreur de placement de la variable

comment as tu fais pour placer le code du fichier test ,dans ton fichier et ou l'as tu placé ?
dans un Module Standard ,Module de Classe, etc

Dans l'attente
Bonne fin de Soirée

Je viens de réessayer, à n'y rien comprendre ça marche !! Bon je ne crie pas victoire, car j'ai testé sur un p'tit fichier, par rapport au fichier de 60 000 lignes, mais là ça marche !!
Sinon je fais un copier coller dans un module standard !! A n'y rien comprendre, donc dés demain matin j'essaye sur le gros fichier !!!

Pour répondre à Boisgontier, oui le n° ss est la colonne A, mais en effaçant les n° j'ai pas fait attention que 2 avait les mêmes !!

Merci encore à vous deux, et dés demain je vous dit si ça marche ou pas !!

Car maintenant, les totaux qui me ressortent pour chaque personne, il faut leur calculer un plafond !!

Je m'explique, les totaux sont des salaires brut, et le plafond de la Sécu est de 2682 par mois, 32184 à l'année.
Donc tout ce qui dépasse le plafond passe dans une autre colonne que l'on va appeler T2.
Mais le soucis du calcul va être , le Salaire Brut, par la date d'entrée et de Sortie, et le Temps partiel !!

Un exemple :

personne 1 date 01.01.2007 au 31.12.2007 salaire 20 000.

Tout reste en TA (comme il dépasse pas le plafond)

Personne 2 date 15.01.2007 au 15.06.2007 est à 50 % Salaire 10 000

Ca fait 6705 en TA et 3295 en T2 (du 15.01 au 15.06 ça fait un plafond de 13410 mais comme il travail 50 % , ça fait que 6705, donc 6705 en TA et le restant en T2)

euh ça va vous suivez ?!!!

Extraire certaines lignes

cassandre27

Guest

Pièces jointes

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

cassandre27

Guest

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

Discussions similaires

Extraire certaines lignes

cassandre27

Guest

Pièces jointes

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

cassandre27

Guest

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

BOISGONTIER

XLDnaute Barbatruc

Pièces jointes

ChTi160

XLDnaute Barbatruc

cassandre27

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency