Selection.Delete Shift:=xlUp avec condition

Temjeh

XLDnaute Accro
Supporter XLD
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

XLDnaute Impliqué
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+
 

myDearFriend!

XLDnaute Barbatruc
Bonsoir Temjeh, Wilfried,


Tu peux peut-être essayer :

Code:
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
 

Discussions similaires

Statistiques des forums

Discussions
283 682
Messages
1 853 490
Membres
152 184
dernier inscrit
LegVal10
Haut Bas