Selection.Delete Shift:=xlUp avec condition

[Temjeh]

Bonjour à tous

Et oui mon premier post

J'aimerais si possible pouvoir supprimer une ligne (avec inputbox)en fonction de ces premiers 4 caractères de genre:

Pour toute les mots ou nombres qui commence par 1234 ou abcd dans col A:

Selection.Delete Shift:=xlUp

Merci et longue vie à ce site

Temjeh

 

[WILFRIED]

Salut temjeh,

petite suggestion :


sub nettoyage
'déclaration des variables

'variable de question
dim m_reponse as string
'variable de plage
dim m_cellule as range

m_reponse=inputbox('saisissez le 4 caractére à des lignes a supprimé')
if m_reponse ='' then exit sub
'selection de la plage de valeur
range('A65536').select
range('A2',activecell.end(xlup)).select
for each m_cellule in selection
if left(m_cellule.value,4)=m_reponse then
m_cellule.rows.entirerow.delete
end if
next

Voili Voilou

A+

 

[Temjeh]

Merci Wilfred

Juste un petit bug:

Ex:

qqqqrrrr il le delete mais si qqqq rrrrne le delete pas et aussi il n'en supprime que un
qqqqrrrr
qqqqtttt
supp un seul

Merci

 

[myDearFriend!]

Bonsoir Temjeh, Wilfried,


Tu peux peut-être essayer :

Sub Suppression()
Dim R As Variant
Dim L As Long, Lmax As Long
    With ActiveSheet
        R = Application.InputBox('Critère (4 caractères) :', 'Suppression des lignes commençant par ...', , , , , , 2)
        If R = False Or Len(R)  < >  4 Then Exit Sub
        Lmax = .Range('A65536').End(xlUp).Row
        For L = Lmax To 1 Step -1
            If CStr(.Cells(L, 1).Value) Like R & '*' Then .Rows(L).EntireRow.Delete
        Next
    End With
End Sub

Cordialement.

Message édité par: myDearFriend!, à: 24/02/2005 22:16

 

[Temjeh]

Merci beaucoup myDearFriend ainsi que WILFRIED

C'est good!!!! Justement ça

Un autre trouble de régler

A++

Temjeh