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