Extraire certaines lignes

[cassandre27]

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

 

[ChTi160]

Re : Extraire certaines lignes

Salut cassandre27
Bonjour le Fil
Bonjour le Forum

Arff ,je ne m'y retrouve plus A l'Aide !!!!!!!!!!!!!!!! Lol (je bosse sur plusieurs fichiers et je ne sais plus à qui j'ai répondu ou pas ) 😕
Peux tu me dire quel est le problème ???? 😛

Dans l'attente
Bonne journée

 

[cassandre27]

Re : Extraire certaines lignes

Donc comme je disais plus haut, tu m'as fait un super fichier mais compatible avec mon fichier exemple !!
Maintenant je veux adapter ton programme sur mon fichier Réel !! qu'est ce que je dois changer dans le programme ?
Si tu as le temps de me mettre des p'tits commentaires sur le programme, comme ça je vais comprendre !!

Encore Merci

 

[BOISGONTIER]

Re : Extraire certaines lignes

Bonjour,

Voir PJ

Sub Essai()
  Set f1 = Sheets("feuil1")
  Set f2 = Sheets("feuil2")
  f2.Cells(2, 1).Resize(1000, 10).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, 1) = c.Offset(0, 2) 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
    totalE = 0
    totalF = 0
    Do While f1.Cells(ligne, 1) = c
      For i = 1 To 6
        f2.Cells(ligne2, i).Value = f1.Cells(ligne, i).Value
      Next i
      totalE = totalE + Cells(ligne, "E").Value
      totalF = totalF + Cells(ligne, "F").Value
      ligne = ligne + 1
      ligne2 = ligne2 + 1
    Loop
    f2.Cells(ligne2, "D") = "Total"
    f2.Cells(ligne2, "D").Resize(1, 3).Font.Bold = True
    f2.Cells(ligne2, "E") = totalE
    f2.Cells(ligne2, "F") = totalF
    ligne2 = ligne2 + 2
  Next c
End Sub

JB

 

[cassandre27]

Re : Extraire certaines lignes

Merci à toi, pour ce programme qui marche très bien aussi !!

Mais je renouvelle ma question, qu'est ce que je change dans le programme pour l'adapter à mon tableau Réel ?!!!

Encore merci

 

[ChTi160]

Re : Extraire certaines lignes

Salut cassandre27
Re le Fil ,Le Forum

En pièce jointe le fichier avec Commentaires

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

Arfff ,tu sais , nous on en sait rien Lol .Tu es la seule à voir comment ce compose ton fichier ,mais si tu mets ne serait ce que quelques lignes de données non confidentielles ,mais avec la bonne mise en forme ,alors la on saura te dire Lol ,ou alors vois ce que tu peux faire avec les commentaires
n'hésite pas si besoin !!!

Bonne Journée

 

[BOISGONTIER]

Re : Extraire certaines lignes

En quoi le tableau réel est-il différent?

JB

 

[cassandre27]

Re : Extraire certaines lignes

Merci à vous deux, et je suis en train de lire les commentaires, merci car je comprends, un p'tit peu, mieux ce qui est écrit !! 😉

Mais je vous joins un p'tit bout de mon tableau réel.

 

[cassandre27]

Re : Extraire certaines lignes

Et bien voilà, je viens de tester, et ça marche pas avec mon tableau réel, ça me surligne en jaune cette phrase :

If CDate(Tabtemp(Ligne, 2)) = CDate(Tabtemp(Ligne, 3)) And Tabtemp(Ligne, 7) <> "x" Then 'si les deux dates des colonnes 2 et 3

 

[BOISGONTIER]

Re : Extraire certaines lignes

Voir PJ

JB

 

[cassandre27]

Re : Extraire certaines lignes

Boisgontier merci merci merci, ça à l'air de marcher !!
Le p'tit soucis, il faut que je remette tout en forme !!
C'est à dire, en 1ere colonne j'avais les n° SS et bien ils se retrouvent plus loin ?!! et puis d'autres p'tit trucs !!

merci à vous deux, merci !!

 

[cassandre27]

Re : Extraire certaines lignes

Je viens de regarder, donc le soucis, les noms ont bien été reportés, mais les prénoms et nom maritaux, il y a plus rien ?

Dans mon tableau réel, car dans mon exemple je les avais enlevés !!

 

[BOISGONTIER]

Re : Extraire certaines lignes

Voir PJ

JB

 

[cassandre27]

Re : Extraire certaines lignes

Boisgontier merci de ta rapidité, ben ça à l'air de marcher, tout est resté en place !! lol

Je vais partir manger, je fait des vérifs, et je te tiens au courant !!

Car bien sur j'ai pas fini de vous embêter !! lol

Car mes totaux qui ressortent, j'ai fait des recherches sur le site, je voudrais calculer un plafond de Sécurité Social !!!
Donc sur le site j'ai vu quelques "trucs", mais il y a des choses qui ne vont pas !! j'expliquerai tout à l'heure ce que je veux !!

Et encore merci à vous deux pour tout votre temps passé !!!

 

[ChTi160]

Re : Extraire certaines lignes

Re
en pièce jointe

Le dernier fichier exemple adapté

l'erreur que tu rencontres est du au fait que dans ton nouveau fichier les Dates ne sont plus en colonne 2 et 3 mais 5 et 6, donc comme ces cellules ne contiennent pas des dates (Cdate()) Eh bien erreur !!!

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

je 't'ai mis des commentaires

Bonne fin de Journée

 

[cassandre27]

Re : Extraire certaines lignes

Chti160 je viens de tester sur mon tableau réel, j'ai encore une erreur sur cette ligne :
.Range("A2").Resize(UBound(TabRecup, 2) + 1, UBound(TabRecup, 1)) = Application.Transpose(TabRecup)

pourtant sur mon exemple ça marche bien ?!!!

C'est pas grave le programme de Boisgontier marche bien.