Discussion :

[mattchoco]

Bonjour,

je ne parviens pas à mes fins et mes recherches ne m’apporte pas la solution. Je demande votre aide !

J'ai un fichier, comportant 3 colonnes de valeur à partir de la ligne 50 sur environ 200 lignes.

Une des colonnes présente des valeur allant grosso modo de 0.0001 à 10.

Je souhaite faire une extraction de ce tableau pour les lignes comportant des valeurs supérieur à 0.1 dans la deuxième colonne.

Je souhaite que ça me crée un second tableau à coté, qui viennent me copié à la suite toutes les lignes du précédent tableau vérifiant cette condition.

Et là je sèche.. !

merci d'avance.

[SfJ5Rpw8]

Bonjour,

pas besoin de macro pour cela, un filtre avancé suffit..

menu Données avancée

[Daniel.C]

Bonjour,

En supposant que les 3 colonnes soient contiguës (A, B et C) !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub test2()
Dim C As Range, ligne As Long
ligne = 49
For Each C In Range([B50], Cells(Rows.Count, 2).End(xlUp))
    If C.Value > 0.1 Then
        ligne = ligne + 1
        Cells(ligne, 4).Resize(, 3).Value = C.Offset(, -1).Resize(, 3).Value
    End If
Next C
End Sub

[mattchoco]

@bbil
bonjour ,j'ai besoin d'une macro pour après l'intégrer dans un processus plus général qui traite des données.

@Daniel.C
génial, . Merci beaucoup ça marche !

je l'ai remodifié ainsi, pour la mettre au formalisme de mon fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub Bouton1_Cliquer()
 
Dim C As Range, ligne As Long
ligne = 50
For Each C In Range([B51], Cells(Rows.Count, 2).End(xlUp))
    If C.Value > 0.1 Then
        ligne = ligne + 1
        Cells(ligne, 11).Resize(, 4).Value = C.Offset(, -1).Resize(, 4).Value
    End If
Next C
End Sub

dans mon fichier il s'agit en fait de paquet de ligne qui vont remplir la condition entrecoupé de lignes qui ne satisferont pas la condition.

est il possible de séparer ces paquet par une ligne vide ou une ligne rempli de zéro ou autre,

puis d'extraire à nouveau, par paquet une ligne correspondant au max ( par paquet ) trouvé sur la deuxième colonne?

[Daniel.C]

Bonjour,

Oui, un filtre automatique ou avancé... à condition d'avoir des entêtes.

[mattchoco]

comment puis-je traduire ça en VBA ?

merci d'avance

[Daniel.C]

Franchement, pour deux centes lignes, le gain de temps sera infinitésimal En supposant que tu n'aies pas d'entêtes et que la cellule B49 soit vide (sinon, il faut insérer une ligne) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test4()
    Dim Plage As Range
    [B49] = "entête"
    Set Plage = Range("A49:C" & Cells(Rows.Count, 1).End(xlUp).Row)
    ActiveSheet.AutoFilterMode = False
    Plage.AutoFilter 2, ">.1"
    Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
    If Application.Subtotal(103, Plage) > 0 Then
        Plage.Copy [D50]
    End If
    [B49] = ""
    ActiveSheet.AutoFilterMode = False
End Sub

[mattchoco]

un fichier a 200 lignes de valeur, mais la macro final va devoir traiter 200 fichiers de conception identique en même temps. Et sur plusieurs projets au fur et à mesure.

Je vais essayer ça de suite ! merci

Bon, j'ai du mal poser ma question.. la deuxième macro fait la même chose que la première mais d'une manière différente.

Ma question portait juste sur l'évolution de la première: recherche du max pour chaque groupe de valeurs trouvé précédemment.

[Daniel.C]

Non, mais quand j'ai lu :

génial, . Merci beaucoup ça marche !

je n'ai pas été voir plus loin. La ligne correspondant au maximum est copiée en G50:I50 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test4()
    Dim Plage As Range, Ligne As Integer
    [B49] = "entête"
    Set Plage = Range("A49:C" & Cells(Rows.Count, 1).End(xlUp).Row)
    ActiveSheet.AutoFilterMode = False
    Plage.AutoFilter 2, ">.1"
    Set Plage = Plage.Offset(1).Resize(Plage.Rows.Count - 1)
    If Application.Subtotal(103, Plage) > 0 Then
        Plage.Copy [D50]
    End If
    [B49] = ""
    ActiveSheet.AutoFilterMode = False
    Set Plage = Range("E50:E" & Cells(Rows.Count, 5).End(xlUp).Row)
    Ligne = Application.Match(Application.Max(Plage), Plage, 0) + 49
    Cells(50, 7).Resize(, 3).Value = Cells(Ligne, 4).Resize(, 3).Value
End Sub

[mattchoco]

Haa! j'avais peur de ne pas avoir été clair. Défois on est dans sa tete...

Le code sort bien le max oui ! Mais en fait dans ma demande initiale il me faudrait le max de chaque paquet.

Quand la macro tourne, elle va tomber sur une série de lignes qui ne rempliront pas la condition, puis une série de lignes ( de 1 à 40 par exemple) qui remplis la condition puis une série non, puis à nouveau une série qui remplissent la condition; et ainsi de suite.

On pourrait le représenter comme ci dessous :

0
0
0
0
0
a1
a2
a3
0
0
0
0
0
b1
b2
b3
b4
b5
b6
b7
b8
0
0
0
0
c1
0
0
0
d1
d2
0
0
0
0

J'aimerais récupérer le max de la plage [a1 a2 a3] , ET le max de la plage [b2 b3 b4 b5 b6 b7 b8] , et le max de la plage [c]1 etc..

est ce possible?

[mattchoco]

essai suivant , en reprenant le code de départ j'ajoute 2 conditions pour séparer mes groupes de valeurs d'une ligne vierge ou d'une ligne remplie de "0".

problème, mes conditions de boucle doivent être mal définies ou mes next peut etre.. quelqu'un voit le soucis?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub Bouton1_Cliquer()
 
 
 
Dim C As Range, ligne As Long
 
ligne = 50
For Each C In Range([B51], Cells(Rows.Count, 2).End(xlUp))
For Each D In Range([B50], Cells(Rows.Count, 2).End(xlUp))
 
    If C.Value > 0.1 Then
        ligne = ligne + 1
        Cells(ligne, 6).Resize(, 4).Value = C.Offset(, -1).Resize(, 4).Value
        Else
 
         If C.Value < 0.1 Then
         If D.Value > 0.1 Then
         ligne = ligne + 1
         Cells(ligne, 6).Resize(, 4).Value = C.Offset(14, 14).Resize(, 4).Value
 
 
    End If
    End If
    End If
 
 
Next D
Next C
 
 
End Sub

[Daniel.C]

Bonjour,

Le redémarrage est difficile... Je n'arrive pas à comprendre comment tes données sont disposées. Peux-tu mettre un classeur exemple en PJ ?

[mattchoco]

Bien sur.
Ci joint un doc excel, le premier onglet correspond au format d'origine , et le deuxième onglet au résultat attendu en fin de macro.

Pour résumer :

Etape 1 : ne garder que les lignes dont la deuxième colonne satisfait à la condition > 0.1

Etape 2 : ne garder que le max ( toujours dans la deuxième colonne) dans chacun des groupes de données consécutives récupérées précédemment

[Daniel.C]

le deuxième onglet au résultat attendu en fin de macro

Il n'y a qu'un onglet, ou c'est mes yeux ?

[mattchoco]

allons bon, qu'est ce que c'est que ce maléfice !

je me suis contenter de passer de csv à xls, c'est quand même pas ça qui a fait fusionner les onglets?

bon sinon, de la colonne A à D c'est l'original, et de la colonne G à O les résultats de l'extraction..

en attendant je replonge dans mon fichier pour comprendre..

[SfJ5Rpw8]

Bonjour,
les fichiers csv sont aux format texte, il n'est pas question d'onglets...

[mattchoco]

je crois que tu as mis le doigt sur quelquechose...

[Daniel.C]

Dur dur, je n'y comprends rien... Peux-tu expliquer pourquoi il n'y a pas de résultat vis à vis de la ligne 49 et expliquer comment tu calcules les résultats de la ligne 51 ?

[mattchoco]

oui.

la macro doit balayer la deuxième colonne ligne par ligne. Lorsque la valeur présente sur une ligne est supérieur à 0.1 , la macro doit recopier la ligne correspondante.

si la condition >0.1 n'est pas respectée, la macro passe à la ligne suivante sans rien faire.

Les lignes ainsi sélectionnée apparaitront toujours par lot, c'est à dire que à chaque fois il y aura (par exemple) 6 lignes se suivant qui satisferont la condition puis (par exemple) 50 ligne plus loin, à nouveau 8 lignes qui satisferont la condition.

La première partie de la macro va donc faire apparaitre des groupes de lignes satisfaisant la condition.

la ligne 54 est là pour montrer le passage d'un groupe à l'autre. Je ne sais pas si elle a un intérêt dans la réalisation de la macro en elle même.

pour le résultat final présent sur la ligne 51, il s'agit de la ligne appartenant au premier groupe [G51;J53] présentant le maximum sur la colonne H.

et il ya trois lignes de résultats finales, parceque dans l'étape précédente , la macro a trouvé trois groupes de lignes qui se suivent , satisfaisant la condition >0.1.

[Daniel.C]

La ligne 49 satisfait la condition... Je ne vois pas ce que la ligne 54 a de particulier. Je ne vois aucune cellule supérieure à 0,1. Explique comment je trouve les valeurs G:O.