suppresion ligne

[Fred]

bonjour,

J'aimerai savoir comment fait-ton pour rechercher une chaine de caractère dans une colonne et ensuite après avoir trouver cette chaine de caractère supprimer la ligne correspondante

merci pour votre aide

 

[olivier]

range("A1").select ' si ta colonne est la A
Do
if activecell.value = "chaine de caractère" then
ActiveCell.EntireRow.Delete
end if
activecell.offset(1,0).select
loops until activecell.value = "" ' descend d'une case jusqu'a ce que la cellule active soit vide



voila, tu devrais t'en sortir comme ca

 

[Philippe G]

Sans boucle:
(données en colonne A, recherche "texte")


Sub test()
Dim rng As Range
Columns(1).Insert
Set rng = Range([B1], [B65536].End(xlUp)).Offset(, -1)
With rng
.FormulaR1C1 = "=IF(RC[1]=""texte"",""del"")"
On Error Resume Next
.SpecialCells(xlCellTypeFormulas, xlConstants).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
Set rng = Nothing
End Sub

 

[Fred]

merci c'est super sympa ca fonctionne
mais il me reste un petit pb
j'arrive pas à spécifier ma chaine de caractère je voudrai supprimer les ligne ou la longueur de caractère est de 5 j'ai utilisé "?????" mais cela ne marche pas.
j'ai fais le teste avec une valeure précise cela fonctionne exemple "22222"

 

[Philippe G]

Si tu utilise la macro d'Olivier:
remplace:
if activecell.value = "chaine de caractère" then
par
if len(activecell.value) = 5 then

Pour l'autre tu remplaces:
.FormulaR1C1 = "=IF(RC[1]=""texte"",""del"")"
par
.FormulaR1C1 = "=IF(LEN(RC[1])=5,""del"")"