Selection de données inférieures
Bonjour,
Je souhaite sélectionner les valeurs d'une colonne qui seraient inférieures à une donnée que j'indiquerais dans une cellule
cette opération pour supprimer les éléments triés.
ex
F1:=2.10
G1 = 3
colonne f : 2.15 2.3 2.50 1.55 1.3 3 3.2 3.5 etc
je souhaite filtrer les éléments inférieurs à F1
pour les supprimer et ensuite faire de même avec les valeurs supérieurs à G1.
Ma macro pour F1
f: Dim a As String
f = Range("F1").Value
ActiveSheet.Range("$f$4:$u$536").AutoFilter Field:=6, Criteria1:=f
comment lui indiquer < à F1
Merci d'avance
Bonjour
à tester,
Criteria1:="<" & Range("F1")Merci de m'avoir répondu .
Malheureusement
cela sélectionne les vides.
Bonjour,
Fais un petit effort en joignant un fichier à ta demande.
Cdlt.
re,
sans les vides,
.AutoFilter Field:=1, Criteria1:="<" & Range("F1"), Operator:=xlAnd, Criteria2:="<>"""""Bonjour,
Peux-tu reformuler correctement ta question ?
Cdlt.
Résumé
je souhaite filtrer les éléments inférieurs à A1
Supprimer ces lignes
je souhaite filtrer les éléments supérieurs à A1
Supprimer ces lignes
Bonjour,
OUps!
je souhaite filtrer les éléments inférieurs à A1
Une fois le premier tri effectué et les lignes effacées
Je trie les valeurs supérieures à B1 ( et non A1
et j'efface ces lignes
En fait je souhaite me retrouver avec les valeurs de la colonne A supérieures à A1 et Inférieures à B1
en supprimant les autres.
Re,
essaie ceci :
Option Explicit
Public Sub Delete_rows()
Dim tbl, arr() As Double, I As Long, k As Long
With ActiveSheet
tbl = .Cells(3, 1).CurrentRegion.Offset(1).Value
For I = 1 To UBound(tbl)
If tbl(I, 1) > .Cells(1).Value And tbl(I, 1) < .Cells(2).Value Then
ReDim Preserve arr(2, k + 1)
arr(0, k) = tbl(I, 1)
arr(1, k) = tbl(I, 2)
k = k + 1
End If
Next I
.Cells(3, 1).CurrentRegion.Offset(1).ClearContents
.Cells(4, 1).Resize(k, 2).Value = Application.Transpose(arr)
End With
End SubMerci beaucoup jean-pierre !!
Bonne journée
Jean - Eric pardon.