Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005
-
30 mars 2005 à 11:29
Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005
-
30 mars 2005 à 16:36
Bonjour,
Je souhaiterais créer une macro dont le contenu rechercherait, dans une plage définie, toutes les valeurs supérieures à 20 et effacerais les lignes automatiquement.
Quelqu'un peut-il m'aider
Voici la macro :
Sub Find_ValSup_20()
Do
With [B4:B4000].Find("20", Range("B4:B4000")([B4:B4000].Count), xlValues, xlWhole, , xlNext, False).Select
Selection.EntireRow.Delete
End With
Loop
End Sub
Cette macro supprime que le nombre 20 dans la colonne B. Comment faire pour sélectionner tous les chiffres > à 20 ???
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 30 mars 2005 à 13:41
Cette macro supprime les cihhres suppérieur à 20 à partir de le cellule B4
Sub supprimer()
Dim i As Integer, s
s = 0
For i = 1 To 4000
If Range("b5" & Range("b4000").Value)(i) > 20 Then
s = s + 1
Range("b5:b4000")(i).Value = ""
End If
Next i
End Sub
Diegoch
Messages postés56Date d'inscriptionvendredi 30 mars 2001StatutMembreDernière intervention 7 septembre 20116 30 mars 2005 à 15:26
Set cellulecourante = XL.worksheets(Nomfichier).range("B4")
Do While Not IsEmpty(cellulecourante)
Set celluleSuivante = cellulecourante.offset(1, 0)
If celluleSuivante.Value = "20" Then
cellulecourante.EntireRow.Delete
End If
Set cellulecourante = celluleSuivante
Loop
//Attention, ceci fonctionne uniquement si aucune case vide n'est rencontrée. le scan s'arrete a la premiere cellule vide.....
Nono94260
Messages postés5Date d'inscriptionmercredi 30 mars 2005StatutMembreDernière intervention31 mars 2005 30 mars 2005 à 16:36
MERCI pour l'aide apporté jpleroisse !!
J'ai juste un peu modifier la macro pour qu'elle supprime les lignes > 20
Sub Supprimer_les_lignes_supérieures_à_20()
'Détermination des valeurs supérieures à 20 et efface le contenu de la cellule
Dim i As Integer, s
s = 0
For i = 1 To 4000
If Range("b5" & Range("b4000").Value)(i) > 20 Then
s = s + 1
Range("b5:b4000")(i).Value = ""
End If
Next i
'suppression des cellules vide dans la colonne B
With Range("b5:b4000", Range("b4000").End(xlUp)). _
SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End With
End Sub