XL 2013 copies lignes avec critères

[sev31130]

Bonjour,

j'avais écrit un post hier soir, je ne le vois plus mes excuses si cela fait doublon.

je joins un fichier ou il y a les explications de ce que j'aurais besoin

Par avance merci

Cordialement

CY

 

[natorp]

Re : copies lignes avec critères

Bjr Sev

Je ne vois rien en J51 de la feuille "Stats filtrées" ??
PS : peux-tu mettre un fichier au format Excel2003 ?

Cordialement, Gérard

 

[sev31130]

Re : copies lignes avec critères

re bonjour

mais c'et bien sur la vieillesse me joue des tours c'est en J1 (que l 'on peut changer en pointant la souris )
je me rends compte d'ailleurs que "<tout> en J1 à des crochets alors que je n'en ai pas mis sur "ecarts" si important
priére de les rajouter Merci
Si je mets en 2003 je passe plus trop lourd 468 ko et je suis limité a 297 ko

mes excuses
Cordialement

CY

 

[sev31130]

Re : copies lignes avec critères

oui d ailleurs il faut donc lire J1 partout ou j ai mis J51
Merci par avance
Cordialement

Yves

 

[sev31130]

Re : copies lignes avec critères

Bonjour,

personne ne veut se pencher sur mon problème et me dire si c'est faisable et comment

je joins de nouveau le fichier avec explications

Par avance merci

Cordialement

yves

 

[vgendron]

Re : copies lignes avec critères

Hello

une piste avec ce code

Option Explicit

Private Sub ComboBox1_GotFocus()
ComboBox1.List = Array("<tout>", "T", "P", "O", "<zéros>", "<vides>")
End Sub

Private Sub Combobox1_Change()
Dim w As Worksheet, critere$, P As Range
Dim c As Range
Dim decalage As Integer
Set w = Feuil1 'CodeName de la feuille source
critere = ComboBox1
Application.ScreenUpdating = False
Range("A2:G" & Rows.Count).Delete xlUp 'RAZ
If w.FilterMode Then w.ShowAllData 'si un filtre est en place
Set P = w.Range("A1:G" & w.Range("A" & w.Rows.Count).End(xlUp).Row)
If critere <> "<tout>" And critere <> "<vides>" And critere <> "<zéros>" Then P.AutoFilter 7, critere
If critere = "<zéros>" Then P.AutoFilter 7, 0
If critere = "<vides>" Then P.AutoFilter 7, ""
P.Copy [A1]
w.AutoFilterMode = False 'retire le filtre
With Me.UsedRange: End With 'actualise la barre de défilement

'copie des écarts
With Sheets("ecart").Range("K:M")
    Set c = .Find([critere], LookIn:=xlValues)
    If Not c Is Nothing Then
        decalage = c.Row + 4 'attention + 4 implique que tous tes tableaux commencent 4 lignes en dessous du titre "P O
    End If
End With
Sheets("ecart").Range("E" & decalage & ":X" & decalage + 1).Copy
With Sheets("2016").Range("AP6")
    .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
End With
    
End Sub

Cf PJ avec modifs

 

[vgendron]

Re : copies lignes avec critères

et pour traiter les cas Zéros ou vides..

 

[sev31130]

Re : copies lignes avec critères

bonjour


en premier lieu MERCI

il y a un petit problème..<TOUT> et P marche bien en T et en O il me donne les lignes de <TOUT> c'est à dire
voir ci dessous pour T

juin-16 ecart
N° 1 2 3 4 5 G P
1 0 0
2 9 2
3 5 5
4 15 7
5 19 12
6 1 1
7 17 0
8 6 6
9 3 3
10 8 1
11 13 13
12 13 9
13 4 4
14 18 4
15 10 10
16 22 0
17 36 5
18 1 1
19 29 3
20 25 13

Suis navré du dérangement
cordialement

yves

 

[vgendron]

Re : copies lignes avec critères

Pas de souci..
juste un manque de précision dans la ligne de recherche

Set c = .Find([critere], LookIn:=xlValues, LookAt:=xlWhole)

sans le LookAt, il trouve T et O dans TOUT..
avec le LookAt: il vérifie que dans la cellule, il n'y a QUE le T ou O..: c'est une recherche exacte.

 

[sev31130]

Re : copies lignes avec critères

re bonjour


est ce que tu peux faire le changement directement et me joindre de nouveau le fichier, je n'y connais rien
je viens d'essayer mais je "merde grave"
Par avance merci

cordialement

yves

 

[vgendron]

Re : copies lignes avec critères

Ci joint

pour apprendre
ouvrir l'éditeur VBA: Alt+F11

à gauche dans l'explorateur du projet VBA double cli sur la feuil 14 (Stats Filtrées): le code est sur cette feuille
la fenetre de code s'ouvre à droite

Chercher la ligne à corriger. et corriger ;-)

 

[sev31130]

Re : copies lignes avec critères

re bonjour

j apprecie beaucoup la peine que tu prends à m'expliquer, ainsi je pourrais changer lors du changement de feuille
de 2017 au lieu de 2016

merci

super gentil

cordialement

cy